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PART NO. £247607: EBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe a247607 
PAGE i PAGE aa 
cist 3360 ATTACHMENT TESTS - MOD 12 C151 3340 ATTACHMENT TESTS - MOD 12 
ERR LOC OBYECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
22 taST CHG 12SEPT7S { * at Ade SERED KE AEARE REED ARES ESRESEERESAES SORE SR ES STEELERS SR SSSES ESE AES RS SS 
3 DECK 4 | 42 ® EXTERNAL ADDRESS CHECKER TEST * 
* SEQ o rt 43 *EXT ADDRESS ERRORS ARE FORCED BY ACDRESSING AN EXT REG WHILE A BAD s 
5 TREP a 46 *ZCNE IS IN ZLS LOC X*32%.e ALL ADDRESS BETS ARE USED- * 
0000 6 c1S START 0 65 *THE IOP HALT EIT AKU EXT ADDRESS CHECK BIT ARE TESTED. A GOOD ZONE * 
7 RRERREAREAEA RE RAEEERAEERERLERERARES ERE SERERSLHSES AERABRS HE SHTTH RAL ASSESS r 46 *1S THEN PUT IN ZLSe AND EXT ADDRE SSING TESTED AGAINe ® 
68 * * = 47 KHRERREAHARESE ERED RREAEARERELEEREEEERE ESSE OS TESREREL HS ESCESIS TASS OSE SS 
9% SECTION PREFACE * aa * 
10 * * oase 02 0 AG2 49 RTNO? oc xL2°02° ROUTINE 02 
11 eee ERRAAA AEE AKER EREALE RR RAEREEEEESERERE HEBER EAEEESETES TESSS ETE SEEKS A - 0A43 00 ., CA43 50 oc XL1 008 
12 % _ 'OASS OBZA . OAQS S51 oc AL 2CRTNO3) NEXT ROUTINE ADDRESS 
OA00 13 ORG X*0A008 a S52 * 
14 * ‘ OAS6 CO 87 2885 s3 8 BEGIN ROUTNE INITE AL TZATION 
oa00 C1$1 OA01 15 PID oc xL2°C151° SECTION ID AND REVISION LEVEL OAGA C2 01 0810 54 LA EXTAOR » XR1 LOAD ADORESS OF TEST TABLE 
0ad2 00 oaoe 16 oc XL1*068 SECTION FLAGS OAGE 1C 02 OAG1 02 55 EXTADO MVC VARBL2Z 22030 XR2) MOVE THE NEXT INSTR TO INSTR STRING 
OA03 01 0A03 17 RIN oc xL1 "01° CURRENT ROUTINE NUMBER CAS3 D2 01 03 56 LA 3BCeXR1F e ARI BUNP THE POINTER TO NEXT INSTR 
0A0a 0000 2a0S 18 oc xL2*0000* RESERVED OAS6 CO 87 2EE3 s7 8 “Lest LOAD THE FOLLCWING MICRO PROGe 
OA06 CABA OAO07 19 PFC pc AL2 (RTNOS ) ADDRESS OF ROUTINE PREFACE OASA 0000 o“S8 $8 oc XL2*0000° AT ADORESS *G000" IN CeSe 
OA0S FFFF OA09 20 pc XL2*FFFE® RESERVED é OASC 038801 OASE 59 oc xL3*°038801° SZ1 ZLS ADOR O8= TO 03 (BAO ZONED 
21 * OAS! 18BF00 OAS1 60 VAREL2 pc XL3*188F00* VARIABLE INSTRUCTION WHICH ADORESSES 
OAODA C14000 OAOCc 22 upto oc xL3*c14000° 3340 UDT ENTRY - 61 * AN EXT REGe 
Oa0D 101000 OAOF 23 vu0Ti oc XL3*201000# 5471 UDT FOR ‘AMOP LINK OAG2 080000 0 AGS 62 oc xL3*080000* NO-OP INSTR 
OAL 0 Oals 24 os xLg9 RESERVED OA6S 100003 OA67 63 oc XL3*°100003* BRNCH AND HANG 
25 * : OA6B FE 0a6és 64 oc XL1°FF® TERMINATE INSTRUCTION STRING 
OA!9 00 CA19 26 cOM oc XL1*00* 3340 PROGRAM COMMUNICATION AREA oe 65 * 
OA1A OA1A 27 os xt1 RES ERVED | OAs CO 87 2999 66 8 BGNTST TEST LOOP BACK POINT IS HERE 
26 * es 67 + 
0a18 oaic 29 LOND cs XL2 MICROCODE LOADER (C17) IN STGRAGE OA6D CO 87 2DDF 68 8 LALSD SET UP ALS TO EXEC PROGRAM AT *0000° 
OAiod OAIE 30 AMOPID os AL2 AMOP (C193 IN STORAGE OA71 00 OAT! 69 oc AL1¢(MIAROD 
OAIF 0A20 31 FAOID Ds xL2 ATTACHMENT MICRGCODE (FAO) IN STOR ce OA72 OO - Oa72 70 oc XL1*00* 
32% Ss 7i * 
OA21 oa39 33 SVPFC os XL25 SECTION PREFACE STORAGE AREA 72 * START IOP EXECUTION HERE 
34 * fe . 73 * 
35 { OA73 CO 87 3100 74 8 10PGO0 
35 7 2 
GAZA O1 OAZA 36 RTNO1 oc xXLI*O23°8 ROUTINE O1 NOT USED Co OA77 CO 87 3118 76 8 sts3 GET IOP ERRORS 
9038 00 OAzB 37 oc xL1*00° ‘ OA7B 39 10 33DE 77 TeF TOPINs X*10° CHECK THAT EXT ADORESS CK IS ON 
OASC OAS2 Oa30 38 oc AL 2¢(R 102) NEXT ROUTINE ADORESS : OATE F2 10 15 78 Jt EXTADi JUMP IF ERPOR 3S ON AS EXPECTED 
OA3E CO 87 0216 39 8 LINK | ce 79 * TE ERROR OCCURS. 
_ OAaB2 OC 00 33ES OAGO 80 aVvC EXTARs VARBL 2-141) MOVE THE CURRENT EXT ADDRESS TO 
‘ | OABB CO 87 30CB 81 8 LEXTAR EXTAR FOR PROBING 
z fi * 82 8 
| . OAeC 3B EO 33E5 83 SBF EXT ARe X"EO* DROP EXTRA ADDRESS BITS % 
OASO CO 87 2A07 84 8 ERRPRT ERROR CODE 5020 
rf @©a94 O1 0Aa94 85 pc xL1*°01° V1 = FAILING ADDRESS 
| . CASS 33E5 CASE —s« BE pc AL2CEXTAR? 
| 87 * 
Io 0ag7 CO 87 31900 8B EXTADI 8 $0S2 IOP SENSE 2 
‘ OagB 38 O02 330E e9 TAN TOPIN.S X* 02° TEST FOR IOP HALT BIT 
i OASF F2 10 OS 90 JT EXT AD] JUMP IE ON AS EXPCTD 
| f~ 91 
+ Oe OAA2 CO 87 2A07 92 B ERRPRT ERROR CODE 5021 
: OAA6 10 OAAG 93 oc KL2°20° 
| x 94 * 
Ps OQaa7? CO 87 2968 95 EXTAD2 8 NORMN LOOP THE TEST FROM HERE 
| OAAB 70 FF 00 96 ct OC oXR1 DOX*FFE END OF THE TABLE REACHED? 
\¢ OAAE F2 81 04 97 Je EXTAD3 JUMP TF ENO OF TABLE 
j * 98 * 
OAB1 CO 87 OASE $9 8 €XT ACO GO BACK AND USE NEXT INSTR IN TAGLE 
ff 100 * 
: C: 103 * THIS PART TESTS THAT THE EXT ADDRESS CHECK IS OFF WHEN NO ERROR 
102 * 
: OABS C2 01 OBI0 103 EXTAOD3 LA EXTADReXRi POINT TO THE TABLE AGATN 
: OABS 1C O02 OACE O02 104 EXTAD6 VC VARBL3 22036XR2) MOVE NEW INSTRUCTION FROM THE TABLE 
j OABE 02 01 03 105 LA 3CeXR1} XR AND BUMP POINTER TO NEXT INSTRe 
i OAC1 CO 87 2EE3 106 8 Ltcs! LOAD THE FOLLOWING STRING OF 
j ~ OACS 0000 OAC6 107 pc KtL2*0000° INSTRUCTIONS AT *0000° IN Ca Se 
: OAC7 138800 Oacgo 108 pC XL3*138800* SZI SET ZLS ADDR O08 = 00 (GOOD ZONE? i 
C 
DATE 15 AUGTS OSNGV7S PROG 1D CciS—1 DATE 1SAUG7S OSNOV7S PROG 1D C1S-1 : 
EC NOw €277865 827827 PAGE 1 cre NO. 827785 e27e27 PAGE aa | 
{ 





C1581 

ERR LOC OBJECT CODE 
OACA 18BF00 
OACOD 080000 
oado 600003 
OADS FF 
OADa CO 87 2999 
Oacs CO 87 200F 

7 OADC 00 

OADD 00 
OADE CO 87 3100 
OaE2 CO 87 3116 
OAEG 38 10 3S3DE 


OAEA F2 10 15 


OAED oc 00 
OAFS CO 87 


332€5 
30C8 


OAFY 36 EO 33ES 
OAFB CO 87 2A07 
OAFF 21 
e600 33E5 
osg02 CO 8&7 2966 
0806 70 FF O00 
o809 Fe 81 IA 


o5s0c co 87 OABS 


0610 
osts3 
0B16 
0819 
oB1Cc 
OBTF 
0822 


18BFO00 
08A000 
18A108 
18 A200 
18A400 
18A600 
18B000 


oB25 FF 
0826 CO 87 0216 


DATE 
€C NGe 


1SAUGT7TS 
@27785 





ADDR 


oacc 
OACcr 
oac2 
OADdDS 


oacc 
o@add 


OACcB 


OAFF 
oB01 


6810 
0612 
oe1s 
0618 
OnIB 
OBIE 
0621 
oe24a 


6625 


OSNOVTS 
927627 
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ST4T 


109 
120 
111 
ite 
113 
ité 
125 
116 
117 
118 
119 
120 
123 
322 
123 
124 
125 
126 
127 
126 
129 
130 
131 
132 
133 
334 
2135 


136— 


137 
136 
139 
140 
241 

142 
143 
144 
145 
146 
147 
148 
149 
150 
1S} 

152 
153 
154 


12 


SOURCE STATEMENT 


VARBLS oc 
oc 
oc 
oc 


B 
8 
oc 
oc 
8 
8 


TEN 
ST 


mvc 


SBF 


oc 
* 
EXTADS 8 
* 

cul 

JE 


EXTADR Eau 
oc 
oc 
oc 
oe 
oc 
oc 
oc 
pe 


XL3*188F00* 
XL3 °080000° 
xL3* 000003" 
Xt2° Fre 


SGNTST 


‘LAL SD 


AL 2 CMIARG > 
xLs #00" 


tcrco 
sos3 


ICPINeX*10° 
EXTADS 


EXTARs. VARBL3-1¢1) 


LEXTAR 


EXTARs X*EO* 
ERRPRT 
XL1°22° 
AL2CEXTAR) 


NORMN 


OC oXR1) oX*FFS 
ExTaos 


ExtTavse 


* 

XL3* 166F 00¢ 
XL3* 0B A000 * 
XL3*26A200° 
x3 *16A200* 
XL3* 18AG00* 
XL3* 18aec0* 
ML3*1Es000* 
XL3* 1GE200° 


ae eg a ee eee Be eR 
| | | | 
| 


PART NOe 
PAGE 2 


VARIABLE INSTR AODRESSING EXT REGS 
NO-OP 

BRANCH AND HANG 

TERMINATOR 


TEST LOOP POINT IS HERE 


SET UP ALS TO EXEC AT *0000* 


START I10P EXECUTION 


GET 1oP ERRORS 
TEST THAT EXT ADDR ERROR IS OFF 
JUMP TF OFF AS EXPECTED 


ON AN ERROR» MOVE LAST USED EXT 
ADDRESS TO EXTAR FOR PROBING 


OROP EXTRA ADDRESS BITS 
ERROR CODE S022 


V1 = FAILING ADDRESS 


LOOP TEST FROM HERE 


CHECK IF END OF TAGSLE 
JUMP IF END 


GO BACK TO EXECUTE IT 


TABLE OF EXTERNAL ADDRESSES 
(SI TO EXT ADORESS *1F* 
t81t TO EXT ADDRESS *00* 
LBE TO EXT ADDRESS *¢1° 
LBE TO EXT ADDRESS *02* 
LBI TO EXT ADDRESS *04* 
LSI TO EXY aDDRESS *06* 
LBt TO EXT ADDRESS "10* 
TANDE EXT ADDRESS *62* 


* 
* ADD ABOVE WHEN"EXT ADDRESS CHECKER £S FIXED BY ENGINEERING 
x 


oc 
EXTADS 8 
C3 


XLI Fre 
LINK 


TERMINATOR 
END OF ROUTINE 
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e181 


ERR LOC OBJECT CODE 


OB 2a 
os28 
op2c 


oB82E 


0832 
6836 
OB3A 
OBSE 
oB42 


OB46 
OBSA 
OB4eE 


oBs2 
0RS6 
0857 
osse 


oBs8 
ossF 
0863 
oBé7 
oBb68 


oBEeFr 
oB73 
os77 


OB7A 
08 7E 
oB7F 
o8si 


0683 


0887 
osss 


oB6F 
os93 


os94 
oees 
s369Cc 
oBac 


OBAS 
oBaAs 


oBaB 
osaFr 
oBso0 
oBB2 


oO 


o 


DATE 
Ec NO. 


Oe 


C 


Peer tort ey ta ye one : " ) _ 2 ee ; : s 2 
‘ ir aeene sve, ssantel L yg : . : : : : 
rs ae aoe nn net ete $3 ‘ . z a : 7 
ns ; : | | @ @ @ @ 


03 
00 


oBr2 


€o 


co 


co 
3c 
co 


co 
30 
<o 


co 
02 


87 
8? 
oo 
8? 
67 
87 
oo 
831i 


87 


33FO0 
330E 


co 
zc 
co 
3c 
co 


co 


3D 
F2 


12 


87 
FF 
87 
oo 
87 


87 
FF 
at 


87 


33FD 
33DE 


co 


38 
ce 


co 


co 
3c 
co 
co 


30 
F2 
co 
22 


87 


0648 
10 


87 


ef 
to 
67 
8? 


‘10 


61 


ST 


33FD 
33DE 


2885 


2999 
33FD 
2BCA 
3402 
2BFA 


3078 
330E 
2968 


2a 07 


2999 
33F9 
28CA 
3401 
2BFA 


307e 
330E 
09 


2a0?7 


3318 


33DE 
2988 


2A07 


2939 
33FO 
28Ca 


3078 


33CE 
os 


2a07 


LSAUGTS 
e27785 


3340 ATTACHMENT TESTS = MOD 


ADDR STMT 


2156 
187 
158 
159 
360 
161 
3162 
163 
164 
165 
166 
167 
168 
169 
270 
172 
172 
i73 
174 
175 
176 
i777 
178 
179 
180 
182 
182 
183 
184 
iss 
186 
187 
288 


OB2A 
0628 
0820 


ossé 
osss 
O8SA 


12 


SGURCE STATEMENT 


PART NO 4267607 
PAGE 2a 


RRERHERRE CER SEEERERKERR AEAARARESEERAEE SESE REDRESS AAEAAAEREREERE RESET OLED 


* 
‘at 


= 


* 


TEST SCN REG AND IOP 6BUS IN * 


RES EERRESREEHEGRAERARARERE SEREREREREEESEETEERS EHPESERECSAS SEES HEHE RESETES 


2 
RTAKOS 


eee 


189 . 


196 
+93 

192 
193 
194 
195 
296 
197 
198 
iss 
200 
201 

202 
203 
204 
205 
206 
207 
208 
209 
210 
2t% 


os7e 
oBso 
o8s2 


oBs3 


. 2420 


233 
2%a 
23s 
216 
227 


218° 
219 


220 
CBAF 221 
oeei 222 
CBSsS 223 


OSNGV75 
e27e27 


oe 


e 


s. 


np seg° 


oc 
oc 
oc 


8 
MVE 
8 
MMVI 
8 


8 
cut 
BE 


8 
Mvt 
8 
vt 
8 


cur 
JE 


8 

oc 
oc 
oc 


xL1*OS* 
xL1*°O00* 
AL 2CRITNO4) 


BEGIN 


BGNTST 
SCN+EXT oX*O00* 
USCN 
DXC+EXT se X* FFP 
LOxc 


SSCN 
TCPINeX*00* 
NORMN 


ERRPRT 
xXL1°02° 
AL2CSCN+EXT D 


" ALZCIOPIN) 


BGNTST 
SCN¢EXT eX FFF 
tSsCn 

OXC+EXT oX*O0* 
toxc 


SSCN 
TOPINSX*FFS 


SCNO3 


ERRPRT < 
XL1i*°32° 

AL2 (SCN¢EXT D 
AL2C IOPIN) 


ROUTINE OS 
NEXT ROUTINE ADDRESS 
ROUTINE ENETEAL IZATION 


START TEST 
TEST PATTERN 
LOAD SCN 
CHANGE D REG VALUE 
TO DETECT WRITE PULSE PROBLEMS 


SENSE SCN 
CHECK FOR 
BR IF OK 


®90* 


PRINT ERROR ANO HALT 


CHECK SCN WITH X*FFS 


SET LOOP ADDR 
LOAD SCY WITH "FFE 
GO DO IT 
CHANGE D REG VALUT 
TO DETECY WRITE PULSE ERRORS 


READ SCN 
CHECK RESULTS 
BR TQ NEXT TEST IF OK 


PRINT ERROR AND HALT 


TEST FOR D-REG ERROR WITH PARITY SIT ON 


TeN 
St 


oe 


CHECK SCN wiTY * 20° 


i 


~e 


BRR? 


sos3 


TOPINSX*04° 
NORMN 


ERKRPRT 
xXL2*20° 


SGNTST 
SCNPEXRT eo X* 10° 
CSCN 

SSCN 


TOP INeX*10* 
SCNO? 


ERRPRT 
XL2°22° 

AL 2CSCNSERT) 
AL2 CIOPIN) 


GET *10P CHECKS® 


D-REG ERROR 7? 
BR IF WO 


ERROR S032 


e487 y bit OFF » 
START TEST 
TEST DATA 
LOAD SCN 
READ SCN BACK 


COMPARE RESULT 
SR tf OK 


PRINT ERROR AND HALT 


PROG 10 c1S-1 
PAGE 2a 
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18M MAINTENANCE OLAGNOST IC PROGRAN PART NOs 8247607: . IBM MAINTENANCE OZAGNOSTIC PROGRAM PART NOW @267007 
, PAGE 3 | PRGE 3a 
cist 3320 ATTACHMENT TESTS - MOD 12 j , ©1s3 3340 ATTACHNENT TESTS - MOD 12 
1 
EPR LOC GBJECT CGDE AOOR STMT SOURCE STATEMERT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
220 * - i Cc 260 398 DRSEHOEKRE £8E4 68 EHERE NES ARESESEEEDEEESERETESS SOTA SORES OF SASASSLASSS OS 
225 * TEST FOR O-REG ERROR WITH PARITY BIT OFF | 261 = 
226 * | io 262 * TEST FTR REGISTER * 
OBB4 CO 87 3318 227 SCNO7 8 sos3 | i. 263 2 * s 
228 «* 264 EORFEEEESEREREDE ETO SS OEE 58425 SEEHTEEES $EBDEESS TESSHE SESE SBHOCHESSVESSS DS 
0868 36 04 230€ 229 TBN IOP INe X*04* D-REG ERROR ~ | er 265 * 
osec co 10 2988 230 eT ACRMN 6R IF ND J ou. OBFA 05S OBFA 266 RTNOS oc xL1*05° ROUTINE OS 
231 | oBFB OO OBFB 267 pc xL1*008 
oBco CO 87 2A07 232 8 ERRPRT | ar OBFC 0D19 O8FD 268 oc AL2CRTNOG6) NEXT ROUTINE ADDRESS 
opca 30 oBcea 233 oc XL2 * 30° ERROR 5023 | we 269 * 
234 8 : 270 * TEST FTR wtTH *00* 
235 * TEST SCN WITH x*S5* < eae 271 2 
236 * : OBFE co 87 2885 272 8 BEGIN ROUTINE INITIAL EZATION 
0a8cs CO 87 2999 237 8 BGNTST START TEST : ; 273 * 
cece 3¢ SS 33FD 238 uvi SCN#EXT -X*S5*% TEST OATA ; oco2 CO 8&7 2999 274 a BGNTST START TEST 
OBCD CO 87 28CA 239 8 LSCN LOAD SCN =. 1 Ooco6é 3¢ 00 33F8 275 wvI FIR4EXTeX*00* TEST DATA 
OoBD1 CO e7 3078 240 8 SSCN READ SCN BACK OCOA CO 87 286A 276 8 LFTR LOAD FTR 
241 * oa OC OE CO 87 2FFB 277 e SFTR READ FTR 
OBCS 3D $5 33D0E 2462 cur IOPINe X*SS* COMPARE RESULT 2 278 * 
opps CoO 81 2968 243 SE NORMN BR IF OK 0C12 30 00 33DE 279 CLI IOP IN» X*008 CHECK RESU'.TS 
244 * . 0c16 CO 81 2988 280 BE NORMN IF OK GO TO NEXT TEST 
OB0D CO 87 2A07 245 8 ERRPRT PRINT ERROR AND HALT ae 2e1 * 
OBE1 22 OBE1 246 oc XL2°22¢ 5032 OC1A CO 87 2A07 282 8B ERRPRT PRINT ERROR AND HALT 
OBE2 23F0 OBES 247 oc AL2 €SCN+EXT) Oc 1E 02 Ooc1iE 283 oc xtL1*02" ERROR COOE SOsO 
CBES 330E OBES 248 oc AL 2€ LOPIN) ; OCcIF 33F8 0C20 264 oc AL2(F TRE XT) 
249 * : 0C21 330E oc22 285 oc AL 2 (IOP IN) 
O3E6 3C 00 33FD 250 MvI SCNCEXT oX*00* et: 286 * 
OBEA CO 87 28CA 281 8 LSCN SET SCN BACK TO *00° Dk 287 * TEST FIR REG wITH *FF® 
OBEE CO 87 0216 252 B LINK NEXT RTNE ; 288 * 
253 * o0c23 Co 87 2999 289 8 BGNTST START TEST 
254 ‘ 0C27 3c FF 33FB 290 mvI FIR4EXTSX*FF® TEST DATA 
254 0C 28 CO 87 2B6A 291 8 LFTR LOAD FTR 
OBF2 04 OBF2 255 RTNOS oc XLi*oas ROUTINE 04 NOT USED es OC2F co 87 2FFS . 292 8 SF TR READ FTR 
OBF3 00 oBF3 256 oc xEL1°00°* Ae 293 * 
° OBF4 OBFA oBFsS 257 oc AL2 CRTNOS) NEXT ROUTINE ADORESS 0c23 38 10 33F8 294 SBF FTREEXT eo X*10* PREVENT 
OBF6 CO 87 0216 256 8 LINK F 0C37 CO 87 28BA 295 8 LFTR PROC CHECK 
Se, 0C38 3A 10 33F8 296 SBN FTYR+EXTeX*20° GN ERROR PRINT 
297 * 
: OC3F 30 FF 330E 298 cut IOPIN« X*FF * . CHECK RESULTS 
ie 0c43 co 81 2988 299 BE NORMN IF OK GO TO NEXT TEST 
300 * 
sh 34 0Cc&? CO 87 2A07 301 8 ERRPRT PRINT ERROR AND HALT 
AL. oc4p 12 oc4as) 302 oc xtL2°22° 
oc4ac 33F8 0c4ao «303 oc AL2(F IROEXT) 
rr OC4E 330E OC4F 304 oc AL2C FOP IN) 
PY 305 * 
| 306 * TEST FTYR REG wETH *AA® 
Ee 307 2 
ra. @CcSO CO 87 2999 308 8 BGNTST START TEST 
0CcS4 3C AA 33F8 309 uv FTREEXTe X*AAP TEST OATA 
io ocsS®8 CO 8&7 288A 310 8 LFTrR LOaO0 FTR 
ase ocSC CO 87 2FFB 311 8 SFTR READ FTR 
! 312 
c OC60 30 AA 330E 313 cur 1OPINeX* AAP CHECK RESULTS 
& 0c64 Co 61 2988 314 BE NGRMN IF G« GO TO NEXT VEST 
i 315 * 
o 0¢c68 CO 87 2A07 316 6 ERRPRT PRINT ERROR AND HALT 
a ecec 22 Ooc6éc 317 oc xXL2°22¢ 
OC60 33F8 oceéeE 318 oc AL2CETREEXT) 
i, OC6F 330E 0c70 «319 oc AL2€ TOPIN)D 
: © 320 * 
i 323 TEST FTIR REG WITH *S55* 
i c 322 8 
a oc71 CO 87 2999 323 8 @GNTST START TEST 
oc7S 3C SS 33F8 324 uvi FTRSE XT. x°Sse TEST DATA 
+ oc79 CO 87 28BA 325 8 LFETR toad FTR 
Mee Oc7D CO 87 SFE 326 8 ‘SFTR READ FTR 
| : 327 « 
| C = 
OaTE YSauUGTS OSnov7S PROG ID CiS-1) DATE 1SAaUG75 OSNOVTS PROG 10 C215-2 
EC NO. &27765 e27627 PAGE 23 ce NO. 827785 827627 PAGE 3a 
1 oy 


Ne 


Qo © 


pe a ae ae en ESS 


fe ET nt an et ar a I 2 SA SS ELSI SS 


4 


y 
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e151 3340 ATTACHMENT TESTS - MOD 12 - ©1823 
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3340 ATTACHMENT TESTS - NOD 12 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


Arete beige mney gmt amanemees * 


oc aa 38 20 33FB 326 SBF FTREEXTeX*20° PREVENT : ce 396 cnavecccasescaccescesessesansssensessuecsacssassasesssesanereses se siete 
OCceéS CO 87 28BA 329 6 cere PROC CHECK 397 « * 
OCB9 3A 10 33F8 330 SEN fF FREXT. X910° ON ERROR PRINT | 398 * TEST OXC REGISTEK pa 
331 @ x. 399 * 
oceD 3D SS 33DE 332 CLI | «IOP TNe xX? SS* CHECK RESULTS | 400 * neesncesacacessteen eases sheneseseseessseseneaneeessasuensesseese see es 
ocgi co el 2988 333 a NORMN 1€ OK GO TO NEXT TEST be 401 * 
& 334 * “N.S @p2a 07 -ODZ1 402 RTNO? oc XLL°OT* ROUTINE 07 
ocssS CO 87 2a07 335 8 ERRPRT PRINT ERROR AND WALT op22 00 op22 403 oc xL3°00* 
2 oCco9 22 0c99 «6336 oc XLI*° 22° ERROR CODE S052 ¢- . 023 ODAD OD24 404 oc AL2 CRTNOS) NEXT ROUTINE ADDRESS 
ocoa 23F8 cloB . 337 oc AL2CFTREERT? ete 205 ¢. 
ocec 33DE oc9D «336 oc AL2¢€ rOP IN) op25 co e7 2885 406 e BEGIN ROUTINE INT TIALIZATION 
339 ©¢ + age 4a07 * 
3e0 * RESTORE FIR REG TO °00* AND TEST FOR GOOD PARITY. ‘ - 9p26 co 87 2999 408 8 BGNTST START TEST 
pees : 0D2D 3C 00 3402 609 MVE «OX C#EXT 0X00" *00* TO DXC 
OCSE LO 87 2999 342 e BGNTST START test 0D31 CO 67 2BFA 410 8 toxc LOAD Oxc 
OCA2 3C 00 33F8 3a3 AVI | - FTR*EXT2X*°O00* "+."  @p3s Co 87 3066 aii 8 SOxC READ OxC BACK 
ocat CO 87 2BBA 344 e LeTR e00* TO FTR. 412 * 
ocaa CO 87? 288A 345 8 tFrYR LOAD AGAIN TO INSURE GOOD PARITY ae 0D39 3D 00 330€ 413 cut IOP INeX* 00° COMPARE RESULTS 
sae ¢ a8 oD3D CO 81 2988 414 eE NORMN IF OK GO TO NEXT TEST 
ocaE <0 67 2FFS 307 8 SFTR READ FTReEXPECT GOOD PARITY 0041 CO 87 2A07 415 8 ERRPRT PRENT ERROR ANO HALT 
36 * a 0De5 02 ODas 416 oc xL1*02¢ 
ocs2 CO 87 3118 349 e sos3 SENSE !0P CHECKS ce, 0D46 2403 -0pa7 417 oc AL2 (OXC+EXT 9 
OCBS 3B 046 33DE 250 TEN ICPINX*O4* EXPECT BIT 5 ON: NO D REG CHK 0D48 33D0E opag 418 oc AL2C1OPTN? 
ocBA CO 1D 2988 +381 eT NORMN 1f OK GO TO NEXT TEST -— 419 * 
ocsE £0 67 2A07 382 8 ERRPRT PRINT ERROR AND HALT ph 420 * ‘ 
occ2 a0 occ2 383 oc xXL1°40° ERROR CODE SOS4& op4a CO 87 2999 421 8 BGNTST START TEST 
oe. es OD4E 3C FF 3401 422 MVE «- OXC4EXTE X*FFS TEST DATA 
occ3 CO 8&7 2999 3s5 8 BGNTST START TEST : * ops2 CO 67 26FA a23 8 LOxc LOAD OxCc 
occ? 3C 02 33F6 356 MVI «FE TREEXTeX* 02° BIT 6 INVERTS PARITY 0086 CO 87 3088 a24 B SDxCc READ DXC BACK 
occe £0 87 2B6A 357 8 LETR LOAD FTR REG oe a25 * 
OccCF €£O 87 2BBA 358 8 LFTR LOAD FTR AGAIN.SHD INVERT PART TY ok, ODSA 3D FF 33DE 426 cur ICPIN oX*FF® COMP RESULTS 
359 * THIS TIME. ODSE co 61 2988 427 BE NORMN GO TO NEXT TEST 
ocb3 €o 87 2FFe 360 8 SFTR READ FTR? SHOULD CAUSE D REG ERROR. opé2 CO 87 2A07 aoe B ERRPRT PRINT ERROR AND HALT 
_ ecD7 co B87 3118 361 6 $o0s3 : READ TOP CKS - Se OD66 02 OD66 429 pc “L1*°02" ; 
: 362 * 0D47 3401 op6R 430 DC —«s-—s AL. 2COXC+EXTD es 
OCDB 38 04 33DE 363 TEN IOGPINx*0e* TEST FOR 0 REG ERRGR - .) -@DS69 330E OD6A 431 oc AL2CTOPIND 
OCcDF co 90 2988 364 er NORMN IF OK GO TO NEXT TEST Pk a32 8 i 
me 365 * op6es co 87 2999 433 8 @GNTST START TEST 
OCE3 CO G7 2A07 366 8 ERRPRT PRINT ERROR AND HALT + @DSF CO 87 3216 434 8 sos3 GET 10P ERRORS 
oce?7 50 OCce?y 367 oc xL1° 50° ERROR CODE S055 ie. 435 * 
368 * OD73 38 04 330E 436 TEN TOPINsx*Oa* D REG ERRORS 
369 ¢ PUT GAD PARITY IN SCN |. @D77 CO 10 2988 437 BT NORMN BR TF NO ERROR 
370 # ‘A epve co e7 2007 - 438 an -) ERRPRT PRINT ERROR AND HALT 
OcE6 CO 87 2999 371 8 @GnTST START TEST OD?F 22 OD7F 439 pc mcae22¢—t 
OcEcC 3X 00 33FD 372 wvi SCN¢EXT oX*00 ° *00* TG SCN 4 See oDpso 3401 ones 440 . oc AL 2COXCCERT 3D 
OCFO CO BF 2BCA 373 8 LSCN LOAD SCN. FTRE SHD FORCE BAD PARITY | i. ops2 330€ 0083 441 oc AL2( 1OPIND 
ocF4 CO 87 3078 374 8 SSCN GO GET BAD PARITY { 402 @ 
37S * 1: e084 CO &7 2999 443 8 eGNTST Start TEST 
ocFé CO B87 3116 376 e sos3 GET 10P ERRORS 1 § -. gpse 3¢ 02 3403 -  @6a avi OXCCEXT oX* 02 TEST DATA 
OCFC 38 08 330EF 377 TEN TOPIN.X*Oa* TEST FOR D REG ERROR : opac cO 87 2BFA a4s e LOxc. &OAD OxC REG 
op00 CO 90 2988 378 SF NORMN IF ERROR IS PRESENT.GO TO AP ape opgo co 8s? 3068 : a46 e soxc | READ OXCc BACK 
379 ¢ NEXT TEST ‘\. «9998 Co 87 3118 aa7 6 sps3 _ GET TOP ERRORS 
0D04 CO 87 2A07 380 B ERRERT PRINT ERROR AND HALT | “48 *% 
opos 6D 070s 381 oc xL1°60° ERROR CODE SOSS as 0098 38 04 33DE ae9 TBN IECPINeX*04* D REG ERROR? 
382 * 1, opec co 10 2988 aso BT NORMN BQ IF NO ERROR TO NEXT RTNEo 
383 * PUT *00* IN FIR BEFORE EXITING Oopao CO 87 2A07 451 8 ERRPRT PRINT ERROR AND MALT 
364 * i  ODAS 22 opae 452 oc xLa* 22° 
0009 3c 00 33FB 36s MVI «—- ETROEXT 2X*00° LOAD FTR WITH ZEROES - 4: gpas 3001 ODA6 453 . oc aL. 2CCXC+EXT D ; 
0D00 CO 87 268A 386 8 LFTR AGAIN ; ODA? 23DE eoas 454 : oc AL2CIOPING : & - 
0D11 CO 8&7 2BBA 387 8 LeTR LOAD AGAIN TO INSUREGOOD PARITY i gt 455 * eo 
co1s CO 87 0216 388 8 LINK NEXT RTNE "AS ODAO CO 87 0216 ase e . LING NEXT RT NE 
389 ¢ i as? 
390 1 we ase 
390 © 458 
0019 96 eDI9 301 RTNOG oc x2 °O6° ROUTINE O6 NOT USED : i opaD 08 -@0aD 459 RTNOS oc 2.1°08* ROUTINE 08 NOT USED 4 
od1a 00 op1a 392 oc xL1°00° he bodies ODAE 0O ODAE 460 oc KLI* 00° - 
0p18 0021 opic) 3=—- 393 oc AL2C(RTNO 73 NEXT ROUTINE ADDRESS tee oDaF ODSS 0080 461 oc AL 2CRTNOO) NEXT ROUTINE ADORESS 
op1i0 Co B87 0216 396 8 a TMK : cpe1i co 87 0226 462 B LINK “ 
| | & | : 
DATE 1SAuG75 OSNOVTS PROG tb c15-2' CATE 1SAUGTS OSNOVTS PROG 10 cis-3 
EC NO. 827765 e27827 Pace a er NO. e27765 e27e27 PAGE. aa 


7 tn abn IR gars 


ae 


ge aameeme ss 
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Pace s:- 
C151 3340 ATTACHNENT TESTS - "OD 32 


| ©1852 3380 ATTACHNENT TESTS - NOD 12 


| ERR LOC OBJECT CODE 


ERR LOC OBVECT COE ADOR STMT SOURCE STATEMENT 


A0DR STMT SOURCE STATEMENT 
464 SSSKSEESECHESESSSSSES ETF RESET EKERS SEEKER SESE KEEESHESBREESS FTE «eens sateest i € ‘ 


532 nucassccsssasssscssssussaconsonsoocassesooonessanonsansensess ee eSeeS ly 
See © *| 533 * * 
466 * FTG REGISTER TEST 7S 534 * FEO REGISTER TEST * 
ae? & ai ©. 


e+ 535 * * 


468 « nesasaaesnsestsehstethsssetOaesestEstes Sete A2seeGes 44 FeI0SS SSS STS SS | 





536 * pansssnssecssncoussseqscerssssanscssrenesensaneasanese ae eseeelel2225" 
a6o ¢ fe 537 © 
oves 09 ocss 470 RTNOS oc 1°09° RIUTINE 09 ‘. CESS OS 0ES9 $36 RTNOB oc xi2*058* ROUTINE 08 
ooB6 90 ove6é 471 oc *x2L2°008 o£aa 00 OESA 539 oc xL2°90° 
ooB? GF41 ores 472 oc AL2¢RTNOAD NEXT ROUTINE aDCRESS Y oe 48 OFDS — oe4sc 540 oc AL ZCRTNOC? NEXT ROUTINE AODRESS 
a73 % *. 541 * 
c0es co 87 2885 474 8 BEGIN ROUT INE INZITIAL IZATION o&aD CO 87 2885 . 542 . 8 BEGIN POUTINE INI TE ALIZATION 
a75 * em. 543 * 
oOBD co 87 2999 a76 8 SGNTST START TEST na o€S1 co 87 2999 S44 8 BGNTST START TEST 
o0ci 3 00 33F3 a7? wvi FIGtEXTsX*00 ° *00* TO FTG OESS 3C 00 33FC 545 “vi FROFEXNT oX*00° *oo0* TO FBO 
oocs co 87 2BAA 478 8 LETG LOAD FTG % O59 CO 87 268A 546 8 LcFso Ltoao F60 
opcs co EF 2FEB 479 8 SFTG READ BACK FYG REG oesD co 87 2FCcS Sa? 8 sFaa READ GACK FBO REG 
280 3% 5468 * 
o0cN 3D 00 330E 461 cul TOP IN*s X*00* COMPARE RESULTS 0€61 3D 00 330€ 5a9 cut! 10PIN 2x? 00° COMPARE RESULTS 
op01 co 61 2986 482 ee NORMN IF GK GO TO NEXT TEST 0E6S CO 81 2988 $50 BE NORMN IF OK GO TO NEXT TEST 
opps CO 87 2A07 as3 8 ERRPRT PRINT ERROR AND HALT oE69 CO 87 2a07 $51 8 ERRPRT PRINT ERROR AND Walt 
oDdDgs 02 cops 484 oc xLi*o02* ERROR CODE 5090 Of&6D 02 oe«6D $52 oc xL1*02° 
ODDA 33F3 eppe 485 oc AL2 (FTG+EXT ) CESGE 33FC oESsF 553 oc AL2 CF BOTEXT 3 
opoc 33DE o00D 486 pc AL2C IOPIN) O€7O 330E OE71 S54 oc AL2ZCI OPIN} 
as7y * ie 555 * 
abs & a 556 * 
GOODE cO 87 2999 489 8 BGNTST START TEST oEe72 CO 87 2999 ss7 8 BGNTST START TEST 
oDEe2 3c FF 33F3 490 “vi FIGSEKT aX * FFP TEST DATA OE76 3C FF 33FC 558 “avi FROFSEXTs X*FF * TEST DATA 
ODE6 CO 87 2BAA a91 8 LFETG &3A0 FTG ; OETA CO 87 288A ss? B cFeo LOoaD FEO 
ODEA CO 87 2FES a92 8 SFTG READ FTG BACK OE7E CO 87 2FC8 560 8 sFeo0 READ FBO SACK 
ODEE 30 FF 330E 494 cur 10P TN eX*EF * COMP RESULTS &. O€82 30 FF 33DE 562 cul LOPIN Xt FF* COMP RESULTS 
epF2 ce 81 29868 495 BE NORMN GO TO NEXT TEST ; oFs6 co 81 2988 563 BE  |§$_ NOGRMN GO TO NEXT TEST 
ODF6 CO 87 2A07 4396 8 ERRPRT PRINT ERRGR AND act Spe GEBA CO 87 2A07 564 8 ‘ERRPRT PRINT ERROR AND HALT 
ee ee, CDFA 02 OOFA 497 oc xL2*#02° ERROR CODE SO90 ; tea oOFBE 02 ofFeE 565 oc x? 2°02" 
ODFB 23F3 opFc 498 oc AL2 CE TGSEXT 3 : ofSeF 33FC oe90 566 oc AL 2ZCFOOCEXT 9 
OOFD 330E ODFE 499 oc AL2UTOPINS i 2 OE91 33DE CES2 S67 oc at2CTOPIN? 
soo * : Cs S66 * 
oorr co B87 2999 501 8 GGNTST START TEST : CES3 CO 87 2999 569 8 BGNTST START TEST 
0€03 CO S87 3118 5902 8 sos3 GET TOP eRRorRSsS { € OES? CO S87 3118 $70 8 so0s3 GET 10° ERRORS 
s03 « : $71 ¢ 
OFO7 26 04 33DE 504 TSN LTCPIN.X*04* D REG ERROR? ! CESB 38 04 33DE $72 TAN TOP INeX*04" oO REG ERROP? 
o€0B CO 10 2986 505 eT NORMN -) @R IF NO ERROR tye oESF co 10 2988 573 et NORMN ‘BR 1f wO ERROR 
OE OF CO 87 2A07 S06 8 ERRPRT PRINT ERROR AND HALT a OEA3 CO 87 2A07 S74 8 ERRPRT PRINT ERRGR AND HALT 
Q£13 22 O£13 SO7 oc xL2* 22° ERROR CODE S992 : OFA? 22 OFA? 575 oc xL1°22¢ ERROR CODE SO0B2 
0E14 33F3 GE15 508 oc AL 2 CETG+EXT 3 . a OEAS 33FC OEAS S76 oc AL2CFBOFEXT) 
O£16 330E o€17 S09 o¢ AL2CTOFIND ' §, CEAA 330€ ofas ST? -o¢ AL2C TOP IN) 
S10 * 1 576 * 
0618 CO e@7 2999 $11 8 OGNTST START TEST aes oeac CO BF 2999 579 8 ecntst START TEST 
OF1C 32C 01 33F3 512 AVI -FTGFEXTX°O1* TEST DATA ok 0EBO 3C 01 33FC S80 MVE «- FBUSEXT eo X*01° TEST DATA 
CE20 CO 87 Z2BAA $13 e LETG LOAD FTG REG ; 0€B46 CO 87 2B8A 581 8 Leso ~gQaD FEO REG 
OE2% CO a7 2FEB $14 8 SFTG READ FTG BACK i o€es co EF 2FC8 582 8 sFBo READ FBO BACK 
pE28 CO B87 3116 515 8 sos3 GET 10P ERRORS re oeBc CO 8&7 3128 583 8 $083. GET 10P ERRORS 
si6 * j $84 * 
o&2C 38 04 330E 517 TBN 10PTNex*0e* D REG ERROR? CECO 38 04 33DE s8s TeN IOP IN.x*0a* D REG ERROR? 
oF 30 CO 10 2968 S18 SBT NORMN BR IF NDB ERROR TO NEXT RTNEe BI oECa. CO 10 2988 S586 eT NORMN ‘eR TE NO ERROR TO NEXT RINE} 
‘ 0€34 CO 87 2A07 S19 8 ERRORT PRINT ERROR AND HALT : oEecs CO 87 2A07 587 8 ERRPRT PRINT ERROR AND HALT 
0£38 22 of3e S20 oc xL2° 22° : oecC 22 cfcc $88 pc xL2¢22" error CODE S062 
0E329 33F3 OESA 521 oc AL2CFTGFEKT) ' OECD 33FC o—ECE 589 oc AL2Z(FBOCERT) ef 
OEF38 33DE oe3C 8065522 oc AL2CTOPIND . GECF 330€ CEDO 590 oc AL2C IOP IN? 
S523 * — S91 * 
0£30 CO 87 0216 S24 8 LINK NEXT RTNE - ik.  G£02 CO BF 0216 $92 8 LINK NEXT RTNE 
$25 * : 593 ® 
S26 1 £94 
$26 ‘ C3 594 3 
OE41 OA O€41 527 RTNOA oc RLI*OAP ROUTENE OA NOT USED : OFDS OC CEOS S95 RTNOC oc xe s°oce ROUTINE OC NOT USED 
of£e2 00 o&42 $28 oc xu2°00° bw ete CEDS 00 OFD6 596 oc xL2°00° 
0E43 OE49 c£aa «6529 oc AL2 CATNO EB) NEXT ROUTINE ADDRESS iS oeC7? OECD oc0e 5897 oc AL 2CRTNOD? NEXT ROUTINE ADDRESS 
CE4S CO B7 0216 $30 8 LInk : oFD9 CO 67 0216 598 e CINK 
~€ - 
DaTE ISAUGTS OSNOV7TS PROG ID ciS-1 DATE 1SauG7TS OSNOV7S PROG 10 cis-2 
Ec NO. 827785 e27827 PAGE 5 ea NQ. 0827785 e27e827 PAGE sa 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
ee PAGE GA 


cis 3340 ATTACHMENT TESTS - MOD 12 


i 
ie 2340 ATTACHMENT TESTS ~ MOD 12 . 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


600 sousvesanasenssnensneccectssee seeeneneseatanseseatereeeens “easeeseees es | iG 666 pecdeeneseaseesaeeaneeeesaseeaeseaneneeesssesenas sensseses sone seseeeeee 
601 * *| 669 * * 
602 FTO REGISTER TEST * 7 670 *% REGISTER ADDRESS TEST * 
603 * «| € 671 * , * 
604 ga ececesesseseeeseesssereeeeesessueesseneessseseeseseeesouasssessesess| 672  eseaeeeessesdueseROSeSsssSeEhSeSesSeesaneseeeresesee sees esse ease seers 
605 * ss 673 ® 
OEDD OD OE0D 606 RINOD oc xL1*op* ROUTINE OD | os OF71 OF OFTL 674 RINOF oc XL1 OF * ROUTINE OF 
OEDE 00 OEDE 607 oc xL2°00* | or72 00 OF72 675 oc _¥L2°00° 
: OEDF OFES O£FEC 608 DC =—s_ ALS] CRTNOE} . NEXT ROUTINE ADORESS e OF 73 100A OF74 676 oc AL2 (RTN10) NEXT ROUTINE ADDRESS 
609 * a 677 * 
OEE! CO 87 2685 610 8 BEGIN ROUTINE INI TEAL TZATEON oF75 CO e7 2865 678 8 BEGIN ROUTINE INITIALIZATION 
611 *% oh . 679 & 
OEES CO 87 2999 612 8 BGNTST START TEST |< OF79 3C 00 3460D 680 mvi EXT431eX*00* CLEAR. EXTERNAL 
OEES 3C 00 33F4 613 MVI 4 «=- FTOFEXT 2 X* 00° #00* TO FTO i OF 7D OC 1E 340C 3400 681 MVC = EXT #30031 26 EXTe31 ' REGISTER LOAD AREA 
OEED CG 87 2B9A 614 8 LFTO LOAD FTO es 682 7 
OEF1 CO 87 2FDS 6r5 8 sFTo READ BACK FTO REG . oFe3 3C O05 33F3 683 MVI 0 FIG#EXT. X405* OAD 
616 ¢ i { OF87 3C 06 33F4 684 avi FTOSEXT oX*06* each 
OEFS 3D 00 330E 617 cur YOPIN»X*00* COMPARE RESULTS i OF8B 3C OD 33F8 68s MVI  - FIR4EXTeX*0D* € XTERNAL 
OEFSO co 81 2986 618 BE NORMN 1f OK GO TO NEXT TEST OF SF 3C OF 33FC 686 BVI 0 FBOFEXT X*OE* REGISTEP 
OEFD CO 87 2A07 619 e ERRPRT PRINT ERROR AND HALT ; OF93 3C OF 33F0 687 MVI SCNEEXT 0 X* OF * wITH ITS 
OFO1 02 of01 620 pc xL1°02° ERROR SODO bog OFOT 3C 13 3403 688 Mv I OXC+EXTs X°13* OWN ADRESS 
OFO2 33F4 of03 621 oc AL2CFTOCE XT? ps cas * 
OF 04 330€ OFOS 622 oc ALZCIOPIN) \ oF9S CO 87 2999 690 8 BGNTST START TEST 
623 @ , iy 691 * , 
6246 * a  OFOF CO BF 2BAA 692 8 LFTG LCAD 
OF 06 CO 87 2995S 625 8 OGNTST START TEST i OFAS CO B87 289A 693 8 ' Leto EXTERNAL 
OFOA 3C FF 33F4 626 MVI | —- FTOCEXTOX* FFE TEST DATA OFA? €O 87 26BA 694 8 LFTR REGISTERS 
OFUE CO 87 289A 627 8 LFTO , LOAD FTO OFAB CO 87 286A 695 8 LFB0 
OF12 CO 87 2FDS 628 e SFTO READ FTO BACK OFAF CO 87 26CA 696 8 LSCN 
629 8 ' ~.  OFB3 CO 87 2BFA 697 8 LOxc 
OF16 30 FF 33DE 630 cut TOP IND X*FFE COMP RESULTS pee? 698 * 
oF14 CO 61 2988 631 GE NCRAN GO TO NEXT TEST OFB7 3¢ 00 342D 699 TSTADR MMVI EXT IN4320X* 00° CLEAR EXTERNAL 
OFIE CO 87 2A07 632 B ERRPRT PRINT ERROR AND HALT | .-. QOFBB OC 1€ 342¢ 3420 ‘7900 MVC EXTENS30(31 DeEXTINGS1 REGISTER SENSE AREA 
ep caae OF 22 02 oF22 633 oc xL1*02° ERROR SODO \ A 701 * 
OF23 33F4 OF26 634 oc AL2CETOCEXT? i OFCi C9 87 2FES 702 | e SFTG NOW READ EACH REG BACK 
oF25 330E oF26 635 oc AL 2CIOP IN) ioe orcs ¢oO 87 2F08 703 8 SsFTO 
636 * /S.- OFCOE CO BT 2FFE 704 B ‘SFTR 
OF27 CO 87 2999 637 8 BGNTST START TEST oFCcD Co 87 2FC8 705 8 Sfs0 - 
oF28 CO 87 3118. 638 8 sos3 GET IOP ERRORS byes offi CO 67 3078 706 8 SSCN 
; 639 * \  OFDS CO B87 3086 707 | 8 SOXC 
OF2F 36 04 330E 640 YBN tf0P IN» X*0a* D REG ERROR? a Ud: 708 * 
oF33 CO 10 2986 641 eT NORMN GR IF NO ERROR Po OFDS OD 1F 3400 3420 709 CLC - EXT 431032) eEXTINES2 GO TO ERROR PRINT TF CONTENT 
OF37 CO 87 2A07 642 8 ERRPRT PRINT ERROR ANO HALT 4.>  9fpF co 01 2008 % 720 SNE ADRERR - OF ANY REGISTER IS INCORRECT 
OF 38 22 oF3B 643 pc xL1*22° ERROR SOD2 ‘s 711 ® es 
OF 2C 33F4 OFID 644 pc AL2 CFTOFEXT i 7,  OFE3 3e.04 33CE 712 - TBN | ENDsSWA SEE IF THIS TS THE 2NO ‘TIME THRU 
OF3E 33DE OF SF 645 oc AL2CIGPIN) gee OFE? CO 10 101C T13 st ADROUN BR IF IT IS THE 2NO TO Exit 
646 * OFEB 3A 04 33CE 714 SBN INDsSWA TURN ON SWITCH 
oFao Co BT 2999 647 8 SGNTST START TEST } oye 715 ¢ 
OFS4 3C 01 33F4 648 MVI  FTOCEXT.X*01" TEST DATA iS, OFEF CO 87 2BFA 716 8 LDXC LOAD REGS IN THE REVERSE 
OF 48 CO 87 Z2B9A 649 8 LFTO LOAD FTO REG OFF3 CO 67 2BCA T17 8 LSCN ORDER WITH THE SAME DATAs 
oFaCc CO 87 2FDS 6S0 8 sFTo READ FTO BACK | OFF7 CO 87 286A 718 6 LFBO THEN READ THEM AGAINe 
oFSO CO 87 3118 6s1 e spDs3 GET 10P ERRORS i OFFS CO 87 28BA 719 8 : LFETR : 
652 * OFFF CO 87 289A 720 a LFTO 
OF54 38 04 330E 653 JBN IFOPINeX*04* D REG ERROR? X 1003 CO 8&7 2BAA 721 8 LFTs 
oFse Co 10 2988 654 eT NGRMN BR IF NO ERROR TO NEXT RTNE~ 4 1007. CO 87 OF B87 722 8 TSTADR BR BACK TO READ THE REGS AGATN 
OFSC CO 87 2A07 6$5 8 ERRPRT PRINT ERROR AND HALT 723 * 
OF EO 22 OF60 656 oc xL1i¢22* ERROR 5SOD2 ¢ 1008 CO 67 2A07 724 ADRERR 8 ERRPRT PRINT ERROR AND HALT. 
OF 61 23F4 OF62 657 oc AL2CFTOCEXT ? e 100F 06 200F 725 oc XL2*06° ERROR NUMBER . $0FO 
OF63 330E OF64 656 oc AL2( TOPIN) 1020 3413 1011 «726 oc AL2 CEXT INGFTS) ERROR MESSAGE AREAS 
* 659 * 4032 3414 1013 727 pc AL 2CEXTINGF TOD 
oFeéS CO 87 O23E 660 8 LINK NEXT RTNE ss 1014 3418 1015 728 pc AL2CEXTINSFTR I 
. 661 * 1016 341C 1017 729 oc AL2 CEXTENtFEO) 
662 ee 1018 3410 1019 730 oc AL 2CEXTINGSCN) 
Ns €62 * 102A 3422 1016 «731 oc AL2 CEXT IN@DXC? 
OF69 OF OF69 663 RTNOCE oc XL1°OE* ROUTINE O€ NOT USED 732 % eo FS 
oFéa 00 ' OF6A 665 oc XL3 °00* a: 201C 38 O04 33CE 733 ADROUN SBF INDe SWA RESET 2nD PASS ENDICATOR 
oFeB OFTI oFec 665 oc AL2CRTNOF 3 NEXT ROUTINE ADDRESS ; ‘..- - 4020 CO 87 2988 734 8 NORMN RINE CINK 
OF6D CO 87 0216 — 666 8 LINK : 735 * 7 
ic : , 
DATE 1SAUGTE OSNOVTS PROG 1D cis-1. DATE 15AUG75 OSNOVT?S PROG 10 C1591 
EC NO. 827785 ' 82782 PAGE 6 EC NOe 827765 eore2? 
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e151 3340 ATTACHMENT TESTS - MOD 12 C251 2240 ATTACHMENT TESTS - MOD 32 


wr 





ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC GBJECT CODE AODR STMT SOURCE STATEMENT 
736 * =. RESTORE THE REGS TO ZERO a8 748 +E0SCSELSESSESSE ERE DONEDD SEESEE ESOS SOESI SSS ENSSEERESS TSS ESOS NSS SSEONSSS 
737 * t 7a9 * 
1024 3C 00 340D ae Mv I EXT4+31ex?008 é 750 * STEST® EXTERNAL REGISTER TEST BY SETTING EACH BIT OF FEO-REG * 
qo2e oc 1€ 340C 340D 739 mvc EXT 430 (31 2 EXT4+31 pe TE x AND PERFORMING *TBON® OR *TEOF*® AS REQUIRED * 
102€ CO 87 2BFA 740 8 LOxc ZEROING 752 %* . . 
1032 CO 87 2BCA 7al 8 LSCN c 753 * ERRORS: 5100 - TBOF FAILED . “ 
1036 CO 87 286A 742 8 trea Out , Bae die : 5101 ~ TBON FAILED ze 
as eae eo pa eeek tae ; care Si REGISTERS Loge 756 AKREAKRRALEAES HBRORAESRERERESSEESSENESE SEER EBEEHS SS HESS RAEBES SHE SS EESSEEERESS 
042 CO 87 2BAA 745 8 LFTG pt aed 7S7 x 
tose CO 87 0216 746 8 INK NEXT RTNE : 104A 10 1044 758 RTN10 oc tae, ROUTINE 10 
° 1048 00 2048 64759 oc xLrFoo08 
ms 204C 1152 1040 760 pc AL2CRIN1I) NEXY ROUTINE ADDRESS 
j 7é6él * : 
104E CO 87 2885 762 8 BEGIN 
t 763 2 
1052 -¢€O &?7 2EE3 766 e Lcst 
1056 0000 1027 765 oc XL2*° 00008 
* 766 * TEST BIT O OFF 
: 1058 O8AE7F 105A 767 oc XL3*O8AE7F* LEI FROex*7F* TURN OFF BIT O 
fa 1058 186€03 105D 768 oc XL3*°186E03* TSOF OeFB0.03 BR IF BIT O OFF 
10SE 100018 3060 769 pc XL3*100018* 8B 0018 ELSE GO TO ERROR LOC 
770 * TEST BIT 1 OFF 
0 1061 O8AEBFO96E061000 1069 771 oc XL9 * OBAEGF 096E 06100018 * 
x 1069 18 771 
. 772 * TEST BIT 2 OFF 
Pe 106A OGAEDF OAGE091000 1072 773 oc XL9 * OSAEDFOAG6EO9I00018* 
a 1072 18 773 
774 © TEST BIT 3 ¢ ALL BITS 2 OFF 
ee 1073 28AE00186E0C1000 1078 775 DC Xt9*18AE001 E6E0C100018* 
i Sa. 1078 18 775 
776 * TEST BIT 4 OFF 
C 107C CSAEF TOCG6E CF1000 2084 777 oc XL9* OBAEF70 C6EOFI00016* 
oo eee Ree \ - 3086 18 777 
: 778 * TEST BIT S OFF 
Does 1085 OSAEFB106E221000 108D 779 pc XL9* OB AEF G1 DSE1 210001 BF 
‘XS 3060 18 779 
: 730 © TEST BIT 6 GFF 
os 106E OSAEFDOESEIS1000 1096 781 oc XL9O* OBAEFOCESGEI 510001 6° 
Set 1096 38 781 
782 3 ~— TEST BIT 7 OFF 
C 1097 OSAEFEOF6E181000 109F 783 oc XLO* OGAEFE OF 6E218100018* 
a 109F 136 783 
784 2 
Fam 10A0 18AEFF 10a2 785 oc XLS°1SaEFFe 8 BE FBO. xX*FF® 
Ke 10A3 186218 as0AS 786 oc XL3*286E16* TBOF OveF E0018 SHOULO NOT BRANCH 
1006 COODI1A 10a8 767 oc XL3* COOOL At 8 001A OK HANG 
C 10A9 300018 2008 788 oc xXL3* 200018¢ 8 0018 ERROR HANG 
a 10AC FF 20ac 626789 oc XL * FES TERMINATOR 
790 * 
Eé 10A0 CO e7 2999 793 8 @GNTST 
* 792 * 
21081 CO eB? 2D0F 793 e. taL.so 
Nghe O 30B5 00 1085 794 oc ALI CMIAROD 
sere ge rr , , it 3086. 00 1086 795 oc xL2°00° 
ae 796 * 
ots, 1087 CO 87 3100 797 8 roPco 
Ske 796 * - 
2088 CO 87 2E73 799 e SAaLso. HALT 10Pe GET MIAR 
ot. 10eF 00 108F 800 oc ALI CMTAROD : 
© Net aot @ ot 
* 10CO 30 1A 330E eo2 CLI ECPINe eZ AP TeGFF OK 7? 
C 10c4 F2 81 05 ‘803 JE TaGNOS SR IF YES 
in 604 * 
£0c? CO 87 2A07 _ 805 8 ERRPRT 
C 10¢C3 00 10C8B 806 . oc x1 O08 . ERROR S200 
- 807 « | ; 
10cc CO Ss? 2988 e808 TS0N0S 8 NORMN 
: , ; , - 
DATE 15AUG7S OSNOV7S . PROG ID c1s-15 OaTE ISAUGTS OSNOV7S ; , PROG 10 <1s-3 
, EC NO. 827785 827827 PAGE 7 gre NO. 827785 227827 pice a 


ie 
i'@ : 
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PAGE 6. PAGE 8a 


c151 2340 ATTACHMENT TESTS — MOD 12 e151 3340 ATTACHMENT TESTS - Mod 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT 
s09 ' & 860 ceveenonsarscosccssacsensacenenscussnsceacnsessenasssenreeeeeeeeeeee, 
609 : 661 * = 
810 * i os B62 * CHECK FOR HOT ERROR LATCHES * 
Bil * Now TEST *TBON® CAPABELITY : c , 863 * * 
e12 * : ‘ B64 * peseeneereccsesassacaconansacoasssrencucasesoancas ares ee sess seeeelT"" 
1000 CO 87 2EE3 813 eB . cst a 865 * 
1004 9000 1005 614 oc xt 2*0000° * 1162 11 41152 866 RTH11 pc xEie1ie ROUTINE 11 
B1S * TEST BIT O ON 1153 00 213 867 oc XL1 00° 
. 1006 O8AEBO 1008 616 oc XLZ*OBAEBG® LBI FBOexX*60" TURN ON BIT O gs 4154 219A 4155 868 pc AL2CRTNI2) NEXT ROUTINE ADDRESS 
1009 O06E03 ~ 1008 617 oc XL3*006E03* TBIN OoFB0.03 BR 1F BIT O ON os 869 * 
jooc 100038 YODE 816 oc xL3*2100016* 8 0018 ELSE GO TO ERROR LOC : 1156 CO 87 288¢ 870 8 BEGIN RTNE INIT 
819 * TEST GIT 1 ON Bt g e771 * 
LODF OBAES0126ECE1000 10E7 820 oc XLO*O8AE401 16606100016" 115A CO @7 2999 872 B BGNTST START TEST 
10€7 18 620 115€ 3C 80 33F8 873 MVi FIR+EXTsX* 80° TURN ON ERROR RESET BIT 
821 *% TEST BIT 2 ON 1262 CO 87 2BBA 874 8 LFTR SET INTO FTR 
10E6 OBAEZ0126E0S1000 10FO 822 oc XLO* OBAEZ01 26E0910001 6° : E75 * 
10FO 18 822 1166 CO 87 3141 876 B LxoPpt RUN THE 1OP TO STROBE ERRORS 
623 * TEST B1T 3 C ANY BIT ) ON 116A O80000FF 1160 877 pc XL4&* OBOOOOFF * 
LOF1 OBAELOC36E0C1000 10F9 824 oc XL9O* OBAE10036E0C10001 B* .. 878 * 
10F9 18 824 ; 879 * CHECK ADS REGISTER 
825 * TEST BIT 4 ON - 880 * 
1OFA OBAEDB146E0F1000 1102 826 oc XL9O* OBAE 081 46E OF 10001 B* 116E CO 87 3006 8Bi 8 sa0Ss REAC ADS REGCERRORS ? 
1202 16 826 41172 39 10 33DE 882 TBF TOP IN®X*10° CHECK FOR ERRORS-ALL SHD BE OFF. 
827 * TEST BIT 5 ON 1176 CO 10 2988 883 BT KORMN BR IF NO ERROTS 
1103 O8AE04056E121000 11068 626 oc XL9 * OBAE 04056E 12100018* . 117A CO 87 2A07 884 8 ERRPRT PRINT ERROR AND HALT 
11086 18 826 WL7E O01 117€ 885s pc XYLEFO1* ERROR CODE $110 
. e29 * TEST BIT 6 ON 7 117F 33DE 1180 886 oc AL2CTOPIN) 
110C OBAED2166E251000 1214 850 oc XL9 * OBAE0N2166E1 5100018° he, 887 * 
1134 18 @30 eBe * CHECK HES REGISTER 
831 * TEST BIT 7 ON r 889 * 
1115 OB8AED1I76E1B1000 2110 852 oc XL9 *08AEO11 76E28100018* a 21181 CO 87 2999 890 8 BGNTST START TEST 
1110 18 e32 3185 CO 87 3068 B91 e SHES GET THE REST OF THE ERRORS 
833 * Pak 1189 39 ES 33DE 892 TSF TOP IN» X*ES* TEST FOR ERRORS 
ie L11E 18AEDO 1120 634 oc XL3*iBAEGO* Ler FBO +x*00* how 1180 CO 10 29686 893 et NORMN BR IF NO ERRORS TO NEXT TEST 
1121 006€18 1123 635 pc XL 3* OO6E1B* TBON O+FBO018 SHOULD NOT SRANCH 12191 CO 87 2A07 894 B ERRPRT PRINT ERROR AND HALT 
1124 OOCOQIA 1126 8636 pc XLB*OOO0O01A* 8 OO1A OK HANG ne 1195 10 21195 895 pc xL1f®10° ERROR CODE S11! 
1127 10001B 41129 837 oc XxL3* 10001 8* 8 00186 ERROR HANG a hg 896 * 
112A FF 112A 838 oc XLI*FFt TERMINATOR : 1196 CO 87 0216 897 8 LINK NEXT RTNE 
839 * } e908 * 
1128 CoO 87 2999 840 8 GGNTST : © 
Bai * : 
212F CO e7 2DDF 842 e LALSD te * 
1133 00 1133 9643 oc ALI CMIARO) G 
1134 00 1136 844 oc xL21°00° 
84s * f 
1138 co 87 3100 646 8 x0PGO0 oe 
Bavy * : 
41139 CO 87 2E73 848 8 SALSD HALT 10P. GET MIAR a 
113D 00 233D 849 oc AL LCMIARO} Net 
B50 * na 
113€ 3D 1A 330E esi cul LOPT NeXt 1AS TBON OK ? pr 
4142 F2 01-06 es2 JNE TAHOFO7 BR IF NO : +e 
e53 * 
11465 co 87 2988 eS46 8 NORMN es, 
1349 CO 6&7 0216 855 8 i INK s 
; es6 * : 
2114D CO B87 2A07 eS7 TBOFO? 8 ERRPRT 
1162 10 4151 656 oc xL1°10° ERROR 5101 € 
£: 
= 
DATE 1§auGc7s osSnovTs PROG ID cis—t DATE 25AUG75 OSNOVTS . ‘PROG 10 C1S-1 
EC NG. €27785 e27627 : : PAGE ; 8 cr NO. 827785 e27827 PAGE ea 
- \ t —_— 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


c1s1 


ERR LOC OBJECT CODE 


119A 
1198 
‘ 119¢ 


119€ 
11Aa2 
VIA 
TIAA 
LAE 
1162 
23186 
11364 


116E 
11c2 
33¢c5 


11¢6 
Tica 
11CE 
1192 
1106 


1107 
1108 
11 OF 
11e3 
TiE7 


11E6 
11EC 
110 
11F 8 
116 


11F9 
11FO 
1201 
1205 
1209 


120A 
1 20E 
1212 
1216 
121A 
121€ 
1221 
1222 
1226 
122A 
122€ 
1232 


DATE 
EC NOe 


2360 ATTACHMENT TESTS - MOD 


12 
oo 
123F 


co e7 2885 
co 87 2999 
3c 02 33F8 
co a7 288A 
3c 00 33°C 
co 87 286A 
3Cc 80 33F3 
co 87 2BAA 


co 87 3141 
080000 
FF 


co 87 3008 
38 06 330E 
co 10 1107 
co 8&7 2A07 
oo 


co 87 3118 
38 04 330€ 
co 10 32€8 
co e@7 Z2a07 
10 


co e7 3066 
38 06 33DE 
co $0 11F9 
co 87 2a07 
20 


co e7 3118 
38 04 330€ 
co 10 2988 
co 87 2A07 


co e? 2999 
3c 60 33F8 
CO 67 288A 
Co 87 268A 
co 87 3143 
a80000 

FF 

co 87 3008 
38 08 330E 
CO SO 29BE 
co 87 2A07 
ao 


2SAUGTS 
27785 


apoR STKT 


LIOA 
1398 
1390 


11¢c4 
2acs 


1106 


11€7 


11F6 


1209 


1220 
1221 


1232 


OSwOVTS 
- g2vee? 


900 


901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 

912 
933 
914 
9158 
916 
917 
918 
919 
920 
921 

922 
923 
924 
$2s 
926 
927 
928 
929 
330 
931 

932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
9Ss0 
951 
952 
953 
954 
985 
956 
987 
988 
989 
960 
961 

962 
963 
964 
9635 
966 
967 


PART Ne 8287607; 
PaGE 9 
i2 
' 
SOURCE STATEMENT 
secuncocceseaesseessesisss400a0SeeS04# S20GH20429420S4 928994 8229988099 | | 
* *! 
* TEST BUS OUT PARITY CHECKER «| 
* *) 
ED GREAERSERATEOBSETAEBEES 


= 


R™N1i12 oc xLisi2¢ ROUTINE 12 
oc xXL1*00* 
oc AL2(RTN13) NEXT ROUTINE ADDRESS 
= - : 
8 BEGIN RTNE INITIALIZATION 
8 BGNTST START TEST 
“vi FIREEXTe X9025 TURN ON THE INVERT PARTTY 
8B LETR BIT SG BAD PARITY CAN BE 
MVI - FBOCEXTs X* 00° PUT IN THE FBO REG. 
8 treo *00* WITH BAD PARITY TO FBO. 
MvVI FIGtEXTex*so° TURN ON FILE TAG GATE TO GATE 
8 LFTG BOPAR ERRORS 
x 
8 LxoPT RUN THE 10P ONE CYCLE TO 
oc xXtL3*080000* CAUSE SENSE STROBEe{NO-OP INSTR) 
oc XL1* FFE 
* 
8 SADS READ ADS REG TO CHK IF ERR OCCURRED 
TSN 1OPINex*08* CHECK FOR SGOPAR ERROR j 
eT BOPAR1 BR IF EXPECTED ERROR OCCURS 
8 ERRPRT ‘PRINT AND HALT 2 SOLID ERROR 
oc xL1* 008 ERROR NUMBER 5120 
‘ : 
* TEST FOR © REG ERROR (BAD PARITY GENERATOR ? 
* 
BOPARI e scs3 GET IGP ERRORS 
TON LOPINeX*04* TEST FOR D REG ERROR 
BT BOPAR2 NEXT TEST 
8 ERRPRT PRINT AND HALT If SOLO 
pc xL1°70° ERROR NUMBER 5122 
* 
* CHECK THAT THE ERROR 1S IN THE HES REG. 
® 
BOPAR2 € SHES GET HES REG 
TBN TOPIN.»x* 06° TEST FOR *ANY ERRORS 
eT BOPARS. BR IF ON TO NEXT TEST 
8 ERRPRT 
oc KL1* 20° ERROR NUNBER S222 
¢ ‘ 
* CHECK FOR C REG ERROR 
. ; 
BOP ARS e sos3 GET 10P ERRORS 
TBN LCP ENeX*048 TEST FOR O REG ERROR 
BT NORMN 
8 ERRPRT PRINT ERROR AND HALT IF SOLID 
oc xL2° 30° ERRORe ERROR NUMBER 5123 
* - 
* Now SEE If THE ERROR wWlit RESET 
* 
8 BGNTST START TEST 
mvt FIREXT.X"S0* BIT O IS RESET ADAPTER CHECKS 
8 LETR 2k 
8 LFeo | PUT GODD PARITY IN FBO 
8 LxoPr RUN ONE 10P CYCLE TO 
oc xL3*080000° CAUSE SENSE STROBE 
oc XLi* FF TERMINATOR 
8 SADS GET ADS ERRGRS 
TeN TOP IN+xX* 08° TEST FOR BOPAR ERROR 
eF NORMN GO TO Exit 
8 ERRPRT PRINT AND HALT IF SOLTO ERROR 
oc xL2*80° ERROR CODE $124 
2 


te eEREEAEERERERERERESR SEER SE EE AE EE OBER BE EAEEEES 


PROG tO 
PAGE 


t 


| 
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| 
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ERR LOC GBJECT CODE 
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1233 3¢ 00 33F3 968 
1237 CO 87 2BAA 969 
1238 CO BY 0216 970 


ry ey: 
Ss ig 


oO 


ak 


s 
Yeo! 


DATE 


Cc NGe 


as 


OSNOVTS 
e27827 


ITSAUG TS 
827785 


MvVI 
8 
8 


ADOR STMT SOURCE STATEMENT 


FIGtE XTs X*00° 
LFTG 
LINK 


PART NO. 
PaGE 
TURN OFF TAG GATE 
NEXT RTNE 
PROG ID 
PAGE 


4247607 
OA 


c1S-1 
9A 
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12 


PART NGe 424760607 


PAGE 16 
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c1s1 


3340 ATTACHMENT TESTS = MOD 


12 


SOURCE STATEMENT 





PART NOs 
PAGE 


4247607 
TOA 





i 
i 
1 
| 
4 
: 
ERR LOC OBJECT CODE ADDR STMT SCURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT 
a } o 
972 ae Hea sake si otc ae ER AKER EEE KKK E EKKEEEKERKEEEERE EKEKARKE KKEKEKESRARAAES | & 1040 * | 
975% ; =. -22CD CO a7 3008 1041 B SADS GET ADS ERROR REG AGAIN 
O74 % TEST FOe Fle AND FBI USING DEAGNOSTIC GATING * 1201 38 01 33DE 1042 TEN TCPINeXt 01° TEST FOR FI ERROR 
975 * *, 12DS CO $0 12E2 10423 8F RINYZE BR IF NO ERROR B 
$78 Se tee He a A RE AEE AK AE EERE EERE ARTE RE EK KE AEE EERE E KE EEEREEKRERERE EE 7209S CO B87 2AD07 1044 8 ERRPRT ‘ 
arte tos 12DD 32 120D 1045 pC XL1° 32° ERROR CODE 5133 
1227 13 123F 978 RTNI3 oc xLL913" ROUTINE 13 os 12D€ 33F0 120F 1046 OC = AL 2C FEI+EXT) 
1240 00 1290 979 oc xL2* 00° 12EO 33DE (12E1 1047 DC =AL2CTOPIN) 
. 1241 1334 1242 980 oc AL2(RTN14) NEXT ROUTINE ADDRESS 1 pen, 1048 * 
981 * te 1049 * ALTER TEST PATTERN AND GO BACK TO TEST AGAIN 
1243 CO 87 2885 982 B BEGIN RTNE INIT i 1050 * 
1247 3C CO 33F8 $83 ttvt FTR+EXT oX*008% ZERG FTR ! 12E2 3c 00 33FD 105i RTNIZE wvt SCN+EXTs X*00° GO GUT OF FILE XFER MODE 
1248 CO 87 2BBA 984 8 LFTR 12E6 CO 87 28CA 1052 8 LSCN ! 
124F 3C 00 33F0 985 . MVE FBIEXT.X*008 FIRST TEST PATTERN : 12EA CO 87 2988 1083 8 NORMN Loop Test 
1253 CO e?7 2999 986 RTNI3ZA B BGNTST START TEST 12EE OF 00 33F0 33¢3 £054 ALC FBI+EXTs ELEVEN ALTER TEST PATTERN WITH x®23° 
1257 CO 87 2868 987 B Leer DATA GOES TO FBO5s TO FGe TO FI 12F4 CO 20 1253 1055 BNOL RTNISA GO BACK AND EXEC WITH NEw PATTERN 
968 * "AND THEN TO FBI 1056 + OR GO TO NEXT RTNE I 
1258 3C 80 33FB 989 MVvI FTRtEXT eX*80° RESET FTR BIT O Lo. 1057 i 
125F CO 87 288A 990 8 LFTR oe 1057 ; 
1263 3¢ 00 33F8 991 MvI FTR+EXT eX*008 i 1058 *# : 
1267 CO 87 2884 992 8 LFTR P 1059 * TEST BUS<-IN TO FBI i 
993 * 1%. 1060 * ' 
994 * NOW TEST DATA FOR CORRECT PATTERN 12F8 CO 8&7 2999 1061 8 BGNTST i 
995 * 12FC 3C AA 33F0 1062 MVI FRECEXT eX* AAP DATA TO FBI REG ' 
1268 CO 87 2FAB 296 8 sFeal READ FBI REG 1300 CO 87 2868 1062 B LFBI VEA FI ; 
126F OD 00 330E 33F0 997 CLC = LOPINC1 Pe FBIFEXT COMPARE DATA RECOCIOPIN) WITH : 3064 * 
998 * DATA EXPECTED(FBI a 1304 3¢C 10 33F3 1065 MVI  FIG+EXTex'*10* BUS-IN TO FE REG (BUS IN i 
1275 F2 et 09 999 JE RTNI38 TF EQUAL GO TO CHECK FOR ERRORS 1308 CO 87 2BAA 1066 8 LFTG WILL NOT EQ * AAT) 
1278 CO 87 2A07 1000 B ERRPRT PRINT AND HALT If ERROR IS SOLID 1067 * 
127C 02 127C 1601 oc xLi*o2* ERROR CODE 5130 130C 3C 00 33F3 1068 MVE 1 FYG¢EXTex*00* RESET BUS-IN GATE 
1270 32F0 127€ 1002 oc AL2CFBI+FEXT ? DN 1310 CO B87 2B8AA 1069 8 LFETG i 
127F 33DE 1280 1003 oc AL2€ OPIN) 1070 * ' 
1004 * , -_ 1314 CO 87 3141 21071 8 LxoPr : | 
<i 1005 * NOW TEST FOR BOPAR» FBIsAND FE ERRORS —_ 1318 18A200FF 1318 1072 pc 5LGO°LBAQOOFEF*® LBI FHIexX*O0* ( FI -> FBI -- SHD NOT 
2006 * : 1073 * EQ "AA® NOW? Seep een ee Te 
1281 3C &1 33F3 1007 RTNI3B MMVI FTGHEXT.xX*61° ALLOW FEI ERROR AND TURN ON TAG GATE: . 13ic CO 87 2FAS 1074 8 SsFSI GET FBI REG i 
1285 CO 87 2BAA 1008 8 LFTG TO GATE GOPAR ERRORS i &. 2320 3D AA 33DE 1075 CLE tOPINeX* AAS CHECK THAT FBI REG NOT EQ *AA®. 4 
1289 CO 87 3141 1009 8 LxoP! RUN TOP ONE CYCLE TO CAUSE SENSE i 1324 F2 81 04 1076 JE RTN1 3F BR IF YESe ERROR } 
128D 060000 126 1010 pc xL3°080000* STROBE TO GATE BOPAR AND FBT ERRS | -. 1077 * ' 
1290 FF 1290 1011 oc XLI*FF* TERMINATOR ‘| t 1327 CO 6&7 2958 1078 B NORMN 
1291 3C 01 33F3 1012 MVI - FTG+EXT eX*OL* TURN OFF TAG GATE | 1079 * 
1295 CO 87 2BAA 10133 8 LFTG Page 1326 CO 87 2A07 1080 RTNISF OB ERRPRT FIG S DIAG GATE FAILS 
1014 * 1 132F a0 * 332F 1081 oc XL1*40° ERROR 5134 god 
1015 * TEST FOR BOPAR ERROR-NONE EXPECTED i 1062 * 
1016 * ' y=, 2330 CO 87 0216 1083 8 LINK 
1269 CO e7 3008 1017 e SADS 1 #4 1064 * 
1290 38 08 33DE 1018 TEN TYOPIN,.xe os" TEST FOR BUS OUT PARITY CHK i 1084 i 
12A1 Fe 90 O09 1019 JF RIN13C JUMP IF NO ERROR | ol. 1334 14 1334 1085 RTNI46 oc XL 1°34? ROUTINE 14 NOT USED 4 
1244 CO a? 2A07 3020 8 ERRPRT PRINT ERROR AND HALT IF SOLED 1. 335 60 1335 1086 pc xLZ "00° “| 
12A8 12 12a8 1021 pe xLie12¢ ERROR CODE 5132 | 1336 133C 1337 1087 oc AL2ZCRINIS) | NEXT ROUTENE ADORESS i 
12A9 33F0 12AA 1022 oc AL2CFBI+EXT ? ei 1338 CO 87 0216 2088 8 LINK j 
12AB 330E 12Zac 1023 DC —-_ ALC EOPEND ae 4 
109024 i ; 
1025 * NOW TEST FOR FBI ERROR : gt i 
1026 * G a | 
12AD 38 01 23DE 1027 RTNIZC TAN FOPIN. X*01* TEST FOR FBI ERROR { 
12B1 F2 90 OD 1028 SF RTN13D JUMP If NO FBY ERROR ey 
1284 CO 87 2FAB 1029 8 SFSI SET UP STATIC CONDITION FOR CN? 7 { 
1288 CO 87 2A07 1030 8 ERRPRT PROBING ae 5 
12BC 22 128€ 1031 oc XL1°22¢ ERROR CODE 5132 fC: oot 
12BD 33F0 12BE 1032 oc AL 2CFBI+EXT) a eee 
128F 33DE 22CO 1033 oc AL2 CIOPIN) 
1034 * Dg, i 
1935 4 TEST FOR FI ERROR © . 
1036 * Zz 
12C1 3C 02 33F3 1037 RTN13D MVI FIG¢EXTsx*02¢ DIAG SYNC-IN TO CAUSE GATE RE-CYCLE , 
12CS CO 87 3141 1036 8 LxoP! RUN FOP TO STROBE ERR REG © fe § ri 
12C9 OB0000FF 12cc 2039 pc XL4& * OBOOOOFF® 
DATE ISAUGTS OSNOV7TS PROG ID c1S-1 ‘OATE 1SAUGTS OSNOV7S PROG 1D cis-1 
EC NO. e27785 227827 PAGE 10. EC NOe 827785 827827 PAGE 104 2. oe 
ks | 
¢ 


‘ 
saa ot it 





ce 
Ve 











eoeseeenooenenoeeeoneeenoseeeoeeoee ees eee ee 8 @ 


18¥ MAINTENANCE OTAGNGSTIC PROGRAM : apd NOeo 4247607 
‘ PaG 11 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247607 
PAGE ila 


: . ‘ c151 3340 ATTACHMENT TESTS ~- MOD 12 cist 3340 ATTACHMENT TESTS - MOD 12 


ERR LOC OBSECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBSCCT CODE ADOR STMT SOURCE STATEMENT 
! . 1090 O84 88 HEEEEEEREESEEREE EER €EEBREREEEE DES ORRE EERE KERRELERES EERE A RERRERERE: 13¢c9 F2 10 OC 1158 JT FBIOS BR IF VES 
: 1091 * : ™ 1159 * GET HERE IF ERRORS INHIB*TED : 
31092 * TEST FEIe FI AND FTO PARITY CHECKERS we 13¢cc 38 O1 330E 1160 TBN TOPINe X* OF* ERROR OCCUR ? 
1093 * *. 13D0 F2 90 SA 1162 JF Fares BR If NO 
LOOR EHEAKHSEHRAAEGRAKERERALERERRALERERESERE KEHRKAEKKKEEAA KKK KK HRARELKEEKAAKEAKS | 1162 * 
1095 * a 1303 CO 87 2A07 1163 8 ERRPRT 
133¢c 15 133C 1096 RTNI5 oc XLI*75¢ ROUTINE 15 *. 1307 30 1307 ee . a ee as Gieaa ERROR 5159 
1330 00 133D 1097 oc xL1°00* i 
. 133€ 1510 123 1098 oc AL2 CRTNI6) NEXT ROUTINE ADDRESS ae" oe . o1 oo ee FBIOS a oe 3. oe. ? 
1099 * Sy 210 
1100 * TEST FI PARITY CHECKER 7 ico * F esc 
1101 * - i 13DF CO 87 2A07 6 
1360 CO &7 2885 1102 8 BEGIN RTNE INIT : . i3E3 20 13E3 1170 oc xtL1*20° ELSE ERROR $152 
1344 CO 8&7 2999 1103 8 BGNTST START TEST : 2371 = 
1346 3c 02 33F8 1104 MVI FYRFEXTeX* 02° THIS BIT INVERTS PARITY FROM THE f 13E4 3C 00 33F3 1172 FBIO6 MVI FIGtEXT. X* 008 ELSE INHIBIT ERRORS 
134C ¢CO 87 2BBA 12105 B LFTR 1oP BUS OUT ISES CO 8&7 1I3AE 1173 8 FBIO4 AND LOOP 
1350 3C 00 33F0 31106 MvI FBItEXT eX*O00® SET Fear TO *00* 1174 * 
13546 CO 87 28686 1107 8 LFBI FI AND FBI REGS NOW HAVE BAD PARITY -- 1175S * CHECK FI/SFBSI PARITY CHK RESET 
1268 Xx O0€ 33F3 31108 MMVI FYG+EXT «X*O6* OIAG SYNC-IN CAUSES "GATE RECYCLE® eS 1176 * 
135C CO 87 2BAA 1109 8 LFTG : IZSEC 3C 80 33FB 1177 FSIO7 MMVI FTIREEXTs X*80* ERROR LATCH RESET 
1360 CO 87 3141 1110 e uxoPp! RUN THE IOP TO GATE ERRORS INTO I3FO CO 87 2BBA 1178 8 LFTR 
1364 OQ8O0000FF 2367 1111 oc XL4* OBOOOOFF® THE aDS REG , 13F4 3C 00 33F8 1179 MVI FYR4EXTeX*00* TURN OFF RESET 
1368 CO 87 3008 1112 8 sads GET THE ERROR REG 13F8 CO 87 2BBA 1180 B LFTR 
136C 38 O01 330E 1113 TEN IGPINeX*O1°* TEST FOR FI/FBI CHK CUSE *FE*® LEG e 13FC 3C GO 33F3 11812 MVt FYG+HEXT.O TURN OFF FTG 7 
1114 #* TO SET PARITY CK LATCH) . 14¢G0 CO 87 2BAA 1182 8 LFTG 
1370 ¢cO 10 2968 1115 eT NORMN -6O TO NEXT TEST IF ERROR IS ON : 1404 CO 87 3141 1183 8 Lxcer RUN TOP 1 CYCLE 
12116 * ‘aes 1408 O80000FF 1408 1184 oc XL 4&* OSOOOOFF ® 
1374 CO 67 2A07 2117 8 ERRPRT : - 140C CO 87 3008 1185 8 SADS GET ERROR REG ; 
1378 00. 13768 1118 oc xL19008 : ERROR CODE 5150 : 1410 38 01 33DE 1186 TBN I0GPINeX*O1* EXPECT ERROR TO BE OFF 
1119 * a 1414 Co 90 13E&4 1187 BF FBIO6 BR IF YES 
1120 * TEST FI CHECK RESET “ 1188 * 
1121 * 1818 CO 87 2A07 1189 8 ERRPRT PRINT AND HALT IF SOLID 
1379 co 87 2999 1122 B BGNTST START TEST . is 141C 390 I41C 1190 oc xL1*30° ERRGR COOE 5153 
ead, Kul ants 1370 3¢ 60 33FB 2123 MVI FYREXT.X*808 THIS BIT IS CHECK RESET ee 1191 * 
1381 CO e&7 288A 1424 8 tere |. : : 141d Co 87 2968 1192 FBIO0S 8 NORMN 
1365 Co 87 3141 1125 8 LxoPi RUN TOP ONE CYCLE TO GATE ADS REG f° 2193 
1389 C80000FF 136¢€ 1126 oc XL4 *OBOOOOFF * eo 1193 
21127 * 1194 * 
138C co 87 3008 1126 8 SADS GET ERRGR REG . ¢ : 2195 * CHECK FBI PARITY CHECKER WITH ADDRESS *OA®* 
1391 38 01 330E 1129 TSN TOP INS X*01¢ EXPECT TO SE OFF —_ 1196 * 
1395 co 90 2986 1130 BF NORKMN 1421 CO 87 2999 1197 8 @GNTstT : START TEST 
113i « : ra 1425 CO 87 2FB8 1198 8 SFBIA READ FBI USING ADDRESS *OA® 
1399 CO 8&7 2A07 21132 8 ERRPRT PRINT ANDO HALT IF SOLIO x. 1199 # 
21390 10 139D 1133 oc xLi*10° ERROR CODE 5151 1200 * NOW RUN 10P 2 CYCLES. USE TANDI FBIOA.00 TO ADORS FBI *OA*t 
1134 * sy 1201 + 
1135 * TEST FBI PARITY CHECKER USING FBI ADDRESS *02* C 1429 CO 87 3141 1202 . 8 LxoPpt LOAD AND EXEC THE FOLLOWING 
1136 * FI ANO FBI REGS STILL HAVE GAD PARITY 1420 JCEAGO 142F 1203 oc XL3* OOEA0O0® INSTR YS *“TANDI FBI4eX*O0® ADDR=O0A 
1137 * : C 1430 GOEADO 1432 1204 oc x. 3* OCEAOO® INSTR 1S *TANOt FBEX*OG® ADDR=OA 
139€ XxX CGO 33FB 1138 mv FTR+EXT oX*00 ¢ . 1433 FF 31433 1205 oc XLi*FFS 
13a2 CO 87 268A 1139 B LFIR 1206 # 
1140 * Co 1434 CO 87 3008 1207 8 SADS GET ERROR REG 
23A6 CO 87 2999 1141 8 BGNTST . 1438 38 O01 33DE 1208 TBN I0PINe X*01* TEST FOR FEIZFI ERROR 
1142 2 143C CO 10 2988 1209 6T ARGRMN 
IBAA 3C 01 33F3 1143 MVE FTGtEXT ee X*Ot® ALLOW FBI ERRORS oe 1210 * 
13A€ CO 87 2BAA 1144 FBI 04 8 LF TG ‘. 1440 CO &7 2A07 1211 8 ERRPRT PRINT AND HALT IF SOLID 
1145 2. 1444 40 2444 1212 oc xL1° 40° ERROR CODE 5154 
1382 CO 67 2F AB 1146 8 SFerI SET ADDRESS INTO EXTAR TO ALLOW LL 1213 * 
11467 * ERRORS ~ 1445 CoO e&7 2999 2214 : 8 BGNTST START TEST : pals 
1148 * NOW RUN IOP 2 CYCLESs USE TANDE FBI.+00 TG ADDRS FBY REG * O2* 1489 3C 80 33F8 12235 MVI EFTREEXTs X* 80° RESET FEIZFI ERROR LATCH OFF 
1149 7 144D CO 87 288A 1216 8 LFTR 
1366 CO 87 3141 1150 8 LxoPt LOAD AND EXEC THE FOLLOWING INSTR® * 1481 3c 00 3378 1217 MVS FIREXTeX°00® ZERO GUT FTR TO TURN OFF RESET 
136a 10&200 13e8c 1151 oc XL3*IGE200° INSTR IS *TANOI. FBIeX*O0* ADDR=02 3455S CO 87 26BA 12168 B LF TR 
13B0 10€200 $36F 1152 oc XL3* 10E 200° INSTR YS *"TANDI FBIeX*9O0* ADDR=02 C i2i9 * 
23Cc0 FF 33c0 1153 oc XLI°*FRFS TERMINATOR : 1220 * NOW RESET OST-REG BIT 0 CATTACHMENT SUSY) 
21254 % . 1221 * 
13¢1 co 87 3008 1155 8 SadS GET ERRORS AGAIN : / gt 2489 3C 80 33F1 i222 “VI OST+EXT oX*8O* RESETS BIT Oe 2 & 3 OFF CC IGNORE STAT 
1156 *% co 14S0 CO 687 2COA 1223 B Lost OF BIT 121 UNTIL FHF BIT O RESET IN 
13cS 36 01 33F3 1157 Ten FITGTEXT eX*O1* ERRORS ALLOWED ? 1224 * : FOLLOWING TEST) 
i €: i: . <=; 
DATE 15 auGc7s OSNncVv 7S / PROG ID cis-1 DATE 15AUG 75 OSNOV7S PROG ID cis-1 
€C NO. 827785 e27827 : PAGE vi er NOe 827785 827627 PAGE iia 
1 . i = 


Qo 0 


o i 








- 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 





PART NOs 4247607 IBM MAINTENANCE OLAGNOSTIC PROGRAM PART NOo 4247607 
PAGE 12 PAGE 12a 
c1s1 2340 ATIACHMENT TESTS ~ NOD 12 c251 3340 ATTACHMENT TESTS - MOD 12 
ERR LGC OBJECT CODE ADDR STMT SOURCE STATEMENT ‘ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1461 CO &7 3243 1225 8 LxoPs RUN 10P ONE CYCLE = 14FB CO eae? 2988 1293 8 NORMN 
1465 O80000FF 1468 1226 oc XL.4*O80000FF * | 1292 * : 
: ois FB1i7 8 ERRPRT 
1469 CO 87 3048 eee 8 sDST READ DST REG be onal a en aoe 1503 aace = pc XLL°A0* ERROR 5158 ; 
146D 38 S&F 33DE 1229 SBF I0PINeX*4F* TURN OFF THE DONT CARE BITS | 1295 * i 
1471 3D 00 33DE 1230 cur IOPINeX®00* TEST IF OST 0-3=0x00 5 1506 3C 00 33F3 1296 MVI  -FTG4EXTe X*00* RESET *TAG GATE® 5 
1475 Fe 81 07 1231 JE FBI10 BR ITF YES { 2508 CO 87? 2BAA 1297 8 LFTG 7 
1232 * j 1298 * 

: 14768 CO 87 2A07 1233 B ERRPRT ERROR CODE 5156 ee 150C CO 87 0216 1299 e INK GO TO NEXT RTNE | 
147C 61 147C 1234 oc xL1°61° ue 2300 * ; : 
147D 330E 147E 32235 pc AL2CIOPIN) 1301 

1236 =f 1301 
1236 | 1510 16 21510 1302 RTNI6 Dc xL1*16* ROUTINE 16 NOT USED 
s<> | 2511 00 1511 1303 pc xL1°00° 
123e « TEST RESET OF FHF BITS 0 AND 2 1512 1518 1513 1304 oc AL2CRINI7) NEXT ROUTINE ADDRESS 
1239 * : 1514 CO 87 0216 1305 8 LINK: 
147F 3C £O 33F5 $280 FBI10 MVI FHFSEXT. X*CO* RESET SITS O AND 1 i 
1483 CO BY 2C4A 1241 8 LFHE {A 
1242 * bee 
1487 CO 8? 3141 1243 e txopr RUN I0P ONE CYCLE TO GATE | 
1488 OB0DDOFF 24BE 1246 DC xL4* OBOOOOFF® FHE REG le. 
1245 * £ 
14eF CO 87 3058 1246 8 SFHE READ FHF REG | 
1493 39 CO 33DE 1207 TBE L1OPINsx*co* TEST THAT O AND 1 RESET | en 
14$7 CO 10 2988 1298 BT NORMN Cc. 
| | 1249 * | . 
1498 CO BY 2A07 1250 8 ERRPRT fee 
1469F 50 aa9F 1251 pc xL2°S0° ERROR CODE 5155 | i 
1282 
1252 | et 
1253 * Re 
2254 * TEST SET/RESET OF TAG BUS PARITY ERROR | 
3255 * |e 
a 1400 CO B7 2999 1256 8 @GNTST C ee 
2257 * | 
14A4 3C O02 33FB 3258 MMVI - PTR4+EXTeX*02* FIR 6 © INVERT PARITY } le 
14AB CO 6Y 28BA 1259 B LFTR l 
3260 * 
14at 3C 00 33F4 2261 MVI 0 - FTO*EXTe X*00* 00 wITH BAD PARITY -> FTO Lm. 
14B¢ CO 87 2B9A 1262 e Leto C 
1263 
1484 3C 8) 33F3 21264 BVI «ET G4EXTeX*B0* FTG 0 € TAG GATE } a ‘“ 
1988 CO B87 2BAA 1265 _ 8 LETG | G 
2266 *# 
148C CO 8? 3241 3267 6 LXOPY RUN IGP ONE CYCLE 1 ey 
14cO O8000BFF 414cC3 1268 pc xL&* OBOOOOFF® | ae 
1269 * 
144 CO 87 3008 1270 6 SADS GET ADS-REG es 
14C8 38 0& B3DE 9272 TBN f0P INex*04* TAG BUS ERROR ? ai 
yacc F2 10 OS 4272 JT fers eR IF YES 
1273 « fe 
14CF CO 87 2A07 1274 8 ERRPRT | Cc. 
1403 70 24D3 1275 oc xL1°70* ERROR 5157 
1276 * | rs 
14p4 3C 00 33F8 1277 FRIIS MVI - FTR*EXTSX*O0* RESET FIR 6 j Se 
14928 Co 87 2BRe 1278 8 LFTR 
140C CO 87 BBA 1279 8 LFEtO | a 
1260 * | he 
146E0 3¢C 69 33F8 1281 RVI FTREEXTex*80* SET FTR O © CK RESET ? 
144 CO 67 2BBA 12282 8 LFETR Ie rages 
1283 * , © 
14€8 CO 87 3141 1284 8 LxOPI RUN TOP GONE CYCLE : 
14EC OB80000FF 16eF 1285 oc XL4@ *OS0000FF * ‘ C 
1286 * { 
14FO CO 87 3008 2287 8 saDs GET ADS-REG 
146F4 38. 04 33DE 2288 TEN I0PINeK*04* TAG BUS ERROR 7 Mas 

a 14F8 F2 10 08 1289 Jt Fe1i7 BR IF VES | © 

~ #290 * 

DATE 15auG 75 OSNCVT7S PROG ID cis-1. DATE SAUG7TS oSNnov75 PROG 10 cis-1 
EC NO. e@27785 827827 PAGE 12 ' ee NO. 827785 627827 PAGE 124 
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IBM MAINTENANCE OLAGNOSTIC PROGRAM PART NO. 42867607 IBM MAINTENANCE OFAGNOSTIC PROGRAM PART NO 6247607 
: PAGE 23 Ct Pace 33a 


c1S1 2340 ATTACHMENT TESTS - MOD 12 - Ci5a 3340 ATTACHMENT TESTS ~ MOO 12 


ERR LOC OBJECT COCE ACOR STMT SOURCE STATEMENT ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT 
PSP 
L307 €HEEAEEAEERAARER EERE AHERES RAEREERAEEEEHRASHAES SE EHEEAGEE BES DHREERAEERERERE 1545 20 1SaS 1375 oc 2°208° 
1308 * ®: 1376 * 
1309 * TEST OST REGISTER e. 1546 Ci C2 15AE 1377 DSTAAS TIG ODSTAASsxX*C2* T10 FOR ATTACHMENT BUSY=--SHD NOT BR 
1310 * *. 1SAA CO 87 2968 1378 8 NORMN 
P3L1 ECHREEREASAKESKAKSARATRAKEAKALERSREKRSESRKREKECAAHEKEAKERKR RERAESAKRLHKERKERKSERSKESERESKY' 1379 * 
i312 * . 1Sa£ CO 87 2Aa07 1380 DSTAAS 8 ERRPRT 
1518 17 2618 1313 RINL7 oc xL2e¢37¢ ROUTINE 17 x 1582 AO 1582 1383 oc XLY*aoe ERROR CODE SI7A 
1519 00 1819 1314 oc xt2°00* : ' 13362 * 
: 151A 1684 1518 1315 oc ALZCRTNIG) RTNE 18 2 1563 co 87 2999 1383 8 BGNTST START TEST 
3316 * 1887 CO 87 3118 1384 e Sos3 GET I10P ERRORS 
151C CO a7 2885 1317 8 SEGIN 1588 38 04 33DE 1385 TBN FOPINeX*04*# TEST FOR O REG ERRORS 
1520 CO #7 2999 1316 8 @GNTST START TEST - iSBF CO 10 2988 1386 BT NORMN BR IF NO ERROR 
1319 * : 1387 * 
1320 * RESET FHF BITS 0 E& 1 PRIOR TO TESTING OST 1SC3 CO 87 2A07 1388 8 ERRPRT . 
1321 * ” 15¢C7 30 15¢c7 1389 oc xL1°30° ERROR CODE 5173 
1524 3¢C CO 33F5 1322 MVE FHFSEXTex*coe RESET BITS O AND 1 oe 2390 * 
1528 CO 8&7 2C4A 1323 B LFHF 1391 * TEST THE SEEK COMPLETE LATCHES 
1324 e 1392 * 
152C CO B87 3141 1325 8 LxoP1 RUN IOP ONE CYCLE TO GATE S 18c®8 CoO 87 2999 1393 8 BGNTST START TEST 
1530 O80000FF 1533 1326 oc XL 4° OSOCOOFF ¢ FHF REG iscc F3 c4& 80 1394 SIO X*B80%.x*c4ae ENABLE INTERRUPTS IN THE ATTACH 
1327 = 1SCF 3C OF 33F1 1395 MVI DST+EXTeX*OF* TURN GN ALE SEEK COMPLETE LATCHES 
1534 3C 80 33F1 1328 Mv OSTFEXTex*S80* RESET OST BITS 0 - 3 ; 1503 CO 87 2CO0A 1296 B tost 
1538 CO &7 2COA 1329 8 Lost 1397 * 
1330 # : 1507 CO 87 30FF 1398 8 scsi GET SENSE BYTE 
153C CO 87 3141 1331 8 LxoP2 RUN IOP 1 CYCLE 1508 38 FO 33DE 1399 SBF YIOPINeX*FOP TURN OFF THE DONT CARE BITS 
1540 O80000FF 2543 1332 oc XL4* O80000FF® 25DF 3D OF 330E 1400 CLI YOPINeX*OF® TEST IF ALL LATCHES ARE ON 
1333 * 2 15E3 CoO 61 2988 2401 BE NORMNN 
1544 CO 87 3048 1334 8 sost READ DST REG | Xe 1402 * 
1548 38 OF 330E 1335 S&F ICPINe X* OFF TURN GFF THE DONT CARE SITS 1SE7 CO 87 2A07 14903 e ERRPRT 
154C 30 40 330€ 1336 cui IOP INe X*40° TEST IF OST 0-3=0100 € OST 3 OFF AND ze 1SE€8 42 15E8 14046 oc xE2"°s2¢ ERROR CODE 5174 
2337 * FHF O OFF INSURES "DIFF CNT = Of 2 Me 15SEC 331 ISED 1405 pc AL 2COST+EXT } EXPECTED 
15£O0 F2 81 07 1338 JE OSsTol BR IF VES 3SEE 33DE 1S5EF 1406 pc AL2CIOPIN) RECVO 
1339 + ‘ om. 1407 * 
ieee ; 1553 CO 87 2a07 1340 8 ERRPRT ERROR CODE 5270 ; €: 1408 * TES, OST REG oe ee ee 
1557 01 1857 1341 oc XLI°O1t 1409 * - ‘ 
18S@ 330€ 1559 3342 oc ALZ2CTOP IN) ¢ 15FO CO B87 2999 1410 8 SGNTST START TEST | 
1343 * 8 1SF4 F3 c4& 80 1412 S10 X*80*%.x*cae ENABLE INTERRUPTS IN THE ATTACH 
155a F3 ¢€1 00 ~ 1344 DSTO1 $10 X*00% ex*Ci* SIG SHD SET ATTACH BUSY 15F7 3C OF 33F1 2412 MVI OST¢EXTexX*OF®? TURN GN ALL SEEK COMPLETE LATCHES 
1345 * : : %, 1SFB CO 87 2COA 1413 8 Lost 
155D CO 87 3141 1346 8 LxXOPI RUN FOP ONE CYCLE TO SET OST o 1414 © ; 
1$61 OBOO0OOFF 1564 1347 oc XL& *OSCO0OFF * 1SFF CO B87 3241 1415 B LxoPr RUN 1GP ONE CYCLE 
1348 * : gihs 1603 O80000FF 21606 1416 pc XL4 *OSOOOOFF * TO SET DST REG 
1565 CO 87 3048 1349 8 sost READ DST REG Set 1417 * 
1569 38 80 33DE 1350 TAN TOP IN. X*80* TEST IF ATTACH BUSY IS ON 21607 CO 87 3048 1418 B sost READ DST REG 
1560 F2 10 05 1353 JT DST AA2 fo 21608 38 FO 330E 1419 SBF IGPINeX*FO® TURN OFF DONT CARE BITS 
1352 8 *. 260F 30 OF 33DE 1420 CLI IOPINSX*OF* TEST THAT 4-7 ARE ON 
1570 CO e7 2Aa07 1353 8 ERRPRT 2613 co 81 2988 1421 BE NORMN 
1574 10 i874 1384 oc XL1*®210° ERRGR CODE $171 ar a 1422 % 
1355S * No 1617 CO 8&7 2A07 1423 8 ERRPRT 
1S$75 Ci c2 157E 1356 OSTAA2 TIO OSTA2ex*C2* TIO FOR ATTACHMENT BUSY--SHOULD BRCH 1618 S2 161B 1424 oc xLiesze ERROR CODE 5175 
1357 * if 161C 33F1 1610 1425 oc AL2 COSTtEXT 3 : EXPECTED 
1579 CO 87 2A07 (1358 8 ERRPRT ON I61E 330E 161F 1426 oc AL2CT OPIN) RECVO 
1570 90 1S7D 1359 oc xXL2°908 ERROR CODE $179 1827 * 
1360 * Ge 1428 “TRY TIO WITH SEEK COMPLETE ON 
1361 * ~? . 1429 + 
1S7E CO 87 2988 . 2362 OSTA2 8 NORMN 1620 CO 87 2D0F 1430 8 LaLso INITIALIZE MIAR TO ADDRESS 0000 
1582 co e&7 2999 1363 8 @GNTST START TEST : = 1624 00 2624 1432 oc ALI (MIARO) 
1586 3C 80 331 1364 avi OST4E XT eX*80* RESET ATTACH BUSY yo Mee 1625 00 2625 1432 oc XL 3 *O0° 
158A CO 87 2COA 3365 6 ucst . 2626 CO 87 3100 1433 8 rceco ; RUN IGP WITH PREV IG OFF 
1366 * “ 162A F3 C4& 04 1434 SIO xK*04* ex*Cae RESET OP END LATCH 
3158E CO 87 3141 1367 8 txoP1 RUN FOP ONE CYCLE i 1620 CO 87 2999 1435 8 BGNTST START TEST 
‘2692 OC8O0O0GFF 1595 1368 oc XL4&* OSOOOOFF® TO RESET OST REG 1621 F3 ¢4 80 1436 SIQ X*8O0*" «x*Cae ' ENABLE INTERRUPTS IN THE aTTACH 
1369 » tog 1634 3C OF 33Fi 1437 AVE OSTFEXTeX*OF® TURN ON ALL SEEK COMPLETE LATCHES 
1566 ¢€oO 87 3048 1370 8 sost READ OST *« 2638 CO 87 2COA 2438 e Lest 
21S9A 39 80 330€ 1371 TSF LOPINeX* BOF TO SEE S€ ATTACH BUSY RESET : 1439 * 
159E F2 10 05 1372 JT OSTAA3 BR IF IT RESET OK o 163C Cl C& 1645 184060 TIO SKCNP3.x*Cae SHD BRANCH BECAUSE SEEK COMP 1S Cw 
1373 *® ; & 1441 % ae 
1SA1 CO 87 2A07 1374 6 ERRPRT ERROR CODE 5172 1640 CO 87 2a07 1442 8 ERRPRT 
| @ : 
DATE | 1SAUGTS OSNOV7S PROG 10 ciS-1: DATE 1SAUGTS OSNOV7E PROG ED c1iS-1 
EC NO. eG27785 e27e27 : PAGE 13 Cc NQ. 827785 827827 PAGE 13a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C2151 33460 ATTACHMENT TESTS - NOD 
ERR LOC OBJECT CODE ADDR STMT 
1644 60 1644 1443 
1444 
1645 CO 87 2988 1445 
$649 CO 8&7 2999 1446 
164D F3 C4 80 1447 
1650 3C OF 33F1 1448 
1654 CO &7 2COA 1489 
1450 
% 1451 
1452 
1453 
1658 F3 Ca 40 1454 
1658 F3 C4 20 1455 
16SE F3 ca 10 1456 
1661 F3 C4 08 1457 
1664 CO 87 30FF 1458 
1668 38 FO 33DE 1459 
166C 39 OF 33DE 1460 
: 1670 F2 10 09 14661 
1462 
1673 CO B87 2A07 1463 
1677 71 1677 1464 
1678 33¢2 1679 1465 
167A 33DE 167B 1466 
1467 
1468 
1469 
167C CO B67 3141 - 4470 
4680 O80000FF 1683 1471 
1672 
2684 CO 87 3046 1473 
16688 =9 OF 330E 1474 
4$68C F2 10 05 1475 
Bess ee 1476 
268F CO 87 2A07 1977 
1663 280 1693 1478 
1479 
1698 F3 C4 02 1480 
1697 3C OF 33F1 1481 
1698 CO 67 2COA 1482 
16SF CO 8B? 30FF 1483 
26A3 39 OF 33DE 1484 
16A7 CO 10 2988 $485 
1486 
16AB CO 67 2A07 1487 
16AF BO 16AF 1486 
1489 
1680 CO 87 O21€ 1490 
1491 
OaTE 1SaUuGTS OSNOV7TS 
EC NO. S277E5 627627 
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SCURCE STATEMENT 


* 
SKCMPS3 


eke” 


SKCMPS 


oc 


8 
8 
SEO 
Mvt 


TISSUE 
s19 
sic 
s10 
sic 
SBF 


TSF 
JT 


oc 
oc 
oc 


TEST 


oc 


JT 


oc 
s10 
“VI 


TSF 
8ST 


go 


XL1*60° 


NORMN 

@GNTST 

X* BO* eX*Cae 
OST4E KTe X* OF 
Lost 


A SIO TO RESET SEEK 


X*A0%oX*CHP 
X*20* ox* Car 
X®20% ox°Cae 
X*OB* oxecae 
$ps1 

IOP IN» X*FO* 
ICPINeX* OF* 
SKCMP4 


ERRPRT 
xLI°71° 
AL2 (ZERO) 
AL2CTOPEND 


OST REG 4-7 


LxoP!% 
XL4* OSOOOOFF* 


sost 
TOPIN+X* OF 
SKCMPS 


ERRPRT 
uL3°6O* 


K*O2* oX*C As 
DSTtEXT oX*OF*® 
LOST 

scsi 

IOPIN, X*OF* 
NORMN 


ERRPRT 
xLi°BO? 


LINK 


PART NOe 


ERROR CODE $176 


START TEST 
ENABLE INTERRUPTS IN THE ATTACH 
TURN ON ALL SEEK COMPLETE LATCHES 


COMPLETE ON EACH DEVICE 


RESET SK COMP 1 

RESET SK COMP 2 

RESET SK COMP 3 

RESET SK COMP 4& 

GET THE SENSE BYTE 

TURN OFF THE DONT CARE SITS 

TEST IF ALL SK COMP LATCHES ARE OFF 


ERROR CODE $177 
EXPECTED 
RECVOD 


RUN I1OP TO GATE THE DST REG 


READ THE DST REG 
TEST IF ALL BITS 4<7 ARE OFF 
BR IF GOK 


ERROR CODE 5176 


SIO TO RESET ENABLE INTERRUPTS 
ATTEMPT TO SET SEEK COMPLETE 


GET SENSE SYTE S 


TEST THAT NO SEEK COMPLETES CAME ON 
BR IF OK 


ERROR CODE $178 


NEXT RT NE 


eRoG 10 
PAGE 


4247607 
PAGE 14 


Cis-1 


ry 
> 


mae menes ee teen 0 Series om eink ume me Seem mie Ses ne oe cen me aim cme rine me men me ee 


ane, 


Be ei ea asa ac ce ack ta tla Bs Ease eae eins Ne eR Ree a eR ja teats aie | Sa te eee, Se 
a 


om, 


“a, 
* 


e 


-. €€ NOe 


c 


IBM MAINTENANCE DIAGHOSTIC PROGRAN 


e151 


ERR LOC OBJECT CODE 


1684 18 
1685 00 
1686 17E9 


1688 CO &7 2885 


168C CO 87 2999 
26C0O 3C OF 3400 
16C4 CO 87 2BDA 


16¢8 CO 87 3141 
16CC OB80000FF 


1600 CO 87 3038 
1608 39 FF 33DE 
1606 F2 30 05 


1608 CO 87 2A07 
160F 00 


16£0 CO 67 30FF 
16E4 39 FO 330E 
16f8 CO 10 16F1 


16EC CO 87 2A07 
16FO $30 


16F2 Ci Cl 16FD 


- 16FS Ci C9 I6FD 


16F9 CO 87 1702 


16FD CO 87 2A07 
170% 30 


2702 CO 87 2DDF 
1706 00 
1707 OO 
1708 CG 87 320DD 


1w7oc C1 co 1718 
1710 C1 CB 2718 
1714 CO 87 2730 


1v71e CO 87 2A07 
2173¢C «20 


1710 CO &7 2968 
1721 CO 87 2999 


21725 3C CO 173A 
1729 3C CO 1762 
172D 3C FO 340D 
2731 CO 87 2B6DA 
iv3s CO 87 3038 


1739 3@ FO 33DE 


DATE —«-: 2SAUG 75 


' 627785 


2 0 


ADDR 


1684 
1665 
1687 


16CF 


16DF 


130 


3340 ATTACHMENT TESTS — MOD 


ST“T 


1493 
1494 
1495 
1896 
1497 
1498 
14S9 
1500 

2501 

1502 
1503 
1504 
1505 
1506 
1507 
1508 
1Ss09 
1510 
1512 
1512 
1613 
1914 
3535 
21516 
1517 
1516 
1519 
1520 
1521 
1522 
1523 
31526 
1525 
3526 
1S27 
1828 
1529 
1530 


..1531 


1701 


1706° 


1707 


w72C 


1s32 
1533 
1834 
1535 
1836 
1537 
1538 
1539 
1840 
3541 
1542 
1S43 
1544 
1545 
1546 
1847 
1548 
1549 
1550 
1Ssi 
1552 
1553 
1554 
1555 


- 1556 


373A 


OSNOV?S 
827827 


1887 
1556 
1589 
4560 


PART NO. 4247607 
PAGE T@Aa 


12 
SOURCE STATEMENT 


eek eb EEEREREEAEEEREREREEOESEEREEREEEAES SEE TEA SEES ESE SES EEEEEES SEES SEES 


* * 
* TEST SBOeSEEK BUSYsAND SENSE BYTE O BITS O-3(NOT READY/UN CK) * 
* * 


CRAEERERLEESOSESORREREEEESEREREREER EER EERE EES EERE RESTORE EERE SASS SRE SS 
* 


R™N1e oc xuL1 °16° ROUTINE 18 
oc xL1*00* 
oc AL2 C(RTNI9) NEXT ROUTINE ADORESS 

* 

8 BEGIN RINE INITIALIZATION 
* 
SBOAO 8 SBGNTST START TEST 

MVI | SBOFEXTeX*OF® RESETS SBO BITS 0-3 AND SK BUSY 

8 sSB60 LATCHES 
* 

8 LxXOPI RUN IOP ONE CYCLE TO 

oc XL4* O80000FF* SET SBO REG 
* 

8 SsBo0 READ SBO REG 

TeF LIOPINeX*FF* TEST IF ALL BITS ARE OFF 

JT SEBO AAI 
* 

8 ERRPRT 

oc XL1°OO* ERROR CODE 5180 
= 
SBOAA1L 8B sosi GET SENSE BYTE 1 

TBE LYOPIN»X*FO* TEST IF BITS O-3 ARE OFF 

6T SBOA1 
* ‘ 

8 ERRPRT ERROR CODE S189 

oc xLi*90* 
* ; 
* 10 FOR STEK BUSY--SHOULD NOT G6RANCH . 
* : 
SBCAI TIO TIOCK1exX*Ci* DpRV 2 , 

: TIO TIOCK! oX* C9* ORV 2 

8 SBOA2 GO TO NEXT TEST 
* 
T10CK1 8 ERRPRT 


oc xXLi*10° ERROR CODE 515! 
* | TEST FOR NOT READY/UN CK ---SHOUL NOT BRANCH ON TIG 


SSO0A2 8 tacsD INITIALIZE MIAR TO ADDRESS 0000 
oc ALICMTARO) 
oc XL2*O00* 
8 1oPscO RUN IOP WITH PREV 10 OFF 
* 
TIO TYOCK2 eX*COt oRV 1 
TIO TIOCK2.x*cb* ORV 2 


B sBOA3 GO TO NEXT TEST 
4 
T1eckx2 8B ERRPRT 


oc xL1°20* ERROR CODE 5162 


* 
* TEST SEO BITS O-3 UNOT READY/UNIT CK) 
* 
seoas iB NORMN Loop TEST 
8 BGNTST START TEST 
Pa 
* SETUP SIT TESTS FOR 20 3 OR @ DRIVE CONFIGURATION 
MVI  SBOA33ex*CO* EXPECT DRIVE 1 © 2 BITS 
MVI SBOAAGX*CO* ee ee 
SBOA31 MMVI SBOFEXTeX*FO* TURM ON BITS 0-3 
8 iSBo 
8 SSBO READ S60 REG 
SBOA33 EQU #41 
TEN TOPINS X*FO* 


JEST IF O-3 CANE ON 


PROG 10 cis-1 
PAGE 14a 
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. 8M MAENTENANCE DIAGNOSTIC PROGRAM PaRT NO» 4247607 
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PAGE Sa 


cisi 2340 ATTACHMENT TESTS -— MOD 12 c%1S1 3340 ATTACHMENT TESTS - MOD 12 





| ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1720 F2 10 05 1561 JT  =SBOMS ". 1629 * 
I! 1562 * 17CF CO 87 2A07 1630 8 ERRPRT 
i 1740 CO 8&7 2A07 1563 a ERRPRT = 1703 70 17D3 1631 pc Os XL. * 70" 
; 1744 30 1744 1564 pe = XL 3 * 30° - €RROR CODE 5183 4 1632 * 
bo 1565 * 17D4 CO 87 3118 1633 $8081 8 sps3 GET 10P ERRORS 
| 1566 * TIO FOR NOT RDY/UN CK --SHD BRCH BECAUSE SBO 0-3 ARE ON : 17D8 36 04 330E 1634 TBN IOPINeX*04* TEST FOR D REG ERROR 
la 1567 * ; 170¢ CO 10 2988 1635 BT  NCRMN BR IF NO ERROR 
1745 Ci CO 1740 1568 SBOAS TIO TIOOKIsxX*CO* DRV 1 1636 * 
- 1749 CO 87 1758 1569 8 TIOCKS ERROR re 17E0 CO 87 2A07 1637 8 ERRPRT 
174D C1 Ce 1750 1570 TIOOK1 TIO SBOAASsx*CB° ory 2 _ 17E% 80 1764 1638 pc Xt. *80* ERROR CODE 5188 
1751 CO 87 1758 1571 8 TIOCK3 ERROR ; 1639 * 
1755 F2 90 05 1572 JF  SBOAAS GO TO NEXT TEST ie 17ES CO 87 0216 1640 8 LINK NEXT R TNE 
! 1573 * a Ne 1641 * 
st 1758 CO a7 2A07 1574 TIOCK3S 6 ERRPRT : 
rt 17S¢ 40 178C 1575 oe LAF BOF ERROR CODE 5164 1 gre 
: 1576 * ! c 
| 1750 CO 87 30FF 1577 SB0AaS 8B $0S1 GET SENSE BYTE 1 
a 1762 1578 SBOAAG EQU *41 ie, 
1761 36 FO 33DE 1879 TBN YOPINeX*FO* BITS 0-3 SHD SE ON j Ss 
1765 CO 10 2988 1580 8T  NORMN 
1581 * 1 gre, 
1769 CO 87 2A07 1582 8 ERRPRT | c: 
176D AO 1760 1583 pc = XL * AO® ERROR CODE 518A | 
1584 * os, 
el 1585 * TEST SK BUSY LATCHES--SET EACH LATCH AND TRY WITH TIO | & 
1586 * i A 
176E CO 687 2999 1887 8 BGNTST START TEST Pages 
1772 €3 CO 00 1588 SIO X*00* »x*CO® SEEK SIO TO ORV 1 | © 
1775 3C 80 33F1 1589 MVI DST+EXTeX*S80* RESET ATTACH BUSY TO | 
1779 CO 87 2COA 1590 8 LOST PERMIT ANOTHER SIO te 
i770 F3 ce oO 1591 SIO X*00" ox* Che SIO SEEK TO ORV 2 | CG 
1780 CO 87 2C0A 1592 8 Lost RESET ATTACH BUSY | 
: 1593 © : 
oe oe ees 1594 * ALL SK BUSY LATCHES ARE NOW ON-TIO TO CHECK THEM | © 
; 1595 « SHOULD BRANCH ON TIO. | 
k 1596 * 
1794 C1 C1 178C 1597 SBOA6 TIO TIOGD1 ox*Cc1* TIO ORV 1 FOR SK BUSY | G 
1788 CO 67 1794 1598 8 TIOCK4 EaROR po: 
178c C1 C9 1799 1599 TIOGD1 TIC S®OATXx*C9® TIO ORV 2 
1790 CO 87 1794 1600 8 TIOCKS ERROR | Ce 
' 21601 * | 
1794 CO 87 2A07 1602 TIGCK4 8 ERRPRT “ 
1798 50 1798 1603 oc = XL1 "590° ERROR CODE 5185 | G 
1604 * | 
1605 * NOW TEST S80 4-7 “ 
1606 * | C 
1799 CO e7 3141 1607 SB0A7 ® LXOPI RUN I0P ONE CYCLE TO | 
179D O80000FF 17A0 1608 Oc =xL4* oB8000oFF® SET SBO REG 5 
1609 *. |G 
17a1 CO 87 3038 1610 e S$B0 READ S60 | 
17AS 38 OC 330€ 1631 TON IOPINeX* OC? TEST FOR DRV 1 AND 2 | 3 
1709 F2 90 03. 1612 JF SB0AS ~~ BR IF ERROR & 
17AC F2 87 05 1613 J SB0A9 | 
1614 * | ro 
LTAF CO 87 2A07 1615 SBOAB 8B — ERRPRI GS 
1783 €0 1783 1616 pC Xt. *6 08 ERROR CODE $186 | 
1617 * | G 
1618 * NOw RESET THE SK BUSY LATCHES AND TEST AGAEN | 
1619 * 
17284 3C OF 3400 1620 SBOA9 MMVI SBOFEXTSX*OF® | 6 
1788 CO 87 280A 1621 8 LSBo RESET THE SK BUSY LATCHES a 
1622 * | 
i i76C cO 87 3141 1623 8 i xoP1 RUN TOP ONE CYCLE TO G 
17C0 O80000FF 17C3 1624 DC xXL&*OBO000FF* SET THE S60 REG bis 
Ce 1625 9 | 
See 17¢C4 CO 87 3038 1626 8 SSBO READ THE SBO REG | G 
7 17C8 3D 00 33DE 1627 CLI ICPIN.x*00¢ CHECK IF ALL OFF . 
17¢c F2 81 05 1628  g€  «sBoB1 Br If OK | 
; . l G 
le OATE ISAUGTS OSNOVTS , PROG 10 c1s-1! DATE 1SAUGTS OSNOV7S PROG ID 
a EC NO. 827785 627827 PAGE | 18 | qfe NO. 827785 €27827 PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


cif. 3340 ATTACHMENT TESTS - MOD 


ERR LOC OBJECT CODE ADDR STMT 


1643 
1624 

1645 

1626 

1647 

16488 

17E9 19 17E9 1649 
17EA 00 I7EA 1650 
5 17EB 1946 17EC 16513 
1652 

1653 

1654 

17ED CO 87 2885 1655 
17Fi CO e7 2999 1656 
L7FS 3C 48 3405 1687 
17F9 CO 87 2BEA 1658 
17FO CO @7 3OF2 1659 
1601 38 48 33DE 1660 
180S F2 10 05 1661 
1662 

18068 CO 87 2A07 2663 
1e0c 00 180C 1664 
2665 

180D 3C 00 3405 1666 
1811 CO 87 2BEA 2667 
16815 CO 87 30F1 1668 
1619 39 48 33DE 1663 
181D Co 90 18608 4670 
1821 CO 87 2988 1671 
AGT2 

1673 

1674 

1675 

1676 

ae “a 1825S CO 87 2EE3 1677 
1829 0000 182A 1678 
1628 960000 182D 1679 
1G2E LOOO0OFF 1631 1680 
1681 

1832 CO 8? 2DDF 1682 
1836 00 1836 1683 
1837 00 1827 1684 
1685 

1838 CO 87 31DD 2 286 
1687. 

183C CO 8&7 2999 1688 
1689 

18460 F3 C4 02 1690 
1843 F3 Ca 04 1692 
1846 F3 C46 BO 1692 
1693 

1849 CO 8&7 30F1 1694 
184D 39 10 330€ 1695 
1861 F2 90 04 1696 
1697 

1856 CO e7 29688 1698 
1699 

1858 CO 87 2A07 1700 
185C 76 1es¢c 1701 
1702 

1703 

1704 

1860 Cc vy 2£e€3 1705S 
1861 0000 1862 1706 
1707 

1963 2571 OFF ‘ge66 1708 
1709 

1710 

Dave 2 5auG7TS OSNOV7S 
EC ND. €27785 @27827 


1 


a2 





PART NOe 
PAGE 


4247607 
16 


SOURCE STATEMENT 


SHEARER EEEE EE LERES SEHRECERERREKETESEKREAAIETE RREKKSEESKSEKESRAAAKES SRE TLS THESE 


* *& 
- TEST SB1 REGISTER BITS 1e2e3e4e5 AND OP END * 
* = 
BREESE RARKKERKKAKERKCKEAERE REKKEEKEEEKE KERKEE ES KERKESKERECRERERRECEKSERE SS 
: 
RTNIS pc xui*19° ROUTINE 19 
oc XL1°00° 
pc AL2(RTNIA) -NEXT ROUTINE ADDRESS 
* 
* TEST SE1 REGISTER BITS 1 & 4 
* 
B BEGIN RIN INIT 
a BGNTST SrAAt Tee. 
MMVI SSISEXTS!2948° BTS te~ 
B LSB1 
8 SDSO READ $&i:. TSE BYTE 3? 
TBN IOPINe?:" 48° TEST IF BITS 104 ARE ©" 
JT  SBIAL 3R IF OK 
s 
SB1ER1 8B ERRPRY 
cc} xLaecoe ERROR CODE 51°° 
x 
S21Al MVI SBICEXTeX*00° LOAD ZEROS TO RESET 
B LSBi BITS 104 
B spso READ SB1 <.7AIN 
TBF IOPINex*ase JEST IF BITS te4 WERE RESET 
BF SBIERI ERROR 
8 NORMN Loop TEST 
se 
& “257 BIT 3 COP END) 
2 
* EST THAT *OP-END® WON'T COME ON IF ENAE...0 BUT NOT Sti 
x 
3 icst : 
oo XL2*0000° 
DE xL3* 080000° NO-OP 
rt XL4*100000FF* 8 0000 (© LOOP >? 
* 
‘ LALSD 
pe ALZCMIARO) 
oc xXL17008 
* 
e 1CPGO START 252 
* 
8 BGNTST 
Fa ; 
SIO —-K* 02% ex*Cae SIO - ~ESET “ENABLE ENTERRUCY 3: 
SID X*O4*,xecae SIO - REL ZT *OP-END® 
SIO —-X*BO* oX* Ce: S?~ < “ENABLE INTERRUPTS® 
* 
8 soso GET SENSE BYTE 0 
TEF  TOPINeX*iu* AP~En) RESET 7 
Je SEL a2 ‘2 IF NO 
* 
8 NORK 
r a 
SB1A2 8 ERRERT 
oc XL1°70° ERROR S17 
& 
* NOW TEST THAT OP-END WON'T COME ON IF SET SUT NOT ENABLED 
* 


8 acs! 
oc mm 2°0000* 


LOAD CeSe WETH INSTRUCTIONS 
ADDRESS 


* THE INSTRUCTION CAUSES A SET TO OP END 


oc *™L4° 18871 0FF® Let TO $B1 WITH x*10* TO SET *OP-ENS? 
WHEN INTERRUPTS ENABLED (LOOP TO 0006 


IS ALREADY IN CS LOC 0001) 


_ PROG 
PAGE 


15 c1S-i 


316 


IBM MAINTENANCE DIAGNOSTIC BROGRAM 


cisi 


ERR LOC OBJECT CODE 


1867 


1368 

1 36F 
1870 
1671 


2ers 


1878 


1873 
1sTT 
o 1233 


1686 
2 L8BBA 


; 18286 
 . 1S6F 


1892 
” 1896 


oo 
iF] 
0: 
wah 


BSA 


en 


' 4396 
Pete 218a2 
C: 


18a 
. 18A7 
; 18aB 


eo I8AE 
ad 1682 


.7 1883 

» Se 1689 
: 1680 
* 32258 
te 


ek 18cD 


16D1 
1805 


1808 
oe 1eDc 


i 18D0 
ee 18E0 

~ 16Es 
18E7 
ist6 


of 


18EC 
28F2] 


DATE 
rr EC NGe 


Qo ¢ 


G 
€& 


© 


co 


co 
00 
00 
co 


ec 


#3 c4& 


co 


od 


F2 


co 
10 


ci 
F2 


co 


us 


co 
30 


co 
38 
F2 


co 
49 


oc 
30 
39 


39 
<0 
e> 


38 
Fe 


co 
£9 


F3 
FS 
F2 


co 
so 


ev 


87 


87 


87 
10 
10 
87 
ca 
87 


87 


ca 


oF 


&7 
10 


10 


87 


o1 
cs 
25 


90 
ST 


10 
10 


£4 
ce 
87 
is 
20 


e7 


2995 


200F 


310% . 


62 
a 


SOF. 
33D0E 


2a07 


1892 
os 


2207 


89 
18A3 


2A07 


30Ft 
330E 


2507 


3574 
3577 
3577 
2846 
3576 
2848 
Leni 


3574 
os 


02 
GA 
30F1 
33DE 
05 


2a07 


15 auG7s 
e27785 


332 


3340 ATTACHMENT TESTS — “cS 


ADOR STMT 


1712 
41712 
R713 
iv24 
1715 
1716 
1717 
1728 
1719 
1720 
1722 
1722 
1723 
1724 
1725 
1726 
1727 
21728 
1729 
1730 
1731 
1732 
1733 
1724 
17US 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
2743 
1794 
4745 
£746 
1747 
1748 
1749 
1750 
i751 
a7S2 
277S3 
1754 
1755 
1756 
1757 
1758 
1789 
1760 
£762 
1762 
1763 
1764 
1765 
1766 
TET 
1758 
1769 
1770 
3771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 


166F 
1870 


185A 


1896 


18A2 


1862 


sepc 


1e8F 2 


OSNOV7S 
827827 
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SOURCE STATEMENT 


2 


4247607 
16A 


PART NOe 
PAGE 


8 BGNTST START TEST 
= 
e tasd . SET MIAR TO ADDRESS 0000 
oc AL? CMEARO) 
oc xL2° 00° : 
8 20PGO 
n ; : 
SIQ xX*O2%sXtCS* SIO TO RESET ENABLE INTERRUPTS 
SIO X04 ex*Cse SIO TO RESET OP END 
* . 
% 
e soso SENSE BYTE 1 
YOF YLOPINsxX*16° TEST IF OP END IS RESET 
JT SB1A3 BR IF OK 
* 
8 ERRETT 
DC XL ESEL? ERROR CODE 5191 
e 
SB1A2 770 SBIER[SeX*C4* TIO FOR INTRPT PENDING(SHD NOT 6R? 
3 SE1AG NO ERROR-GO TO NEXT TEST ~ 
*& 
sB1E2 8B ERRPRT 
pc  xase2o* ERROR CODE 5192 
& : : 
* Now ENAGLE INTERRUPTS--OP END SHD TURN ON 
+ ; ; 
SEIAS SIO X*B0%exX*C® SIO ENABLE ENTROETS CIOP INSTR *LET 
> SB1* WILL CAUSE *GP-END® TO COME ON) 
10 SBIASeX*C4* TIO FOR INTERRUPTS PENDING(SHD BRD 
* 
& ERRPRT 
pc = HL1°3G ERROR CODE 5193 
* . 
spiaS = 6 SDSt GET ADAPTER SENSE BYTE 2 ene ee, 
TBN LOPEN]e X91 0° TEST FOR OP END ON 
JT. SEES 6R IF YES 
as 
B ERRPRT 
oc 80 XL 40° ERROR CODE 5394 
x ‘ 
SB1A9 MVC SNSBYT(2)eZERO. CLEAR INT SUBROUTINE SENSE AREA 
SNS SNSINTeX*CS* 3 SENSE ADAPTER STATUS. BYTES 
TBF SNSINTX°15° OP ENDe ADAPTER CHK eDM ATTN 
6F BGNINT BR TO THE COLO INTERRUPT RTN 
“BE SNSINT—1 eX°0F* ANY OF 4 SEEK COMPLETES 
BF BGNINT BR TO THE OLD INTERRUPT RTN 
e e446 NO-OP 
* ~ 
* IF AN OP-END INTERRUPT IS PENDING INTERRUPT SUBROUTINE WILL 
* SENSE INTO LOCATION SNSSYT } 
* i 
TBN SNSBYTeX* 10° OP-END INTERRUPT OCCUR 7? 
JT SEI AS BR IF YES j 
: 
8 ERRPRT ! 
oc XL1 *80° ERROR $196 
& ; ‘ 
SB18G «STO X#O24e Ke C4 SIO RESET ENABLE INTERRUPTS , 
SID X* 04° oX*Ca® SIO RESET OP END i 
8 soso GET SENSE BYTE 2 i 
TBF ICPINX*10° TEST THAT OP END IS RESET ; 
JT SB1AT | 
2 
8 ERRERT 
pe 83—_ XL. SOF ERROR CODE 5195 i 
* , . : 
* NOW STOF TOP AND SEE IF OP END TURNS ON : 
PROG 1D C1s-3 3 
PAGE IGA 
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16 MAINTENANCE DIAGNOSTIC PROGRAM 


PART NGOe 


4247607 


16M MAINTENANCE OLTAGNOSTIC PROGRAM 


PART NOe &247607 
PAGE 17 PAGE 17a 
c151 2240 ATTACHMENT TESTS - MOD 12 e151 3340 ATTACHMENT TESTS - MOD 12 
if ERR LOC CBJECT CODE ADOR STMT SOURCE STATEMENT : ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
i 1779 : 1820 ERE RKKDARERE ER DEERARERES AERTS ERESERARAERS EE EEE SEERA SS SRAERELS AAR ESS 
18F3 CO 87 3265 1780 SB3A7 8 HIOP HALT MICRO-PROCESSOR ‘ 182i * = 
16F7 F3 C4 80 1781 SIO X*8O* oX*C4* SIO TC ENABLE INTERRUPTS te 1822 * TEST THE FILE TRAP HASDWARE * 
18FA CO 87 30F1 1782 8 spso GET SENSE BYTE 1 ane 1823 * = 
18FE 386 10 33D0E 31783 TAN {OP INeX*10* TEST YF OP END IS ON | 1824 REE KAEESE REESE RES ARE EES SSERERERE SHE EEAESAESE SHEE SES ASSERT SEEKS HORSES 
1902 F2 10 05 1784 JT SB1A8 : 1825 * 
1785 @ 1948 1A 1948 1826 RYNIA oc XL1°2LA® ROUTINE 1A 
19¢05 CO 87 2a07 1786 8 ERRPRT : 194c 00 194C 1827 oc XL1*00° 
1909 60 1909 1787 oc = x60" ERROR CODE 5196 194D 1D5S 194E 1828 oc AL2(RTNIB) NEXT ROUTINE ADDRESS 
1788 * : 1829 * 
! 190A CO 87 2985 21789 SB1AB 8 NORMN LooP TEST 194F CO 87 2885 1830 8 BEGIN IN*TIAL IZATION 
' 1790 * 1831 * 
1791 * NOW TEST FOR DM ATTENTION SIT GFF AND GN 1953 CO 87 2EES 1832 8 LCs! LOAD CONTROL STORE AT 0000 
1792 * 1957 0000 1958 1833 oc xt. 2* 0000" 
190€ CO 87 2999 1793 8 BGNTST SET UP LOOP ADDRESS 1959 19EFO4S 1958 1834 pc XL3*19EFO4* ORI SCN REG WITH X*08*°(0D0 SYTE? 
1912 F3 C4 02 1794 STQ X#*G2*eK*C4?t STO RESET ENABLE INTERRUPTS 195C 19EFO8 195E 12835 DC XL3719EF08° ORI SCN PEG WITH X*OS*C(FILE XFER) 
1915 3C 20 33F6 1795 MVI FIR+EXTeX*20* TURN ON DATA MODULE ATTN 195F 088601 1961 1836 oc XL3*088601* LBI FCT wiTH O1¢0TO XFER 2 BYTES) 
1919 CU 87 2BBA 1796 8 LFTR BIT IN FTR REG 1962 08A505 1964 1837 oc XL3*O8AS505*° LEI FTG REG WITH OSCDIAG MODE & ALLOW 
1797 * 1838 * FBI ERRORS) 
1910 CO 87 30F1 1798 8 soso GET SENSE BYTE 1 1665S 19€502 1967 1839 Dc XL3*"19E502° ORI FTG BIT 6CDTAG SYNC IND 
1921 39 04 330E 1799 TSF TOP INsX*04° TEST IF OM ATTN BIT IS OFF 1968 13S24A 1S6A 1840 oc XL3°13920a° LOAD ZLS LOC 12 = 4A (READ FROM FILE?) 
1925 F2 10 05 1600 JT SB1 AA JUMP TF OFF 1968 080000 196D 1841 pc xL3*080000° NO-OP( WAIT) 
1601 * 196E 19E502 1970 1842 Dc XL3*°19ES502¢° OIAG SYNC IN 
1928 CO 8&7 2A07 31802 8 ERRPRT ERROR CODE S199 1971 080000 1973 1843 Dc XL3* 080000" NO-OPC WAIT) 
192¢ 90 3192Cc 1803 oc XL1*908 1974 080000 1976 1844 oc xL3*980000* NO-OP( WAIT) 
1804 # 1977 19€502 1979 1845 oc XL3*19E502°* DIAG SYNC IN 
4 1920 F3 ¢4 890 1805 SBIAA SIO X*80* .x* Cet SIO ENABLE INTERRUPTS 197A 080000 197C 1846 oc xL3* 0800008 NO-OP{ WAIT) 
1806 *® . 1970 0890000 I97F 1847 DC XL3*080000* NO-OPC WATT) 
1930 CO 87 30F3 1807 8 soso GET SENSE BYTE AGAIN 1980 00000D 1982 1848 pc XL3* 000000" BRANCH TO ITSE_F CHANG) 
1934 38 O04 33DE 1808 TAN ITOPINe X* O4* TEST THAT OM ATTN OBIT IS ON 1983 FF 1983 1849 oc XL1i*FFS 
1938 F2 10 0S 1809 JT SB1AB GO IF OK . 1850 * 
2810 * 1984 CO 87 2DA9 1851 8 LALSS SETUP DSADR FOR FILE XFER 
1938 CO 87 2A07 1611 8 ERRPRT ERROR CODE S19A on 1988 OA 1988 1852 oc AL1i(0S2) ALS LOCATION 
193F AO 293F 2812 oc MLIPAO® Mes 1989 86 1989 1953 pc xL1*86* SMJLTI BYTE® BIT AND *BLOCK® 
1813 * 198a CO 87 2999 1854 8 BGNTST SET UP LOOP ADDRESS AND START TEST 
1940 F3 C4 02 18i¢ ssiaB SIO X*02* «x*C4* S10 RESET ENABLE INTERRUPTS se 4855 = 
1943 CO 8&7 2968 1815 8 NORMN BR TO LOOP *. 198E CO 87 2DDOF 1856 8 LALSD &D0AO ALSD IN PROG 2(F ILE TRAP) 
1816 * 1992 OA 1992 1857 oc AL1i<o0S2) SET DATA STORE ADOR TO 0 
1947 CO B7 C216 1617 8 LINK GO YO NEXT RTNE ¢ 1993 00 1993 1858 pc XLI 00° IN PROGRAM 2¢F ILE TRAP) 
i 16816 * 1998 3C 00 33FD 1859 MVI SCN¢EXTsX* O08 ZERO THE SCN REG (BIT 4& OFF TURNS OFF 
i 1996 CO 87 2BCA 1860 8 LSCN FHF BIT 4) 
‘ c 1861 * 
= 1662 * ZERO THE FILE TRAP DATA AREA 
1863 3 
Q 199C CO 87 2EE3 1864 8 L.cst LOAD DATA AREA WITH 00°S 
‘: 19A0 6600 i9Al 1865 oc XL 2*0600* 
2902 000000 19A& 1866 oc XL3*000000* 
Zs 19AS 000000 19A7T 1867 oc XL 3* 000000* 
Nw 19A8 FF 1948 1868 oc XLI° FFE 
1869 * 
19A9 3C FF 33F0 1870 mMviI FBIFEXToX*FF®* TEST OATA 
29A0 CO 87 2868 1872 8 creat 
1872 * 
7 1981 3C 81 33F5 1873 “vi FHF ¢EXT So X*ALe SETUP TO RESET FHF BITS 0 & 7 
NS. 1985 CO 87 2C4A 1874 8 LFHF RESE. FHF BITS 0 6 7 
1875 * 
- 1989 CO 87 3141 1876 8 LxOPE RUN IOP 1 CYCLE TO CAUSE SNS STROSE 
X. 19BD C8O000FF 19C0 1877 oc XL&* O8OOOOFF® 
1878 
f 19C1 CO 87 3058 1879 8 SFHF SENSE FHF REG 
— 19C5 39 09 33DE 3880 TeF TOPIN» X* O9# SEE IF BITS 4 & 7 RESET 
29C9 F2 10 05 1681 JIT FTRAPC BR IF YES 
. cr: 21882 * 
‘ MM 19cC CO 87 2A07 1883 8 ERRPORT ERROR CODE S1AA 
: 1900 AO 2900 1884 oc XLI*¢ace 
, 19601 CO 87 20DF 1885S FTRAPC 8 LALSD SET UP ALS TO EXECUTE AT 0002 
i & 29DS OO —.. 1905 1886 oc ALICMIARO)D SCNS WELLE NOT BE ONeSO NO 
? 21906 02 1906 1867 oc XLi*O2* FILE TRAPS WILL OCCUR. 
} - 
€ 
‘ DATE ISAUGTS OSKCV7S PROG I0 c15-1 DATE 1SAUG7S OSNOV7S PROG ID c15-1 
' ; EC NO. 627785 227627 PAGE 17 eee NOe 827785 PAGE 17a 
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PART NOe acaTveo? 
PAGE 2BA 
cis. 3340 ATTACHMENT TESTS ~ MOO 12 _-. Casi 


S 


2340 ATTACHMENT TESTS - MOD 12 


EPR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


a 
y 
¥ 


1888 + 4AS2 CO 87 2D0F 1956 e LALSD SET UP TO START PROG 0 
1907 CO 87 31DD 1889 8 1cPGO START I0P EXECUTIONCAT ADDR 0002) 1Aa56 00 tasé 1957 pc ALC MEARO? AT 0000 AGAIN 
1690 * ; f 1as? 00 1457 1958 oC = XL2*00° 
1891 * NOw CHECK THAT NO TRAPS OCCURRED f 195¢ * 
1892 + | 1ASP CO 87 2C4A 1960 8 LEHF RESET FHF BITS 0. 46 7? 
19D8 CO B87 2E73 1893 8 SAL SD READ ALSD FOR THE FILE TRAP PROG aSC CO 67 3200 1961 B 10PG0 START IOP AT *0000%. THIS TIME 3 FILE 
1894 «* OS ADDR SHD NOT 8E ao 1962 * TRAPS WILL OCCUR AS A RESULT OF 3 
19DF OA 19DF 1895 pc AL1.(DS2? CHANGED SINCE NO FILE 1963 * SYNC-IN¢S.e TWO BYTES OF DATA WILL SE 
a 1896 * . TRAPS OCCURRED i em 1964 * STORED IN THE FILE TRAP DATA AREA 
1897 # | er 1965 % ADDRESSED BY PROG Ze 
19E0 3D 00 33DE 1898 CLI LOPTNex*00° | 1966 * 
19E4 F2 61 05S 1899 JE FTRaAPB JUBRP IF OK ft 1967 * NOW CHECK FOR ERRORS 
1900 * nee 1966 * 
19€7 CO 87 2A07 1901 8 ERRPRT ERROR CODE 5148 i 1A60 CO 8? 2E73 1969 8 SALSD SENSE THE FILE TRAP PROG 
19EB S80 19EB 1902 oc = XL 1°60° . ne 2A6G OA 1A66 1970 oc 3=— aL O0S2) DATA STORE ADDRESS 
1903 * ALS? 1971 * : 
19EC CO 87 2EE3 1904 FYRAPG 8 Lcst ALTER INSTRUCTION AT 0002 1A6S 3D 01 33DE 1972 CLE LOPENex*01° ADDRESS SHD HAVE INCREMENTED 
19FO 0002 19F1 1905 pc = XL 200028 TO A NO-OP INSTEAD OF LOAD THE FCT py. TABS F2 B1 05 1973 JE TRAP? BY 1 
19F2 0680000 19F4 1906 pc xL3*060000° tee 1974 * : 
19F5 FF 19F5 1907 DC XLII“ FF® 2A6C CO B? 2A07 1975 8 ERRPRT 
1908 * toe. TA7O 00 1ATO 1976 oc xti2*00° ERROR CODE SLA0 ‘ 
19F6 CO 87 28CA 1909 8 LSCN LOAD SCN WITH 00 AGAIN tA 1977 ® 
aero 1A71 CO BT 2F43 1978 FTRAP? EG SCS EXAMINE CS 0600 FOR OATA=FF : 
19FA CO 87 2DDF 1911 8 LALSD SET UP TO EXEC PROG O AT 0000 _ 1A7S 0600 1A76 1979 pc XL2*0600° ; 
19FE DO 19FE 1912 DC ALI(MIARO) A 1980 * - i 
19FF -D0 19FF 1913 oc 8 xL1"00° 1A77 30 00 3570 1962 CLI CRex*G0* CHECK THAT STORE OID NOT START i 
1914 * eres 1A7B F2 01 24 2982 JNE FFRPX1 ON AN EVEN BYTE } 
1A00 CO 87 2C4A 1915 e LEHF RESET FHF SITS 0. 467. Ae 1983 * | 
1918 * TRAPS WILL NOT OCCUR. c 1986 * } 
1A08 CO 87 2673 1919 B SALSD SENSE ALSO OF PROG 2e SHD STILL 6E iaes co 87 3008 1987 FTRAP2 8B SACS READ ADS REG TO CHECK THAT 
1A0C OA BAOT 1926 Bc AL 052) ZenOs os LAGS 39 01 330E 1988 TBF TOPINexX*O1* FEI ERROR IS OFF ‘ 
1921 * - 4. gasp F2 10 05 1989 “37  FTRAPZ 4 
s2 1A0D 3D 00 330E 1922 CLI OPIN, xX* 00" CHECK FOR *00° i 1990 * SS a es 
-1A11 F2 81 OS 1923 JE FTRAPS JUMP ITF OK | ry 1a90 CO 87. 2a07 1991 B ERRPRT ERROR CODE Sai 
1926 * ji 1a94 10 1Aa9a 1992 pc =: RL1°10° 
1A14 CO 87 2A07 1925 B ERRPRT ERROR CODE SIA9 1993 = i 
1A18 90 2A18 1926 oc = ML 90" Le 1a9S CO 6&7? 2F4a3 1994 FYRAP2 8 scs READ CS TO SEE THAT *FF* WAS i 
1927 * / gags 0601 1A9R 2199S pc 30 XL 2*0603* STORED AT *0602* : 
1A19 CO 87? 2EE3 1928 FTRAPS 8B Lest CHANGE INSTRUCTION AT 0002 ' 1996 * i 
1A1D 0002 1A1E 1929 oc =. XL 2 0002" BACK TO LOAD FCT wITH *01° ee 1A98 3D FF 3570 1997 CLI CReX*FF? CHK FOR *FFe 
1az2 FF 1A22 1931 Dc OXLAS EFS 1999 * | | j 
1932 * iy, %AA2 CO BF 2A07 2000 FTREX2 8 ERRPRT ERROR CODE S2A2 j 
1A23 3C 01 33FD 1933 MVE _ SCR EEXTs X902° SCN BIT 7 ‘INHIBIT TRAPS* ; © aaae 20 IAAG 2001 Dc OL" 30° a i 
1A27 CO 87 28BCA 1934 8 LSCN LOAD SCN WITH X*01* LAA? CO 87 3058 2002 FTRAPA 8  — SFHE READ FHF REG 
1935 * _ 2003 * . 
1A2B CO 87 2D0F 1936 8 tacso SEY UP TO EXEC PROG O AT 0009 \ o. 1AAB 38 01 330E 20046 _ TBN YOPINexX*o1# TEST IF END CF FILE XFER IS ON ; 
LA2F 00 1A2F 1937 OC = AL1EMTARO} LAAF F2 10 05 2005 JT ~—sC FT RAPS i 
1A30 00 1A30 1938 oc = L100" ae 2006 * i 
1939 * hes 1AB2 CO 87 2A07 2007 8 ERRPRT ERROR CODE S1A3 t 
1431 CO B87 2C4A 1940 8 LFHF RESET FHF BITS O 4 & 7 RaB6 30 2086 2008 DC XL1°30° 
1a35 CO 87 31DD 1941 8 1OPGD START IOP AGAIN. WITH “INHIBIT TRAPS| 2000 + 
1942 * ON FILE TRAPS WILL NOT OCCUR. 1%. JAB? 38 08 330E 2010 FTRAPS TEN IGPINsX?08* TEST TE END FILE TRAP COUNT IS ON ; 
1943 * ; 1ass F2 10 0S 20112 JT FTRAPS i 
1439 CO 87 2E73 1984 8 SALSD SENSE ALSD OF PROG 2e SHD STML GE |. 2012 * : 
TA3D OA LAID 1945 oc aL 1¢DS2} ZEROe . { (> LaBE CO e7 2A07 2013 e ERRPRT ERROR CODE SIA4d ; 
1946 * 1Ac2 40 2aC2 2014 OC = XL1°40° 
1A3E 3D 00 330E 1947 CLI I10PIN.ex*00° CHECK FOR *00* ae 2015 * ; 
1AG2 F2 82 05 1948 JE -FYRAPD Jume IF OK brags 4aAc3 CO &7 2988 2016 FTRAP6 8 NORMN GO TO NORMAL END AND LOOP : 
1949 ¢ ' 2017 * ‘ ; 
1Aa5 CO 87 2A07 1950 8 ERRPRT ERROR CODE S1A8 — 2018 * NOw TEST EVEN BYTE FILE xFER ‘ 
1A49 80 1Aa9 1951 oc xL1° 608 1 2° 2019 * | 
i13S2 * 1AC7 CO 87 2999 2020 8 BGNTST INIT FOR NEw TEST 
AGA 3C 00 33FD 1953 FTRAPD MMVI SCN+EXTsX*00° ZERO THE SCN REG ee 2021 * 
LAGE CO 87 26CA 1954 6 LSCN i G 1ACB CO 87 2D0F 2022 8 LALsD SET FILE TRAP DATA ADOR TO *0000* | 
1955 ¢ ACF OA ACF 2023 oc 8 = AL 2002) i 
1 @ | | : 
DATE 1SAUG75 OSNOV7S PROG 10 CiS-1, pate 1SAUG7S OSNOV7S PROG 10 Cis! 
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e151 2240 ATTACHMENT TESTS — “oD 12 e151 3340 ATTACHMENT TESTS — MOD 12 


ERR LOC OBJECT COCE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1AD0 00 4AD0 2024 oc xL3*00* : 1B63 O80000FF 1866 2092 oc XL 4° OBQOOOFF * 
2025 * 2093 * 
1A01 CO 8&7 200F 2026 8 LALSD SET UP PPOG O MIAR TG £0001" 1867 2C 00 33F8 2094 MVI  FTRHEXT®X*00* TURN OFF ADAPTER RESET 
1a05 OO yacs 2027 oc ALICNIARO? (CODD FILE XFER WILL NOT 1868 CO 87 288A 2095 8 LFTR 
1AD6 02 1AD6 2028 pc 8=—_ H™L_1° 01° BE TURNED ON) 2096 * 
2029 * 1B6F Co 87 3008 2097 8 SADS CHECK IF FILE XFER ERROR IS ON 
1a07 CO 87 2EES 2030 8 ics! SET DATA AREA TO CO"S 1B73 39 10 33DE 2098 TBF {f0PINexX*10° EXPECT IT TO BE OFF NOW 
1a0B 0600 , tape 2031 oc xL2° 0600° 1877 F2 10 05 2099 JT FTRAPA JUMP TF OK 
' 1A0D 000000 1ADF 2032 pc x 2* G000G0* 6 2100 * 
1aEQ 000000 1AE]S? 2033 oc xL 3*°000000* 1B7A CO 8&7 2A07 2101 8 ERRPRT 
1AE2 FF 1AE3 2034 oc XLLCFFe 1B7E 60 IB7E 2102 pc xL1*60* ERROR CODE 5146 
2038 * en, 2103 * 
1AE4 3C FF 33F0 : 2036 MVE | FBISCEXTeX*FFS SET TEST DATA IN FBI REG ; 167F CO 87 2C4A 2104 FTRAPA 8 LFHE RESET SHE BITS Oe 4 & 7 
1aE8 CO 87 2868 2037 B LFel é 2105 *# 
2036 * 1883 CO 87 200F 2106 8 LALSD SET PROG 0 TO START AT *0000° 
1AEC CO 87 28CA 2039 2 LSCN RESET SCN TO *00° 1687 00 1887 2107 DC AL1 CMIARO? 
2040 @ . 1888 00 1886 2108 . oc xXxL1i"*900° 
4AFO CO 87 2C4A 2041 e LFHF RESET FHF BITS 0. 46 7 “ie 2109 * 
yaFa co 87 3100 2042 8 10PGO0 START EXEC aT *0001° : 1889 CO 87 310D 2110 8 10PG0 START MICRO PROG ey ECUT ION 
2043 * 2111 # 
2044 * NOW TEST RESULTS OF EVEN BYTE XFER Se isso co e7 3008 : 2212 e SADS READ ADS REGCERRORS) 
2085 * 1891 38 10 33DE 2113 TGN TOPINeX* 10° EXPECT FILE XFER ERROR TO BE ON 
1AF 8 CO 87 2F43 2046 8 scs READ CS FILE TRAP DATA AREA 2489S F2 10 05 2114 JST FTRAPB gump IF OK 
1AFC 0600 4AFD 2047 oc XL 2* 0600° a i 2115 * 
2048 * a 2898 CO 87 2A07 2116 8 ERRPRT ERROR CODE S1A7 
1AFE 3D FF 3570 20469 CLI CRexX* FF EXPECT "FF* DATA 189C 70 189C 2117 pc XL3°70* 
1802 F2 01 O07 2050 JNE EFTRPK2 BR IF NOT CORRECT r 2118 * 
2081 * a 1e89D CO 87 2968 2119 FTRAPB 8 NORNN NORMAL END 
1805 30 FF 3571 2052 CLI ¥eX* FF CHECK 2NO SYTE RECO : i 2120 
1f09 F2 81 05 2053 JE fTRAP? BR IF CORRECT ’ C: 2120 
2054 & 7 2121 * 
1680C CO 87 2A07 20585 FTRPX2 8 ERRPRT ERROR CODE 5145 , 2122 * NOW TEST ERROR TRAP *A*® AND ‘DISABLE ERROR TRAP® € FTR 4 } 
1810 SO 1610 2056 pc = ™@™_ 1 * 0° ae * 
oe , 2087 * < 28a1 CO 87 2EES Stee e ics! : 
Bee 1611 Co 8? 2988 2058 FTRAP? 8 NORMNN - NORMAL END : 1BAS 0020 1BA6 2125 pc _- XL 2 "0020* SETUP TRAP A MIAR = 0020 SSS 
20S9 og 168A7 080000 ABAD 2126 oc XL3* 080000* No-0P 
2060 * FORCE A FILE TRANSFER ERROR BY ALTERING THE ADORESS used a IBAA 100021FF 1BAD 2127 oc XL4@*100021FF* 8B 0021 HANG 
2061 *# BY THE FRE TRAP PROG i 2128 * 
2062 * ge 1BAE 3C 13 3475 2129 MVI «—«- AL SD40.7 0X91 5° INDEXe ALLOW TRAP A 
1815 CO 87 2EES 2063 8 cs! LOAD THESE INSTRUCT IONS In cS ae 18B2 3c 13 3477 2130 “vi ALSD4¢090X413° LINK TO *ALLOW TRAP ae 
1619 0000 1B1A 2064 oc »2*0000° aT *0000° 1886 3C F4& 3479 2131 wvI ALS O41 2 oX*FA® CHNL PROGRAM INDEX 
1816 19EF Oe 1810 2065 oc XL3* LSEFOS® SET FILE READ AND XFER MODEC SCN REG) r 1BBA BC 54 3478 2132 wvI ALSO013.%" S8* FILE PROGRAM INDEX 
1BiE cas6ol 1820 2066 oc xi 3* 0686601 ° LOAD FCT wITH *°Or* Se 188€ 3C 37 3470 2133 wv ALSO415eX°37* TRAP A INDEX ‘ 
1821 oeas05 1823 2067 oc xL3*O8AS05*° DIAG MODE AND ALLOW ERRORSCF TG) 18C2 Co 87 20C8 2134 8 LALSDi GO LOAD *EM UP 
1824 19£502 1826 2068 pc xL3*°29E502° DIAG SYNC IN at aise 2135 @ 
1827 080000 1829 2069 oc 8 3=—_ XL 3 080000° no-0P C 18C6 3C 08 160F 2136 vi FTRP13ex*08* START WITH TRAP DISABLED - 
182A 080000 182c 2070 oc 3=— &L 3 0680000° No-0P 2137 * 
1620 19€&S02 182F 2071 oc ML 3* 2196502° OTAG SYNC-IN ' C; 18CcA CO 87 2999 2138 r) BGNTST 
1830 080000 21832 2072 pc xL3*080000* NO-OP | Ne 2139 * LOOP HERE TO TEST ‘ADAPTER CHECK® ALLOWED 
1633 060000 1835 20735 oc = XL3* 080000° No-GP 18CE 3C 80 33F8 2140 FTRP14 MVI FIRSEXTeX*80° DO AN ADAPTER CHECK RESET 
1836 080000 1838 2074 oc xL 3° 080000°* no~-oP i 18D2 CO 87 2BBA 2141 e LFETR 
1839 080000 1828 2075 pc =. XL 3. 080000° NO-OoP b Re 2142 * 
1B3C 039242 1B3E 2076 oc %.3* 039242° ALTER ZLS ADR 12 TO 42 TO Cause ERR 1806 CO 87 3141 ; 2143 B LxoPr RUN ONE CYCLE TO CAUSE SENSE STROBE . 
1B3F 19€&S02 18601 2077 oc x 3* 19E502° DIAG SYNC IN Pe 1BDA CBO00OFF 2800 2144 oc XL4* OBGOOOFF® 
1B42 080000 18404 2076 oc xi3*eo080000* NO-OP ko. 2145 « 
1845 080000 1847 2079 oc _xuL3°080000* no-0P LEDF 2146 FTRPI3 Eaqu 241 
1B4e 13926A 184A 2060 DC =—- XL3#13926A° ALTER ZLS BACK TO 4A e 180E€ 3C 08 33FB 2147 MVI - FTR*EXTeX*O6® ENABLE OR DISABLE ERROR TRAP 
1848 000010 1840 2061 oc xL3*000010° BRANCH TO ITSELF wo. 18€2 CO 87 268A 2148 8 LETR 
1B4E FF 21@4E 2082 oc MLI*FFS i 2149 * 
2063 * : 1BE6 CO 87 2BCA 2150 8 LSCN RESET REGS 
1646F CO BT 2999 2084 8 BGNTST INIT FOR NEw TEST XK 1BEA CO 87 2COA 2181 r) Lost 
20e5 ¢ 1GEE CO e7 2C4A 2152 8 LHF 
1853 CO 87 2BCA 2086 8 LSCN ZERO SCN REG ay 1Bf2 co 8? 2E€a9 2153 8 Lat +RAP A MODE = 00 
2087 * es 18F6 GOFF 18F7 2154 oc 20k 2°eaFee 
1BS7 3c e0 33FB 20886 MMVI FT R+EXTeX*8O0° DO AN ADAPTER CHECK RESET : 2165 © 
1858 CO 8&7 266A 2089 8 LFTR ‘ ~. %6F8 CO 87 200F 2156 8 LAL SO 
2090 * ! (. 18FC 00 18FC 2157 pc AL.2¢M ZARO) BASE WIAR = 0000 
185F CO 87 3143 2091 8 LxoPr RUN ONE CYCLE TO CAUSE SENSE STROSE | 1BFO 00 18FO 2158 oc RiLl*00* 
DATE 15auGTS OSNOV7S PROG ID cis-1; DATE 1SauGTs oSNOovTs PROG 10 c15-1 
Ec NOe e27785 827627 PAGE 19 ces NOeo 227788 e27827 PAGE 19a 
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c1s1 3340 ATTACHMENT TESTS ~- OD 12 c27Si 3340 ATTACHMENT TESTS - MOD 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2159 * : 2226 * 
1BFE CO 8&7 2DDF 2160 8 LALSD 1¢95 3C ©O 33FD 2227 MVI  SCN+EXTX*60* CLEAR SCN REG 
1c02 04 1€02 2161 pc ALICMIARI) TRAP A MIAR = 0020 1c99 CO 87 2BCA 2228 8 LSCN 
1¢€¢3 20 1003 2162 oc xL1*°20° 4 2229 * 
2163 * 1cC9D 3c 00 3373 2230 wvVI FTGtEXT oX*00* CLEAR FYG REG 
1¢004 CoO 47 3100 2164 B 10PG0 1CA1 CO 87 2BAA 2231 B LETG 
2165 * 2232 * ; 
1¢08 CO 87 2673 2166 8 SAL SD HALT 10P. GET TRAP A HTAR 1CAS CO 87 2DA9 2233 8 LaLss SETUP DSADDR (FILE) = GDOF 
: 1cOc 04 1coc 2167 pc ALICMIAR1} 1CAS OA 1CA9 2234 pc AL10DS2) 
1COD 3D 21 33DE 2168 cul ICPINeX*21¢ DID TRAP A GCCUR ? 2CAA eS ICAA 2235 ; Dc XL1 *8S5° 
1Ciil F2 81 OC 2169 JE FTRP15 BR IF YES 2236 * 
2170 * GET HERE IF TRAP A DION*T OCCUR ” 1CAB CO 87 2999 2237 8 BGNTST 
1€14 38 0& 33F8 2171 TEN ETREEXTX*08* TRAP DISABLED ? es 2238 * 
1¢€18 F2 i0 13 2172 ut FTRP17 BR iF YES 1CAF 3¢C 01 33F5 2239 MVI -FHE¢EXTeX*018 TURN OFF EOF CNT 
2173 * ERROR — TRAP A SHOULD HAYE OCCURRED 1CB3 CO 87 2C4A 2240 8 LFEHF 
1€18 CO 87 2A07 2174 B ERRPRT \ 2241 * 
1c1iF £0 1C1f 2175 oc xXL1°EO* ERROR S1AE 2242 * 
2176 * GET HERE TF TRAP A OCCURRED 6% 1cB7 CO e7 2DDF 2243 e LALSD SETUP DSAOR (FILE) = DDOF 
1€20 38 08 33F8 2177 FTRP1S TEN FIR+EXTsxX*08* TRAP DISABLED ? 1¢C88 OA 1CBB 2244 oc AL12¢0S2) 
1024 F2 $0 OD 2178 JF FTRPIS eR IF NO 1¢Bc co icec 2245 oc xL1°00* 
2179 * ERROR — TRAP SHOULD NOT HAVE OCCURRED 2246 * 
1¢c27 CO B87 2A07 2180 8 ERRPRIT 1CBD CO 87 2EE3 2247 : 8 Lcs! PUT DATA *AA* IN DDDF 
1C2B8 00 1C28 2161 oc xXL1* 90° ERROR SIAD 1¢¢2 0500 iCC2 2248 oc xL2*0S00* 
. 2182 * 1CC3 10AAAAFF 1CC6 2249 pc XL4* LOAAAAFFE 
1c2c 2C 00 1BDF 2183 FTRP17 MMVI FTRP13.x*00* SETUP TO ENABLE ERROR TRAP 2250 * 
1¢30 CO 87 1BCE 2184 e FTRPI4 AND RE-RUN TEST 1CC7? CO 87 20DF 2251 8 LALSD SETUP INITIAL SIAR 
2185 * a iccs 00 1ccB 2252 pc ALI (MIARO) 
1034 3C 08 1BDF 2186 FTRP18 MMVI FTRP13.x*08° SETUP TO DISABLE ERROR TRAP a? 1ccc 00 icec 2253 oc XL2*00° 
1C38 CO 87 2988 2187 a KORMN Loop 2254 * 
2166 * 1ccoD co 87 3100 2255 8 10PGO0 
2189 * RESTORE INDEX WORDS 2256 * 
2190 * 1CD1 CO 87 2FaB 2257 8 SFBI HALT 10P. GET FBI-REG 
1C3C 3C 00 3475 2191 avi ALS04072xX*00° a 1C% 2258 FTRP19 EQU #41 
1C40 3C 14 3477 2192 “VI ALSO409 ox*148 BASE INDEX 1CDS 3D 55 330E 2259 eur ITOPINSX*S5* SEE IF DATA IN FBI-REG IS CORRECT 
1044 3C F4 3487S 2193 —C MVI  ALSD4110x*Fa® CHNL PROGRAM ENDEX : 1cD9 CO 8&1 1CE6 2260 BE rTRP2ZO BR IF VES. See eS pes Pye 
ic48 3C 54 3478 21946 wvE ALSD4130X°S4* FILE PROGRAM INDEX 56 2261 * 
1C4¢C 3C 54 387D 2195 vr ALSD+15ex*Sa* ee ee ee . 1CDD CO 87 2A07 2262 8 ERRPRT 
1C50 CO 87 2DC6 _ 2196 : 6 LALSD1 GO LOAD *EM UP 1CE1 C2 1CE1 2263 oc xLi*c2e ERROR S1AC 
: 2197 * bos. 1CE2 1006 iCE2 2264 9c AL2 CFTRP19) EXPECTED FBI-REG 
2198 po, 1CE4 33DE 1CES 2265 oc AL2CLTOPIND RECIEVED 
2198 2266 * 
2199 * Soe 1CE6 CO 87 2988 2267 FTRP20 28 NORMN 
2200 * TEST FILE *WRITE*® CONTROLS - PART 1 ve 2268 a 
2201 * i 2268 
1054 CO 67 2EE3 2202 8 Les! ie. ; 2269 * 
1¢S58 0000 1CS9 2203 pc xL2*°0000° i € 2270 * FILE *WRITE® CONTROLS - PART 2 
ICSA 18AESS 1cSC 2204 pc XL3*°1BAESS® LBI FBOexX'5S* DATA PATTERN -> FBO-REG \ 2271 * ; 
1CSD 166A80 IC&F 2205 pc XL3°168AB0* SMODE PTR - 010606 M — 10 sy 1CEa co 87 2EE3 2272 8 ics! 
1C60 DBAFOA 1€62 2206 pc XLZ*°OBAFOA® LEI SCNeX*OA* ALLOW FILE XFER/DATA TO LR, 1CEE 0000 1CEF 2273 oc XL290000° 
2207 * FILE 1CFO 18AESS 1CF2 2274 pc XL3°1BAESS* LBI FBOsx'SS* CATA PATTERN -> FEO-REG 
1C63 _18860F 1c65 2208 oc XL3*LB8B60F*® LBL FCTex*OF* LOAD FCTe CAUSES "SET FO*  - 1CF3 168A80 1cFS 2275 oc 11 3°168A80* SMODE PTR -— 010+ M = 10 
: 2209 * FROM F80 & 1ST TRAP B toy 1CF6 OBAFOA 1CFe8 2276 pc XL3°OSAFOA® CBI SCNeX*OA* ALLOW FILE XFER/DATA YO 
1€66 080000 1céB 2210 pc XL3*080000* NO-oP WAIT | 2277 * FILE 
1€69 080000 1C6B 2211 pc XL 3*080000° FOR "1. CFO 18660F 1CFB 2278 oc XLB°2BBEOF* LB FCTeX*OF* LOAD FCT+ CAUSES *SET FOS 
1C6C 080000 1c6Ee 2212 oc XL3* 080000° TRAP oh 2279 * FROM FBO & 1ST TRAP B 
1C6F 18A504 1C71 2213 oc XL3*°18A504* LBI FITGex*04* GATE FO TO FI 1cFC 080000 1CFE 2280 pc xL3*080000" NO-OoP WALT 
1072 O8AS14 - 1074 2214 oc XLZ*°OBASI14® LBI FIGeX*14* LOAD FI (DATA = 55) a ICFE 080000 1001 2281 pc XL3*080000¢ FOR 
1C75S 180504 ic77 2215 oc XL3°18AS04® CBI FTGeX*04* TURN OFF THE "LOAD FE* CLK - * 1D02 080000 -1D04 2282 pc XL3* 0800008 TRAP 
1C7e 18A200 ICTA 2216 oc XL3*°18A200* “tBI FBIexX*OO* GATE FEI FROM FI 21D0S 18a502 1D07 2283 pc XL3*°18AS02* LBI FYGeX* 02" OLAG SYNC-IN CAUSES TRAP<8 
1C78 C6AS00 1C7D 2217 oc XL3*°OBASOO® LBI FTGex*00* DROP DIAG GATE ae 2284 * . AND SET FO FROM FBO 
1C7TE OBAFOO 1c80 2218 pc XLZ*OBAFOO® LSI SCNeX*00* RESET *ALLOW FILE XFER® sins es 1p0e 0380000 1D0A 2285 oc xL3*°080000" NO-OoP 
1€81 000000 1¢83 2219 oc xXL3°00000D* 8B 0000 HANG 1D08 080000 1D0D 2286 pc xXL3*080000* NO-OP 
1086 FF 1€84 2220 oc XLL°FFe IDOE 18A504 1D10 2287 oc XL3°1B8AS04® LBI FYGex*0a* GATE FO TO FI 
; 2221 * . 1011 OB8AS14 1013 2288 oc XL3°O08A514* LBI FYGexX#14* ‘LOAD FI* PULSE 
iced 3c 12 33E5 2222 avi ZLSARA18B SETUP ZLS = *CE*{ WRITE TO FILE) 1D14 18A504 1D16 2289 oc XL3*1BASO4* LBI FTGexX*04* TURN OFF THE “LOAD FI® CLK i 
1c89 3C CE 34¢0 2223 “v1 ZLS¢+16eX"CE® a 1017 068a500 1019 2290 oc XL3*°OB8AS00* LBE FTGex"00" ORTP DIAG GATE 
- 1€8O 3C 01 330F 2224 VIL ENGTHel jhe 1D1A 16A200 1pic 2291 oc XL3B*1BAZ00" LBI FBIeX*00* GATE FI TO FBI 
1693. CO 67 2D44 2225 B LZLSs ’ 1D1D CBAFOO IDIF 2292 pc XL3B°OSAFOO* LBI SCNeX*00* RESET *ALLOW FILE XFER® 
Fad tf, & 7 i 
Bee 
DATE ° 15AUG75S OSNCV7S PROG 10 ciS-1. DATE 1SAUG7S OSNOVTS PROG 1D cis-1 , 
EC NO.» 8277865 827827 PAGE 20 +» EC NO. ©27785 e27827 PAGE 20a | 
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oo ego ae! NR mage EER Selb thee ieee seh é : Ps : “ 
~ ann oS Sieh avaiate og ke ile vec ee tule : . z ih 
_ * : - Sos «as : 


Bethea s 


16M MAINTENANCE DIAGNOSTIC PROGRAM 


c1s1 


ERR LOC 


1020 
1023 


1024 


1028 
dec 
1020 


1D2eE 
1032 
1033 


1034 


1038 


103¢ 
1040 


1046 
1046 
1049 
1068 


1D40 
1051 


1085 
1056 
1057 
1089 


OaTE 
EC NOs 


2340 ATTACHMENT TESTS ~- MOD 


OBJECT CODE 


000010 
FF 
co e7 
co 


OA 
00 


87 


co 
00 
oo 


87 
co 87 
co 87 


30 
co 


aa 
81 


co 
c2 
1030 
33DE 


87 


co 87 
co 87 


18 
oo 
10580 
co e7 


ISAUG? 
8277858 


2999 


200F 


200F 


3100 


2Fae 


330E 
2104D 


2407 


2988 


02126 


0216 


Ss 


ADOR 


1022 
1023 


1o2c 
1020 


1032 
1033 


1030 


1048 
104A 
104¢ 


1085 
1086 
1666 


OSNOV 75 


827627 


STMT 


2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2202 
23203 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2321 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2220 
2321 
2722 
2323 
2324 


12 


SOURCE STATEMENT 


oc 
oc 


= 
* 
Freres £QU 


cul 
BE 


oc 
oc 
oc 
* 
FTRP27 8 


RTNIE ec 
oc 


oc 


XL3*000010* 
XLI°FF® 


BGNTST 


LAL SD 
ALi ¢0S2) 
*xL2*°O00° 


LALSD 
ALICMIARO) 
xXLi*00* 


10PGO 


SFBI 

e+] 
TCPINeX* AAS 
FTRP 27 


ERRPRT 
xLi*cee 
AL2 CF TRPE25) 
AL2C TOP IN) 


NORMN 
LINK 


xL1*16° 
xL1*00° 
AL2CRTNIC) 
LINK 


PART NO 
PaGE 


) 0010 HANG 


HALT IOP. GET FBI-REG 


DATA AS EXPECTED 7? 
BR IF VES 


ERROR SiAC 
EXPECTED FSI 
RECIE VEO 


END OF RTNE 


ROUTINE 16 NOT USED 


NEXT ROUTINE ADDRESS 


PROG 10 
PAGE 


4247607. 


23 


3 


(ek eisai 


ISM MAINTENANCE DIAGNOSTIC PROGRAM 


cis} 2340 ATIACHMENY TESTS - 0D 
ERR LOC OBYVECY CONE ADDR STMT 
2326 
2327 
eas 2328 
é 2329 
2330 
ae 2331 
ae 2332 
2333 
f- 2334 
we 2335 
2336 
c 2337 
. 2338 
2339 
eo 2340 
me 2341 
2242 
cr. 2343 
H. 2394 
2345 
10SD 1C¢ 1050 2346 
105€ oO 1OSE 2347 
105F 1F2E 1060 2348 
a 2349 
1061 CO 87 2885 2350 
: 2351 
o 2382 
i 2353 
1D6S CO 8&7 2EE3 2354 
= 1069 0000 IDEA 2355 
. 2356 
1068 16A781 1060 2357 
# 2108E 069080 1070 2268 
z 1971 168A80 1073 2359 
1D74 O3S6CE 1076 2360 
f 1077 OSaAFas 1D79 2361 
i‘ 1D7A 088601 107C 2362 
2D7D 100006 1D7F 23623 
7 2364 
‘1080 19€502 1D82 2365 
1083 139246A 1085S 2366 
1Dpe6 080000 1088 2367 
1089 19€S02 1088 2368 
108¢ 0806000 1D8E 2369 
Q 108F o800C0 21091 2370 
ine 1092 19&S02 1094 2371 
1095 080000 1097 2372 
¢ 1098 080000 109A 2373 
‘. 1998 O08 aFOO 2109D 2374 
1DSE 200011 1DAO 2375 
Cc 10A1 FF 1DA1 2376 
Xe 2377 
IDA2 CO @7 20A9 2378 
Z 1DA6. OA 1DA6 2379 
Mee 10a7. 8S 2DA7 2360 
2362 
ff 1048 CO 87 2DA49 2382 
> apac 1a 1pac 2383 
IDAD 86 IDAD 2364 
€ 2385 
- IDAE CO 87 2D0F 2386 
1082 038 1082 2387 
es 1083 pe 1063 2388 
NO 2389 
1084 3C 00 33F0 2290 
go 1088 CO 87 26CA 2392 
~. 2392 
10@c 3c CE 346cea 2393 
Cc 
DATE 15AUG 75 OSNOV7S 
EC NO- 827785 e27827 


i2 


SOURCE STATEMENT 


eeeeeevneeoeeoeoeeeeoeoeoeoeoeeoeee8 eee e808 & 


PART NOo 
PAGE 


4247607 
2ia 


SHREEMRERRERE SE AAAASRA RS AD FEAT SERESHKEHKESSOSS BISS SEEKS EFEARSE REEARESESE 


HU2RREHHRERERHRED HED 


SCAN 


* 

FAPDWARE TEST (SHT) s 
TESTS — SCAN CONTROL HAROWARE € 601061126412651} * 
TRAP *#*C*® CONTROL CT20e J20 Q2) * 

SEY TO "FBO" & *FO* REGS * 

HY se 10 COMPARE LATCHES = 

RESULT LATCHES (*SCAN EG*. *SCAN HET®) * 
COMPARATOR * 
ERPORS OISPLAYED - os 
53CO FHF BITS 5 & 6 FAIL TO RESETe Vi = FHF RCVOe 

£—1C1 FBO NOT C TEC BY TRAP *C® * 

51C2 FHF NOT AS EXPECTED FOLLOWING SCAN * 

Vioc FHE EXPDs 

v2 = FHF RCVD*s 

51C3 TIO OION*T BR ON *SCAN HIT® * 

51C4 TIS BRANCHED WITH NO *SCAN HITT ® * 


* 


REARS SKRAAAA SE CESSES SHH SS ETE SEGESSEHES SARS SSF SSSA SAS SSIS SISTA RSERKASS SES 


* 
RTNIC 


pc 
o¢ 
oc 


xALiLeice 
xXL1*00° 
AL2(RTN10) 


BEGIN 


ROUTINE 1¢ 
NEXT ROUTINE ADDRESS 


INET FAL IZATION 


LCAD CONTROL STOR MICRO PROGRAM THAT SIMULATES SCAN 


8 
oc 
BELOW 
oc 
oc 
oc 
bc 
oc 
oc 
oc 
BELOW 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
pc 


8 
oc 
oc 


avi 


mvE 


Lcs! 
xL2°0000° 


CAUSES 2 TRAP C*S TO LOAD FOs 


LOAD CS AT LO 0000 


FeC FROM CS 


XL3°18A781° RESET FHF BIT O AND 7 

XL3 *069A80* SET MODE FGR PGM 6 TO °10° 

Y¥L3* 168A 860° SET MODE FOR PEM 2 TO 410° 
aL3*O396CE* SET ZONE FOR PGM 6 

XL. 3° OGAF 68* LBI SCNeX*SE* (SCN CTRLEFILE XFER} 
XL3*088601° LOI FCTeX*O2R*C TO XFER 2 BYTES) 
xi3*100006° BR TG ITSELF. HANG . 


SIMULATES SCAN C*READ*® WITH SCN 0 ON) TO COMPARE FO/F I 


XL3* 19E502* 
XL3* 1392408 
xL3*°080000° 
XL3°29ES02° 
xt 3*080000° 
XL3*O80000" 
ML3°29ESO2* - 
xL3*°080000° 
xL3*080000° 
XL3*O8AF00* 
XL3* 200012° 
XLISFFS 


LaALsSs 
AL 1i¢ OS2) 
xLaiease 


LAL SB : 
XLaA*sae 
XL? °8S* 


tarso 
xiL1° 08° 
xtLi*pae 

3 
SCNSEXTeX*00* 
LSCNn = 


ZLS#220x*CE* 


CRI FTGeX*O2*(OIAG SYNC IN} 


LOAD 72.5 12=K*@A* (READ FROM FILE) 
N%-OPe WAIT 

DIAG SYNC-INe SCAN COMPARE 

NO-OP. WAIT 

NO-OPe WAIT 


DIAG SYNC-INe TERMINATE SCAN 
NO-OP. WATT 
NO-OP. WAIT 


LBi SCNexX*® 00" CLEAR SCN REG 
BR TO ITSELFe HANG 
TERM 


SETUP DSADOR FOR TRAP °5* 
ALS ADDRESS 
BLOCK *OS5* + "MA TI® BIT 


SETUP DSADOR FOR TRAP *Ce 
ALS AODRESS 

*MILTI® BIT AND G@OCK *06° 
SETUP INDEX BYTE IN ALSCO)D 
ALS ADDRESS 

PYR = G6 eo LINK = °19° 


CLEAR SCN REG 
SETUP PTR 21130 ZLS FOR 


PROG 1D, 
PAGE 


ciS-1 
2aa 








meee 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247607 {8M MAINTENANCE OLAGNOST IC PROGRAM PART NOe 4247607 
: PAGE 22 PAGE 22a 


cisi 2340 ATTACHMENT TESTS - MOD 12 c1s1 3340 ATTACHMENT TESTS - MOD 12 


ERR LOC OBJECT COCE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1pco 2¢ 16 33€9 2394 “vi ZLSAR 22 ewRITE TO FILE® 1€62 CO 87 3058 2461 8 SFHF 
20C4 3C 01 330F 2395 avi LENG THel 21€66 39 06 33DE 2462 TBF LTOPINe X*06* COLO BITS S & 6 RESET? 
apce co e7 2044 2396 e u2Ls 1E6A CO 10 1E75 2463 eT SHTO8 BR IF YES 
2397 * 24064 «* 
10CC C2 01 1€E4 2398 La SHTTEL es XR1 POINT TO TEST TABLE . 1E6E CO e@7 2A07 2465 8 ERRERT 
1DDO 1C 00 33F0 00 2399 SHTO! “vc FEIFEXT.0(1 oXR1 GET *FI* DATA 1€72 01 LET] 2466 pc xLi*oL1e ERROR $1CO 
1005 co 87 2866 2400 8 LFeBt WOVE *DATA® TO *FI® 1€73 33DE E74 2467 oc AL2 (TOP IN) RCVO FHF 
: 2401 * ' : 2468 * 
7 1009 1C 00 IDES O1 2402 “avec SHTO4 01 (1 oXR1) GET *FO* DATA FOR COMPARE oe 1E75 cO B7 2D0F 24069 SHTO8 8 LALSD SET MIAR TO 0000 
1DDE CO B7 2EE3 2403 8 ics! ; PUT IN CS DATA LOCATION 4 1€79 00 1€79 2470 oc AL3 CMTARO) 
4DE2 0600 IDES 2404 oc AL2CDDDF1? : 1€7a 00 YETTA 2471 oc xL1°00° 
1DE4 10 1DES& 2405 oc xXL1*° 10° PARITY FOR OATA BYTE : 2472 * 
10E5 00 IDES 2406 SHTO4 oc AL 1 (8) DATA BYTE FROM TABLE 1€78 CO e7 3100 2473 8 10PGO START I10P PROGRAM, SET SCNe FCT REGS 
1D€6 FF 1DE6 2407 oc XLI* FFE OATA TO TERMINATE SCAN 2474 * 
10€7 FF 1DE7 2008 oc XL1i°FFe TERMINATE CS WORDS LE7F CO B87 2FCB 2475 e sFB0 READ *"FBO*® REG 
2409 * : 1€83 3D FF 33DE 2476 cul LTOPINeX* FF SEE IF TRAP C*S XFRD DATA FROM CS 
1DEB 1C 00 1F2D 02 2410 “vc SHTWK 02 C1 oXR1) SAVE TEST FLAGS ’ 1687 CO 81 1€90 2477 BE SHTO9 BR IF YES 
1DED 38 FO 1LF2D 2411 SBF SHTWK 6 X*F9? MASK SCN BIT OUT be 2478 * 
IDF1 1¢ 00 1€50 02 2412 MVC —«- SHT 07 0 2€1eXR1? MOVE FLAGS TO LSI SCN INST 1E€8B CO 87 2A07 2479 8 ERRPRT 
1DF6 38 BF 1&50 2413 SBF SHT07. X* BFF MASK FHF 8I1TS OUT 1E8F 10 1ESF 2480 oc XL1°10* ERROR $1C1 
IDFA 3a @8 1£50 2414 SBN SHTO7.X*88* TURN ON SCN CTRL €& FILE XFER re 24st * 
IDFE 3C 18 1€4E 2418 wvI SHT06 oX*28° SETUP PARITY FOR *EVEN WOPD® 1€90 CO 87 2D0F 2432 SHTO9 8 LALSD SETUP TO START 10P AT LOC 0007 
1E02 38 40 1£50 2416 TBN SHT072X*40° SEE IF *EVENS 1£94 00 1€94 2483 oc AL ICM TARO) TO DO ACTUAL SCAN COMPARE 
1E0€ CO 10 1E0E 2417 eT SHTOS eR If YES | us 1€95 07 1E95 2484 -oc XLL*O7# AND *fF* DETECT 
24168 * ; LS 2085 * 
1E0A 3C 086 1E4E 2419 wvi SHT 060 K* 08* ELSE SETUP PARITY FOR *0DD* ; 1€°6 CO 87 310D 2486 8 10PGOo START [OP PROGRAM. SIMULATE SCAN 
2820 * fats 24687 * 
1E0E 3C 04 33F3 2021 SHTOS avI FIG+EXTeX*04* DROP THE *LOAD FI® CLK 1E9A CO B7 3058 2488 8 SFHF GET *FHF*® REG 
1€12 CO 87 2BAA 2622 8 LETG : 1E9E 38 F9 33DE 2489 Ser 10P INeX* FO" MASK OFF ALL EXCEPT BITS 5S AND 6 
2423 * ZEA2 OD 00 32DE 1F 2D 2490 cic YOPING1) «SHTWK COMP RECDCIOPIN) WITH EXPTOCSHTWK) 
1E16 3C 00 23F3 24624 avi ETGtE XTs K*00* DROP THE DIAG GATE 5 2Eae CO 81 1E85 2491 BE SHT10 BR IF THEY ARE AS EXPTD 
4E1A CO G7 268A 2925 8 LETG 2a92 * 
2826 : EAC CO 7 2A07 2693 8 ERRPRT 
ayes Se, 1E1E 3C 00 33F1 2427 “vi PSTCEXT se X*00* ' CLEAR DST REG va 1EB0 22 1EBO 2494 pc xt.2°22¢ ERROR 51C2 oes San oa eee 
1€22 CO 87 2COA 2428 8 test : 1£81 1F2D 1ES32 2495 pc AL2 (SnT WK) tFHF® EXPECTED 
2429 ¢ igo 3 1€83 330E 1EB4 2496 pc AL2U10P IN) *FHF® RECIEVED 
1E26 3C 00 3402 2430 wvt DXCEEXT eX*008 CLEAR DxXC REG Duke. 2497 * 
1E2A CO 87 2BFA 2431 B LOXC i 2498 * GET HERE IF *FHFe REG BITS 5S & 6 ARE CORRECT TO TRY *TEST 470° 
2432 * oe 2499 2. 
2433 i 1E85 Ci C3 1EC6 2500 SHT10 TIO SHT12ex*C3* SHOULD SR ON ‘SCAN HIT® 
2433 ‘ 2501 * 
2436 ¢ BEGIN TEST LOOP HERE ; oe 1€89 39 06 1F2D 2502 TeF SHTWK « X*° 06° SEE If *SCAN HIT® EXPECTED 
~ 2435 * a 1E€8D CO 16 1£02 2503 eT SHT13 eR IF NOT 
1E2E CO 87 2999 2436 8 BGNTST 1 25046 2 
2437 * r 2EC1 CO B87 2A07 2505 8 ERRPRT 
1E32 3c 00 33FC 2438 wvt FBOCEXKT oX*#00* CLEAR *FBO* REG SiS 1€cS 30 1ECS 2506 pc XL1° 30° ERROR $1C3 
1£36 CO 87 288A 2439 8 LFBO | 2507 * 
2440 * Sos 1EC6 39 06 1F20 2508 SHT12 TRE SHTWK,»xK*06* SEE IF *SCAN HIT* EXPECTED 
1E3A CO e7 2DDF 2041 6 LALSD SET TRAP *C*® DSADDR TO 0600 ws 1eca F2 90 OS 2509 JSF SHT13 SR IF VES 
TEBE 1A IESE 2042 oc MLI® 1A i 2510 * 
1€3F 00 ESF 2443 oc XL1*008 A ae L1ECD CO B87 2A07 2511 8 ERRPRT 
2444 € as ED: 40 1€01 2512 oc XL1°40* ERROR §1C4 
1€40 3¢C 00 33FD 2445 avI SCN4EXT 00 RESET "SCN* REG 2513 * 
1644 CO 87 2BCA ' peas e LSCN e 1ED2 Co 87 2988 2514 SHT13 8 KORMN 
2447 + Ve 1€06 70 FF 03 2515 cut 3¢eXR1)eX*FF * END OF TABLE REACHED ? 
1€48 CO 87 2EE3 2448 8 test ALTER *LBI SCN® INST PER TABLE = 4ED9 CO @1 0216 2516 ee LINK er IF YES 
1E4C 0004 1EaD 2449 oc AL2 (0004) a , 2517 * 
1E4E 00 1ESE 2450 SHTO6 oc ALI #8) on 2E0D D2 01 O3 25186 LA Ble XR1L Pe XR1 ELSE BUMP POINTER TO NXT ENTRY 
1E4F AF 1G4F 2451 oc XL AF® ‘ 1EEO CO a? 1DD0 2519 B SHTO1 Loop 
1€50 88 1€50 2852 SHTO7 oc x11 °68* | 2520 
1€51 FF 1€51 24653 oc XLI°FFS TERMINATE CS WORDS & 2520 
2454 + i 2521 RESEEEAEREREES HOES HEEEEEES SHER ESEESEEEEEEEES EE EERE EE EE EEEESSESEESES 
1ES2 32C 04 33F5 2858 avi FHE+EXT oX* O48 RESET *FHF* REG ae 2522 * , 
1E56 CO 87 2CGA 2086 8 LEMF oo 2523 * SHTTSL TEST TABLE * 
Bas 20s? ¢ : 2524 @ FORMAT - 1ST BYTE = FI VALUE FOR COMPARE * 
1ESA CO ee? 3141 2458 8 txoPi RUN IOP TO RESET FHF REG a 2528 * 2ND BYTE = FO VALUE. FOR COMPARE 7 
IESE OBOODOFF s€61 2059 oc XL4* OBOOOOFF * » AL 2526 * 3RD BYTE = FLAGS. BIT 1 = SCN BIT 1 * 
: 2460 © | ; 2527. + BITS 5 & 6 = FHF BITS * 
DATE ISAUGTS OSNwOVTS : PROG ID c1s-1! DATE 1SAUGTS _OSNOVTS PROG 1D CciS-1 
EC NO. e27785 e27827 PAGE 22 j ;- EC NOe €27785 @27827 ; ; Pace 22a 
iRee ‘ 
| 
; le 


: eth Sere tose i ete thos nd 5 : es 
ee ; ink 
, ete £ 3 : “a4 
‘ = 2 aed ; : , : 4 
. : as f ‘ f r ory. 
& @ eo " & & . @ 2 @ @ & S | & & & & & | : 
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18M MAINTENANCE OLAGNCSTIC PROGRAM 


sTmtT 


2526 
2529 
2830 
2$31 

2532 
2533 
2536 
2535 
2536 
2537 
2538 
2539 
2540 
2543 
2542 
2543 
25448 
2545 
2546 
2547 
254a 
2549 
2850 
2551 

2852 

2553 
2854 
2555 
2856 
25587 
2558 


2559 


2560 
2561 
2862 
2563 
2564 


c1isi 2340 ATTACHMENT TESTS - mod 
ERR LOC OBJECT CODE ADOR 
\ 
1€€4 
TEES CD0D00F 1EES 
1EE? OO004F 1EEO 
LEEA 001109 1EEC 
TEED 001149 1€eF 
IEF OQ 123000¢ ierFe 
1EF 3 116040 1€Fs 
1EF6 LLILOF 1E€FSa 
TEFS Liar 1EFB 
TEFC 112209 1EFE 
1EFF 220009 1F O01 
iFO2 22004)D 1F04 
1FOS 22220F 1FO7 
1FO08 22224F 1F 0A 
1FOB 224409 1FOD 
1FOCE 440009 1Flo 
IFL1 840040 iF 13 
1F16 G4a4gO0F 1F16 
1Fl7 44a4aaaF 1F 29 
IFLA 4aR8809 1Fic 
1F 10 e80009 IFIF 
1F20 e8004aD 1F 22 
1fF23 BBP eOF 1F25 
IF26 BBEB4F 1F 28a 
1F29 88995909 1F 28 
iFec FF 1F2¢ 
1F2D oo 1F 20 
Se are A apt iN pee wt et i eee 
7 Wis cigs ti Bedategt ARE cata clot See as asic 
DATE 1S auG7s OSNOV7S 
Ec No. 827785 @27827 


& 


"S~ 


eCeoeeeoeeeeneooood 


ERR LOC OBJECT ccDE 


PART NO. 4247607 
PAGE 23 
12 
SOURCE STATEMENT 
* EXPECTED 
* SCN BIT 2 = Of SCAN = * 
* = 1e SCAN HI OR = e 
* FHF SIY 4 = END OF TRAP COUNT * 
* BIT S = SCAN SATISFIED * 
* SIT 6 = SCAN EQUAL * 
* BIT 7 = END OF FILE DATA TRANSFER * 
aN TMASESSERSSSRAR ERASER ASS SEE REED SH ERER REE AER SEEDED ORSRSEEEEES 
x 
SHTT&. EQU#s 
oc XL3°OO000F* FE = 006 FO = 006 scni = Oo FHFS76 = 11 
oc XL3°O00004F* FI = 00. FO = 00, ScNI = le FHFS/6 = 131 
oc XL3°001109" FE = 06, FO = 11. SCN] = Oe FHFS/6 = 00 
pc XL3°001249" 1 = 00+ FO = 116 SCN] = ls FHF576 = 06 
oc XL3°110009" FI = 11. FO = 00. SCNI = Os FHES76 = 00 
oc XL3°11004D* FE = 216 FO = 006 SCN] = le FHF5/76 = 10 
oc ALS*UL310F* FE = 11, FO = 116 SCN = Os FHF5/6 = 113 
oc XL3°3122@F* FL = 116 FO = 116 SN = le FHF576 = 32 
oc XL3"°112209* FI = 115 FO = 226 scni = Oo FHFS/6 = 00 
oc XL3*220009" FI = 22. FO = O06 SCN = Oe FHFS76 = 00 
oc XL3° 220000" FI = 226 FO = 006 SCN1 = 1, FHFS/6 = 10 
oc XL3°22220F* FI = 226 FO = 22. ScN1 = O. FHEFS/6 = 31 
oc RUS*22224F* FI = 226 FO = 226 SCN = le FHFS76 = 13 
oc XU3"224409 FI = 224 FC = 446 SCNI = Oo FHFS76 = 00 
oc XL3*460009" FI = 44. FO = O06 SCNI = Oe FHFS76 = 00 
pc RL3°40004D* FI = 44, FO = 006 SCNI = le FHEFS/6 = 10 
oc XL S°O48G0F* FI = 44. FO = 44, SCN = Ov FHFS76 = 11 
oc XL3* 4aaaaFe Fl = 44, FO = 84. SCN1 = le FHFS/6 = 11 
oc XL3*°408809" FI = 44, FO = 88. SCN = Oe FHFS76 = 00 
oc XL3"880009" FI = 88 FO = O06 SCN} = Os FHFS76 = 00 
oc XL3°680080* FI = 88. FO = 004 SCN} = le FHFS/6 = 10 
oc XL3°88680F* FI = 88 FO = 8&8 sCNy = Os FHFS76 = 13 
oc XL3*B6884F* FI = 88. FO = 88 SCN] = le FHFS/6 = 11 
pc XL3*°689909" FI = 666 FO = 996 SCN] = Oo FHF576 = 00 
pc XLIceFs END OF TABLE 
s 
SHT wk oc ALI( 2) SAVE AREA FOR EXPECTED vata 
t 
2 op 
: i. 
I aft A, 
\ 
i 
» €: 
PROG :0 CiS-3 | 
Pace 23 | 





16” MAINTENANCE CIAEGNCST IC PROGRANW 


c1sy 


IF2E 
FOF 
1F30 


iF 32 


TF36 
1F 3a 
IF3C 
1F3F 
IF 42 
1F45 
1F4a 


1F 6B 
1F 4E 
1FS1 


1fSa4 
1FS7 
IF Sa 
1FSD 
1F60 
1°63 


1F 66 
1F69 


1F6C 
1F6F 
1F7ve) 


1F7S 
1F78e 
1F7e 
1F TE 
1*6e1 


1F ee 
1F87 
iF ea 
1F60 
tF90 


1F93 
1fF SS 
1*S7 
1F9a 
iF 9D 
tFao 
If as 
ifFas 


zo 
oo 
2050 


co e@7 2885 


CO 87 2EE3 
oo000 
OBAFOO 
18A781 
}BaFros 
i8S86FF 
18e80FF 


18as02 
o80co0n0 
0B0C00 


19ES502 
080000 
o8o0cc0a 
OBCOFF 
o3cors 
0a0010 


136908 
100021 


016922 
10COFF 
220008 


19ES02 
osoocng 
060000 
OOET701 
090023 


OSE S22 
188600 
2196924 
000620 
FF 


€O 867 2EE3 
0020 
060020 
100021 
200022 
600023 
100026 


ADOR 


iF2e 
1FoF 
iF 24 


1°38 
iF 3€ 
1Fai 
1F a4 
1F 47 
1Faea 


IF4D 
iFSO 
if S3 


1F $6 
1FS9 
iF SC 
Ie SF 
1F62 
1F65 


iF68 
iF 6S 


1F 6e 
iF7i 
IF 7% 


1F77 
1F 7a 
1F70 
1F80 
iFe3 


1Fe6 
tF89 
1FEC 
iF er 
1F90 


%F96 
1°99 
tFOC 
FoF 
31Fa2 
iFas 
8F as 


3340 ATTACHMENT TESTS - OD 


Str 


2566 
2567 
2s68a 
2559 
2570 
2s71 

2572 
2872 
2576 
2575 
2576 
2577 
2578 
2579 
2580 
28861 

2582 
2883 
2864 
2585 
25e6 
2587 
2S88 
2889 
2590 
2391 
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SOURCE STATEMENT: 


S5iD0 
Siody 
5152 
S103 
5104 


eH ee eaeeuve 


td 


RTN1D oc xLi*ipbe 

oc XLi*ooe 

oc AL 2(RTNIED 
x 

B BEGIN 
* 


* (LOAO CCNTROL stoR MICROPROGRAM THAT SIMULATES *RECYCLE® 


8 icst LCAD CS AT LOC 0000 
oc XL2°0000¢ 
DC RLS*OBAF00® LET SCNox*00* PESET *aLLOW FILE xFER® 
pc XLS*1GA761° LB FHF ex*81* RESET *END OF FILE xFERe 
oc XUS"1BAFOB® LB SCNeX*08* SET "FILE xFER® 
pc XLS°16B6FFe 8 =LBI FCTexX*FF® FILE COUNT = *FFe 
oc XLS"I880FF* = LBI LO.xX*FF® CONTROL COUNTER = efFe 
s Ist *O1rac. SYNC-I NS PREPARES DATA TRANSFER 
Dc XL3*1GAS02" =LBI FTGsx* 02" DIAGNOSTIC SYNC<-3N 
oc XLZ3*OB00008 NO-OP (WAIT) 
Dc XL3°080000" wNO-OP ¢wAIT) 
* 2ND AND SUBSEQUENT *SYNC-IN°S DECREMENT FILE COUNT ONCE 
oc XLS*29ESO2* OFT FTGsxX*02* DIAGNOSTIC SYNC-IN 
oc XL3°080000" wNo-oOF ¢CwaAIT) 
oc XL3°080000" NO-OP (WAIT) 
oc XLS*OBCOFF® = ADDI LOexX*FF® DECREMENT CONTROL COUNT 
oc XLS*O3COFS8*® = TADDI_ LOex*F8* SEE IF LE 7 (aDD emary 
Dc XL3°OAO010® BNC 0030 BR IF YES 
* FALL THRU IF "RECYCLE* SHOULD STILL BE ON 
oc *U3°116908% TEON 1.a0S.0008 BR IF *RECYCLE® ON 
pc XL3*100021*" 8 0021 ELSE BR TO ERROR at 0021 
* GET HERE IF *RECYCLE SHOULD BE oFF 
oc XL3°016922* BON 1eADS.0022 BR IF *RECYaLE® TS ON 
oc XLS°1OCOFF® TANDE LOoxX*FF* SEE IF 256 LOOPS TAKEN 
oc XL3°110008*  BNZ 0008 BR IF NO 
* FALL THRU IF FILE COUNTER SHOULD GO TO 0 
oc MLS*I9ESO2Z* ORT FIG.x*02* ONE MORE DIAG SYNC-IN 
nc XL3°080000" wNOo-oP 
oc %3°080000" wno-oP 
oc XL3°OOE701° = TANDI FHF .x°01" SEE IF END OF FILE xFR 
oc XL3*090023" az o023 BR IF NOT 
* GEV HERE TO *FORCE* RECYCLE with FILE COUNTER LESS WAN 8 
oc MLS*O9ES22° ORI FTGex*22* *FORCE RECYCLE® 
oc XL3*16B600° = LST FCVex*00" = * SEF ECTe Is clock 
oc XL3°196926" = TROFF 12.05.26 BR IF *RECYCLE* NOT ON 
pc XL3*°000020* 8 o020 TAKE "NORMAL® END 
oc XL1°FFe TERMINATE STRING 
s 
B icst &0AD CS AT LOC 0020 CERR SstoPs) 
oc XL2*°0020° 
oc XL3* 000020" GR TO ITSELF CHANG) NORMAL ENDS 
oc XL3*200021¢ GR TO ITSELF (HANG) SRECYCLE NOT One 
oc XL3* 100022¢ BR TO ITSELF CHANG) "RECYELE One 
oc xL3* sogozze GR YO ITSELF (HANG) ‘EDF NOT ON? 
oc XL 3* 200028¢ GR YO ITSELF CHANG) “RECYCLE NOT ON? 
oc XLl "FFE TERMINATE FORCED) 
s 
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SETUP ZLS FOR PTR 010 FOR 
*READ FROM FILE® 


SETU? DSADDR (BLOCK) FOR TRAP B 
ALS ADORESS 
eM TE BIT? € BLOCK *°05°* 

SETUP DSADOR (HISP 3} FOR TRAP 6B 
ALS ADDRESS 

OISPLACEMENT 00 


SETYP MEAR TO 0000 
ALS ADDRESS 


START IOP PROGRAM 


IS NECESSARY HERE TO WAIT FOR IOP PROGRAM 


START aT O 

SuMmP BY 1 

WalT FOR HI ORDER SYTE 
Looe "Tit TIMEGUT 


HALT IOP AND GET THE MIAR 


SEE IF NORMAL END 
er IF YES 


SEE IF "RECYCLE NOT ON® ERR 

BR IF NO 

ERR $100 

SEE IF *RECYCLE NOT OFF® ERR 

BR IF NO 

ere $101 

SEE 1F *END OF FILE XFR® NOT ON 
BR tf wo 

€rrR $102 


SEE IF *FORCED 
eR 1tF NO 


RECYCLE® NOT 


err 5103 
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= GET HERE IF *RECYCLE*® WORKED TO INSURE THAT THE DSADDR, 


WAS INCREMENTED FROM 0500 TO 0580 (256 BYTESe 128 000 


MVE AS+i Sex*@a* 
uvi ZLSAR 018 
“vi LENGT Hel 
8 tzZLs 
8 BGNTST 
8 Lass 
Dc ali (Ose) 
oc xL1*es* 
e LaLsD 
pc AL2(DS2) 
pc xL1°00* 
e LaLso 
oc AL1 (MTARO } 
oc xXL1*00° 
8 1OPGO 
OF tL a ¥ 
wv? WORK1e0 
ALC WORK? (12 DoT! 
TSN WORK 15xX*80* 
er A0so4 
8 S$aLSD 
oc AL1 CMIARO) 
ai IOP INeK* 20° 
ee ALSOK 
cul IOP IN. XK*23¢ 
@NE aosos 
8 ERRPRT 
oc xE1* 00° 
cul TOPINEX* 22° 
BNE adso6 
e ERRPRT 
oc xL1°10° 
cur LOPENex* 23° 
ene aoso7? 
8 ERRPRT 
oc KE2*20° 
cul TOP IN X*26° 
@NE apsos 
8 ERRPRT 
oc XLi* 30° 
e ERReORT 
oc KL1°40° 
ALSCK 

aNOD 128 EVEN?) 
8 SAL SB 
oc @L1(0S2) 


GET OSADDR ( BLOCK PORTION) 
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ALSERS 
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8 
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TOP INeX*O5* 
ALS ERG 


saso 
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ALSERS 


RORMN 
LINK 


ERRPRT 
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xL1¢1€* 
XL2 °00° 
AL2 CRTNIFD 
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PART NGe 
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2aa 


SEE IF *BLOCK® 
BR IF NO. ERROR 


AS EXPECTED 


GET DSADDR © OTSP PORTION } 


SEE IF DISP INCREMENTED 
BR IF NO 


Extt 


ERROR 5105 


ROUTINE 3€ NOT USED 


NEXT ROUTINE ADORESS 
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C151 2340 ATTACHMENT TESTS - MOD 12 
aS ERR LOC OBYECT CODE ADDR STMT SOURCE STATEMENT 
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© 0 
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ERR LCC OBVECT COCE ADDR STMT SOURCE STATEMENT 
2722 SSHCSERSESSELESSEE FSS SKSERAKVSS SHATSESS SHARSRASSHSE VS SARESVES .. STECSKESHESKSSASS 2790 # 
2723 © * 2088 30 01 208c 2791 CL CORex*0r°* *LAST*® PATTERN TESTED ? 
2724 2 CHANNEL DATA PATH TEST (SINGLE BYTEe PART 1) . 208C F2 82 19 2792 JE ¢c20 eR IF VES 
2725 © USE CO0/CO2 (IN) AND GOO/CIO CoUuT) s 2793 * 
2726 * (£8401) (£8201) * ‘206F 3D FF 208D 2794 CLI CORx*Fr® LAST PATTERN € 00 - FF ) TESTED ? 
2727 © ERRORS: S1FO = O-REG CK CO0/CO2 PATH * 20C3 F2 @1 OA 2795 JE co10 BR LE VES. SETUP "00D PARETY® PATRN 
2728 * S1F1 — DATA MISCOMPAREs. VI = EXPTD * 2796 * 
2729 * . v2 = RCVO * 20C6 CE 00 2080 33C3 2797 ALC = CORE. S ELEVEN ELSE BUMP PATTERN BY 413 
2 2730 * ‘S1F3 - CI PARITY CK s 20cc CO 87 2070 2798 8 €00} LOOP TO TEST NEw PATTERN 
2731 * SiF4 = DDOR DATA MI SCOMPARE Viev2 = EXPTD * 2799 * 
2732 * V3ev4 = RCVD * 2000 3c o1 2080 2800 co10 “vi COR. x*o02¢ SETUP *ODD PARITY’. "LAST® PATTERN 
2733 * SIFS - DOOR LOAD DATA MISCOMPARE Viev2 = EXPs. 2008 Co 87 207D 2801 8 cool 
2734 ¢ V3evV4 = RCVS . 2802 * 
2735 » S1F6 - CI PARITY CK FAILED . *: 2803 * GET HERE TO TEST 800/CIO BY READING AND UPDATING 
2736 « S1F7 - B00 -> COO TRANSFER FAILURE Viev2 = Exe - 2804 * DDOR. ( VIA LSR CYCLE STEALS ? 
i é 2737 * V3eva = REO ©. 2805 « 
S73IO SHSORSECESCSKEAKESSSSESSETELKCTCE TSKKAEAEKKECAKS SKSEECRCS SARSESKALTERSESEKTSTSEBAEVHKKS 2008 CO 87 2€E3 28s0€é€ CCc20 8 ccs! LOAD PROGRAM TO VYPDATE SDDR 
2739 @ : , 20D0c 0000 2000 2807 oc xm. 2*0000°* LCAD AT CS ADOR 0000 
z0oce 1F 2058 2740 RTAIF oc XL3°2F8 ROUTINE 1F 20DE 18A000 20€O0 2808 oc ML3°18A000" LBt FTR.xX*O00? 
2959 00 2089 2741 oc xiL2°00° 20€: 08a7s0 20€3 2809 oc XL3*°O0BA780" LBI FHFexX*80°* RESET "SYS RESET* 
205A 2287 2058 2742 oc aL2(RTN203 NEXT ROUTINE ADDRESS 2810 ® ; 
2743 * Ey 2811 * DATA *01* TO B00 REG 
205C CO 87 2885 27448 8 BEGIN TNT TIALTZATION 20€@ 186001 2066 2812 oc XL3°2168D01° LOE 800ex"01° *01* TO BN0 REG 
2745 * ie 2813 « ABCVE INST CHANGED TO LEY S8O00ex*OF*® FOR 3RO PART OF TEST 
2746 + TEST COO/CO2 BY READING *R* BYTE OF A SIO INSTRUCTION as 20€7 18a000 20&9 2814 oc XL3*18AD00* LBI FTRex*00* RESTOR *NORMAL® PARITY 
2747 2 : 20EA 08E340 20e€c 2615 oc XL3*°OB8E 340" ANDI DSTeX* 40° 800 => C10 
20€0 CO 87 2EE3 2748 8 ics! LOAD AT LOC 0000 my 20ED 080000 20EF 2816 oc xL3°080000* wNO-OP 
j 2064 0000 2065 2749 oc XL2* 0000" et 2817 « ABOVE INST CHANGEO TO LAE 800ex*00" FGR 3RD STEP OF TEST 
_ 206€ 184783 2068 2750 oc XL3*18A7E1° LOI FHF .x*82" RESET *SYS RESET 2818 « 
i 2069 106303 2068 2751 oc XL3°106303° TBON 0+DST.O3 BR ON *ATTACH BUSY? te 2819 * INITIALIZE USR CYCLE STEALS 
206C 000001 206E 2752 . oc ML3*000001" 8 0001 BR TO LOOP 200 088331 20F2 2820 oc ML3°068331° LBI DXCeX*32° LSR SELECT *DDDR*. 
2753 * GET HERE ON *ATTACH BUSY* (SIO EXECUTED) ‘ 2621 ABOVE INST CHANGEO YO LEI OXxXC.xX*33* FOR 2ND STEP OF YEST 
j 206F OS8E380 2071 2754 oc XL3* OBE 380° ANOI OSTeX*S8O0* RESET *ATTACHMNT BUSY* i 20F3 1840100 20FS 2822 oc XL3°1GA100" CEL CCHexX*00* LSR *"REQUEST® AND 
ea ae 2072 O8E37F 2074 2755 oc ML3Z°O6ESTFS ANODE OSTeX*7F* COO -> CO2 206 088100 20Fs 2823 oc ML3°08B100" LSI CCLsx*o0! *3° GYTE XFER FROM LSE 
2075 10Cc00S 2077 2756 oc KL3*°100005* 8 000s HANG. GR TO ITSELF \ 20F9 18A310 20Fe8 2824 oc XL3*°18A310" LBI OSTxX*10° ‘ALLOW CHNL XxXFER® 
2078 FF 2078 2757 oc WLI*FFS {oe 2625 * 
27568 *# oe 20FC 02630C 20FE 282€ oc 32 3°O2620C* YTBON 2cDST.0C BR ON “END CHNL XFER® 
2079 3C G0 2080 27S9 MVE COR eX*00° INITIAL R-BYTE 7 20FF 10000A 2101 2827 oc XL3°10000A* LOOP BACK TO *TBON® 
2070 CO 87 2999 2760 COO! 8 GGNTST . 2828 * 
2761 * ae 2829 * DELAY FOLLOWING *END OF CHM XFER® 
2081 CO 87 2DDF 2762 8 Lal sp SETUP MIAR = 0000 i 2102 ose0c00 2104 2830 oc XL3°O080000* WNO-OP Of ay 
2085 00 2085 2763 oc AL2CMTAROD = 2105 osc0000 2107 2831 - pe ML 3°080000* NO-OP CELAY 
2086 oo 2086 2764 oc XLS 00° 2108 080000 210A 2832 oc XL3°080000° NO-GP DELAY 
2765 © 2108 080000 2100 2833 oc XL3°O80000* NO-OP CELAaY 
2087 CO 87 310D aves ; 8 1oPco STaRY 1o0P Ley 210€ o80000 2110 2836 oc ™L3*080000" NO-OP OELAY 
i Me 2835 * 
jie 2080 2768 COR equ #42 R-BYTE (OATA) FOR TEST | 2212 08 a300 2133 2836 oc XtL3*O8A300* LEI OSTexX*00* RESET “ALLOW FILE xFER® 
4 2088 F3 CO 006 2769 s10 x°00* -x*Cco*e START 1/704 XFER R<-BYTE TO COO | r 2114 1¢€8338 2116 2837 oc XL3°3IC8338° MV L3-co2 CDDR LO -> REG 3 
fas, -% 2770 © GET WERE TO TESY DATA TRANSFERRED et 2117 086340 2119 2838 oc XL3°OSE340° ‘ANDE OSTeX*80*  OCODR HI <-> CO2 
Bagh AS leeds 208— CO 87 3028 2771 8 sco2 GET CO2 REG VIA D-REG 211A 0c8238 211¢ 26839 pc ML3°0ce238* mv &20CO2 DODR HI <-> REG 2 
: ae 2772 * | 2110 000015 211F 2880 oc xXL3°000015° 28 0015 BR TO ITSELFe HANG 
cee Sof. =lm~,. 2092 0D 00 208D 33DE 2773 cic CORC13-IOGPIN ca2 = R-BYTE 7 | 2120 FF 2120 2841 oc xXL2°FRe 
ae “ 2098 F2 €1 09 2774 JE coo? BR IF VES 2842 * 
Pay a acd 2775 « GET HERE LF CO2 REG NOT = R-BYTE XFRED | Y 2122 co 87 2999 26423 8 @GNTST 
mn 2098 CO 87 2A07 2776 8 ERRPRYI {Ags 2806 2 
4 209F 12 209F 2777 oc XLI*32° ERROR S1F1 2225 33 ca 33c2 2605 L100 ZEROX* Cat INITI@. 1ZE *oODOR® = *G000* 
DEO we Z20a0 2080 20a1 2778 oc AL2¢COR} EXPTD DATA toy 2129 3c 01 3308 2846 mvi WORKGeX* O28 IN'TIALIZE £0 ODDR 
Seiad) 20A2 3308 20a3 2779 oc AL2 (IOP IND RCVO DATA [Se 2120 3c Of 3307 2847 MVE 0 WORK4-2.x°02° _ 2. DDR SB ies 
— * evs0 * GET MERE IF READ DATA = EXPTO 2648 * LOOP HERE UNTIL LAST LEGIT® ADDRESS °@F* HAS BEEN TESTED 
b eae CO EP SETS ayes coo7 8 StoPcK GET 10P CK SENSE - . 2232 CO 67 200F 28409 CO21 8 LAL SO SETUP MIAR = 0000 
; * \ 2838 00 2135 2850 pc AL’ CHEAROD 
20408 38 04 33DE 2783 TEN ITOPIN.xX*O04eF O-REG CK 7? | 2136 00 2126 2851 oc XL3° O00? 
: : 20aC F2 10 05 27e6 JT coos ee IF wD z ; 2852 @ , : 
4 2765 * GEV HERE IF *O-REG® CHECK OCCURS } 2137 Co SY 3100 . 2853 a z0P<6O staat top 
4 20AaF CO B7 2A07 2786 8 ERRPRT 2854 @ 
oe 2083 00 2083 2787 oc XL1°00° ERROR SiFO .. 2138 Co 67 3068 2658 e SHES GEV *nNES* REG 
i 2788 * GET HERE IF NO D-REG CK OCCURRED oe 223F 38 40 330€ 2858 TEN ICPEN.K*a0°¢ CI PaRity cx ? 
j 2084 CO 67 2988 2769 coos 8 NORMRN | 2343 F2 90 05 2es7 st co23 eR IF. NO 
EG 
* DATE 1S5aUG75 OSNOV7?5 PROG 1D Crs-3) OatTe 25aUuG75S OSnav7s PROG IO C1S=2 
EC NOs “Serres 627627 PAGE 25 + EC NOe 827785 e27e27 PAGE 25a 
. 
i 
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err LOC OBJECT cope ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2856 * GET HERE IF PARITY CHEK OCCURRED 29025 * 
2146 CO 87 2A07 28s9 cCO22 B ERRPRT 2926 * PART 2 - TEST THAT CIO ONLY ES SENT TC LSR 
214A 30 214A 2860 pc xL1*30° ERROR SIF3 2927 * 
2861 *« 21€1 co 87 2EE3 2928 8 ucst 
2148 30 C& 33D6 2862 C022 SNS WORK3eX*Ca® GET DDDR 21E5 0002 21E6 2929 pc xL2°0002* 
214F OD 01 3306 3306 2863 CLE = WORK 302) oe WORKS COMPARE WITH EXPECTED 21e7 ossDor 21€9 2930 oc XLB°OBBDOF® LOI GB000ex*0F* 
2155 F2 83 OD 2865 Je C027 BR IF OK 21£A 16AD00 21ec 2931 oc XL3*1BAD00® LBY FTRexX*00° 
2865 * GET HERE IF DDDR LSR NOT AS EXPECTED 21ED O08E340 21EF 2932 pc XL3*08E340* ANDI DSTexX"40° BOO -> C10 
21€68 CO 67 2A07 2666 8 ERRPRT 21F0 OB8000 21F2 2933 oc xL3°OBBD00® LBI BCOext00" 00% -> 800 
215C 48 218C 2e67 oc mireaae ERROR S1F4S 21€3 089331 21FS 2934 oc ML3°08B333® LBL OxXCeX*31° LSR SELECT *D0DR* 
215D 3307 215€ 2866 oc AL2CWORKG-1) DDDR EXPECTED HI 21F6 FF 21F6 2935 oc XLi* Fee 
215F 3306 2160 2869 oc AL2 CWORKG 3 Lo 2926 * 
2161 3305 2162 2870 pc AL 2CWORK3-1? DDOR RECIEVED HI 21F7 CO 8? 2999 2937 8 @GNTST 
2163 3306 2164 2871 oc AL2 (HORK3) La 2938 * 
2672 * 21€8 31 C4 33C2 2939 LiO0 ZEROex*ca® popR = *0000° 
2165 3C 02 330F 2873 C027 MVI  -LENGTHe X*02° SETUP TO READ 2 *LOCAL® REGS 21FF 3C OF 3308 2940 mvs WORKS eX *OF* EXPECTED DOOR LO 
2169 3C o2 33£8 2874 mvt DLSAR.Xx*02* SETUP TO READ REGS 2 & 3 2203 3C 00 3307 2941 avi WORK4—1 9 X* 00° ODCR H1 
216D CO B7 2CFO 2875 8 SOLS 2942 * 
2171 OD O1 3531 3308 2876 CLC DLSIN¢3(2)3-WORKS SEE IF DATA READ = EXPECTED 2207 CO 87 2DDF 2983 8 LaL_so 
2177 F2 81 OD 2877 JE co29 BR If YES 2208 00 2208 2944 pc ALICMIARO) INITEAL MIAR = OCOO® 
26768 * GET HERE IF DATA *IN® TO TOP NOT AS EXPECTED 220C 00 220C 2945 oc mL2°00° 
217a CO 87 2407 2679 8 ERRPRT 2946 2 
Z17E S4 217E 2880 pc xLie sar ERROR SIF5S 2200 co 87 310D 2947 8 10PGO START 1OP 
217F 3307 2180 2681 pc aL2CwORK4-1) DATA EXPECTED HI 2946 *& 
21e1 33D8 21e2 2662 oc ALZ2 CWORKG ? Lo 2211 CO 87 3068 29489 8 SHES HALT 10P,. GET HES-REG 
2183 3530 2184 2883 oc AL 2COLSIN+2) DATA RECIEVED HI 2215 38 40 330€ 2950 TBN 1OP INe X°40° CI PARITY CK ? 
218 3531 2186 2886 oc AL2COLS IN+3) Lo 2219 CO 10 2146 2951 eT cc22 eR IF YES 
2ees 2 2952 ® 
2187 3D 7F 3308 2886 C029 cul WORK 4eX* TF ¢ LAST DDDR UPDATE ? 2210 30 C& 3306 2953 SNS WORK3.x*C4? GET ODOR 
2188 F2 81 10 26867 JE co3s Br IF YES 2223 OD 01 3306 3308 2956 CLE «- WORK. C2.) eWORKG AS EXPECTED ? 
2888 * GET HERE TO UPDATE EXPECTED DCOR DATA FOR NEXT TEST 2227 CO 81 2238 2955 SE coss eR fF VES 
218% OF OO 3308 33684 2689 ALC WORKS(1)0T2 2956 * 
2194 Of 00 33D> 2364 2890 ALC wWORKG-101)0T! 2228 CO S87 2A07 2957 8 ERRPRT 
219A CO 87 2131 2891 8 co21 CONTINUE TEST 222F 74 2220F 2958 oc ML1¢7S® ERROR SIFT a 
2892 * 2230 3307 2271 2959 pc AL2(WORK4-1) EXPECTED DDOR HI St 
219E CO B87 2988 2893 cO3s 8 NORMN - 2232 3308 2223 2960 pc AL2CHORKA) 19a 
2896 ‘ 2230 3305 2235 2963 oc AL 2CUGRK 3-18) RECIEVED ODOR HI 
2694 2236 3306 2237 2962 oc AL2 CWORK3 3 Lo 
z2ess o 2963 © 
2896 Part 2 ~- TEST CHANNEL *SUBTRACT® 2238 CoO a7 2988 2966 Coes 8 NORMN 
28907 © 2965 
i 21a2 3c FE 3307 2898 wvi WORKG=1eK* FEF SETUP *ExPECTED® ooDR o. 2968S 
2106 3C FF 3306 2899 avi WORK4.X*FFS AFTER SUBTRACT See 2966 * : 
eiaa CO 87 2EE3 2900 8 acs! 2967 * PART 4 - TEST CE PARITY CHECKER BY FORCED *PARITY CHECK® 
21AE 0006 21af 2901 oc XL 2°0006°* re 2968 * 
2180 18B8333FF 2183 2902 oc XLO@*2BB333FF* LEI DXxXCexX*33° SELECT DDORe SUBTRACT aa 223c 31 C4 33C2 2969 LIO  ZERDex*cae RESTORE *DDDR® LSR TO 0000 
2903 * ; oo 2970 2 
2184 CO 87 2999 2904 8 BGNTST és 2240 CO 87 2999 2971 8 BGNTST 
2905 * pe R 2972 * 
2168 31 C& 33C2 2906 LIO ZEROex*Cc4e pppR = *0000° 2244 3C 02 33F8 2973 MVE ETREEKTeX*02° TURN ON *ENVERT PARITY® 
21eC CO 87 2DDF 2907 8 wacsDd Z 2288 CO 67 2BBA 2974 8 LFTR 
21C0 OO 21c0 2908 pc ALICMIARQ) INITEAL MEAR = 0000 x 2975 *- 
21C1 00 21¢C1 2909 oc xL1°00° 224c Co 87 2D0F 2976 8 &aLSso SETUP MIAR = 0001+ DONT SET FTA-REG 
2910 « r 2250 00 2250 2977 oc ALI CMTAROD 
2102 CO 67 31DD 2911 8 10PGO RUN 1O0P x 2251 01 2252 2978 oc m1°Or* 
2912 * 2979 « 
21C6 30 C4 2306 2912 SNS WORKIxX*C4* GET DDDR : 2262 CO 87 310D 2980 e r0PGO0 START tOP : 
: 2914 2 », 2981 ® 
21CA OD O01 3306 2308 2015 CLC «- WERK 3029 eo WORKS aS EXPECTED ? 2266 CO 87 3066 2962 8 SHES GET HES REG 
2100 co al 2988 2916 et NORMN er If YES 2983 * 
2917 * ; 22ta 38 40 330E 2986 TEN 10P IN. X*a0° CI PARITY CK ? 
21Da CO 87 2A07 2918 8 ERRPRT 225€ CO 90 2282 2985 BF COs? BR IF NO 
2108 64 2108 2919 pc xL1°B84* ERROR 51F8 - 2986 + 
2109 3307 21Da 2920 oc AL2 CWORK4=1 3 EXPECTED ODOR . 2262 3c 8&0 33F8 2987 avi FIRCEXT eX*80* ELSE RESET CHECKS 
2108 3308 210c 2921 pc AL2( WORKS? 2266 CO 87 288A 2988 8 LETR 
21DD 3205 210€ 2922 oc AL 2 (WORK 3-1) RECIEVED DDOR : 226an CO BY 2988 2989 6  NORMN 
21DF 33D6 21€0 2923 oc AL2 (WORKS) Se 2990 * 
2924 226€ 3C 00 33FB 29091 a4VE € TROEXTeX* 00* TURN OFF RESET 
Sh. : - 
DATE 154UG 7S OSnNov7s PRDG 1D cis-13 pate 1SAUG TS OSNOVTS PROG 10 ciS-1 
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sTetv 


2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 


©0200 0 0 eC 0 0 0-0-0 6 00-6 


SOURCE STATEMERT | 


co4? 


ge @ os @ 


LFrR 


SBOCEX Ts X* OF * 
seo 


LINK 


ERRPRT 
XL2*60° 


Cette erie cea te fe 


PaRrvy NO 


4247607: 
PAGE 


2? | 


RESET THE SEEK GUSY LATCHES and 
TURN OFF ATTACH WORKING. 


! 
| 
! 
| 
| 
| 
| 
ERROR SiFS | 
| 
| 
! 
| 
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err toc GBvVECT CODE 


s 
“ 

é 

4 

¢ 


é 
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2267 
2268 
2269 


2288 


226F 
2293 
2297 


2298 
229F 
22at 
224 
o 22a7 
. 22aa 


22a0 
2280 
2283 
2286 


mf 


2289 


ey 


226c 
228F 
22c2 
22cs 


ra 


\. 22e8 
22ce 
2203 


e 


2202 
2206 
e- 2208 
~ 2208 
22Dde 
22€1 


e 


ia 


C 22E2 
22E6 
22€a 
22€€ 


22F2 


© \ 
Vig 


OATE . 
, EC NBe 


€. 


© 


20 
oo 
23cs 


co e7 2865 


3¢ 900 2391 
3c C&@ 2303 
3C C&@ 2345 


co 87 2E€3 
0000 
38a761 
O8AF OO 
1643680 
ose391 


16a100 
0883100 
16A310 
026309 


600007 


060000 
os0000 
080000 
es0000 
o0s0000 
O8A300 
10000F 
FF 


co e7 2€€3 
0500 
tOFFFE 
10FFEE 

10F FFF 

FF 


3¢ 17 33€9 
3c 03 330F 
3c OD 34cs 
CO B7 2004 


co 87 2999 


8SSAauGcTs 
S2778S 


adoR 


2287 
2288 
220A 


2240 
22a3 
22a6 
22ag 
22ac 


22aF 
2262 
2288 
2288 


2288 


226E 
22c% 
22cs 
22c7 
22CA 
22cD 
2200 
2201 


2207 
220A 
2200 
22E0 
22€3 
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3022 
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3027 
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3031 

3032 
3033 
3034 
3035 
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3037 
3038 
3039 
3040 
3001 

3042 
3043 
3046 
3085 
3006 
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3086 
3049 
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3053 

3052 
3053 
3054 
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3067 
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SOURCE STATEMENT 
DPSESHTSSHHS STS SRETSENHSSHS 422 SHTSTHSSHSSELESSSE BOSS SS SHSSHSHOSHS SOSAAESE 
e s 
* CHANNEL DATA PATH TEST (SINGLE BYTE e PART 2) * 
* ERRORS: 5200 - CI PARITY CHECK DURING °CHANNEL STOR® © 
. $201 = ALS FAILED TO INCREMENT OURING ° 
* "CHANNEL STOR® © 
* 5202 ~ DDOR OR DOCR FAILED TO INCKEMENT * 
* 5203 = DDOF OR DOCF IN MAIN STOR NOT AS * 
* EXPECTED Vi = EXPECTED DATA * 
* V2 = RECIEVED DATA * 
* S206 - CHNL DATA XFER OCCURRED WITH PTR e 
* 21102 203 OR O12 CHOT PTR BIT) ® 
s s 
OHSS OATHERE TSS ETSEAAHEAREEKSNSSSSSHESES SHH SCSSSESSELS SSASRESSSSSASVSSSSSSASS 
s 
RT™N20 oc XL1°20° ROUTINE 20 

oc XL1°00° 

oc AL2CRTN2Z19 NEXT ROUTINE ADDRESS 
2 

8 BEGIN INIT TAL IZATION 
s 

MVE €O225~.x*00° CLEAR *POINTER TEST® Sw 

MVE = COZ207ex* Cae &L10 TO *ODDR® 

MVE CO2Z12ex*cat SNS FROM *DODR® 
s 

8 tcs! LOAD t0P CS AT LOC 0000 

oc xL2°0000* 

oc MS°1GA7TEL® LBL FHF exX*G3® RESET *SV¥S RESET® 

oc XL3°OBAFOO® LBE SCNex*00* 

oc XL3°1GA380® CBE DOSTeX*60" RESET ATT. GUSV® 

oc XL3°08G391" CBE OXCeX*O2*® CHAN STCA/DOOR/1 BYTE 
* ABOVE INST CHANGED TO - LUBE OXCeX®G1* CHAN STOR/DOCR/3 BYTE 
= FOR 2ND PASS OF ROUTINE 

oc XL3°ISALI00® LAL CCHexX*00" CLEAR CHNL COUNTERS 

oc %.3°O06B100° LOE CCiex*00* pe sige ets 

oc ML3°1GA320° LET OSTex*20° *ALLOW CHNL XFER? 

oc XL3°026309" TEGON 200ST009 watt FOR *END OF 
* CHANNEL XFER? 

oc RLS*O00007" 8 0007 .00P - 
s GET HERE ON °END OF CHNL XFERe 

oc XL3*080000" WNO-OPe DELAY TO 

pe KL3*080000 WNO-OP.e walt FOR 

oc XL3*080000* NO-OP. COMPLE TE 

oc XL3*O80000" NO-OP. CHANNEL 

oc XL3°O080000" WNO-OP. TRANSFER 

oc MBS°OBAS0O® LEI OSTeX*00* RESET “ALLOW CHML XFER® 

oc KL3*10000F* 8 oooF HANG 

DC XL °FF ® 
x 
2 SETUP GOOD PARITY DATA IN Co Se *O00F* 
s 

8 ucst 

oc xL2*0500°¢ LOAD CS AT 1.OC 0500 

oc XL3* LOFFFF® ‘ 

pc XLS" LOFFFFS 

oc XL3* 1OFFFF ® 

oc KLReFFS 
2 
* SETUP 2S AT ADORS 23 (Ch DDCF TRAP) = *OD*CSTORE YO CHAN) 
eo 

MVI ZLSAR23 

ave LENGTHS 

MVE =: ZLS#23eR* 00" 

e tzLs 
e 
co201 8 GGnTST 
* ; 
* INZIV2@.EZE OSACOR FCR Crm EZFER Iw ALS = *@500° 

PROG 1D e182 
PAGE 27a 
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IBM MAINTENANCE OTAGNOSTIC PROGRAM PART NOs a2e7607 
PAGE 2e PAGE 2ea 
c3s 3340 ATTACHMENT TESTS - MOD 12 -C1251 3360 ATTACHMENT TESTS - MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMERT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3071 3139 * : 
22F6 CO 67 2DA9 3072 8 LALSE 3140 * NOW TEST THAT CHANNEL INDEX POINTERS OF #120%, *102" OF OT? 
22Fa 1€ RZFA 3073 oc aLacosi) oe 3101 «¢ DONT ALLOW DATA TRANSFER ¢ POINTER 111 ONLY SHOULD WORK } 
22°68 85 22FB 3074 oc mares: Bs 3142 ¢ 
3075 * 2388 3C 74 2391 31463 cD221 mvI | - COZ SS eX TAS SETUP POINTER 011 INDEX 
22FC CO BF 2D0F 3076 8 LAL SD Re 3100 @ 
2300 1€ 2300 soT? oc a.2(DS1? 230C CO 67 2DDF 3145 co222 e LaLcso 
2301 00 2301 3076 oc XL2 * 00° 2390 06 2390 3146 oc aLi(os3) 
3079 ¢ ~ 239% 3147 C0225 eq © 
2303 3080 CC207 equ = #41 2393 00 2293 31468 oc KL1* 00° 
2302 33 ca 33C9 3083 RIO} 40 MDOF ae x*Ca* INITEALEZE ODDR = *DDOF* 3149 * 
3082 * ABOVE ALTERED TO LIO ODDF.xX*C6* FOR DOCF Test 2392 co 87 22F2 3150 6 co203 Si "UP AND EXECUTE U - CODE 
2306 3C 00 3?7FF 3083 vr 4 ODDF 4255eK*00° CLEAR ODOFsOOCF 3151 * 
230a OC FE 3TFE STFF 3064 avec OODF 4254( 255) eDDDF 4255 2396 3D FF 3700 3252 co2z2e ai ODDF 2 K*FF * DID DATA XFER ? 
3085 * 2394 F2 01 05 3253 sxe  cO223 BR IF NO 
2310 CO BF 2D00F 3086 8 LALSD SETUP MIAR 3156 ¢ 
2314 00 2336 3087 oc 1.1 (TARO? 239D CO 87 2a07 3155 8 ENRPRT 
2315 00 22325 20S8e oc XL1°OO0* 23ai 40 23a 3156 oc XL2°S0° ERROR 5204 
3069 © 3157 * 
2316 CO 87 310D 3090 6 10PGO0 START TOP 23a2 CO 87 2986 3158 C0223 e NORMN Loop 
3091 ¢ 3159 * 
231A 38 08 239% 3092 TEN CO22Se X°04* IN “*POINTER® TEST ? 23a6 3D 04 2391 3160 CLI CO225exK*06* POINTER 110 TESTED ? 
2m1€ F210 75 3093 JST co224 er IF YES 23AaA CO Bi 0216 3161 BE LINK er iF vES 
3098 * 3162 *% 
2221 CO 87 3066 3095 € SHES GET *HES* REG 23AE 38 86 2391 3163 TBN C€O225eX*84* POINTER 103 TESTED ? 
2325 38 40 33DE 3696 Ten TOPT NeXK® 60% CI PARITY CK ? 2382 F2 10 08 3164 st co227 er IF YES 
2329 CO $0 2332 3097 oF co230 BR IF NO 3165 * 
3098 * 2385 3¢ 84 2391 3166 mvt CO225exK*B4* ELSE SETUP POINTER 103 INDEX 
2320 co B87 2A07 3099 8 ENRPRT 2389 CO 87 23eC 3167 e cuo222 AND GO TEST IT 
2331 00 2331 3100 oc xLi°0o* ERROR S200 7168 & 
3101 © 238D 3c 04 2391 3169 C0227 “vi CO225eK"De* SETUP POINTER 110 INDEX 
2332 co BY 2ET3 3102 cO210 8 sat. so GET CHNL TRANSFER OS ADDR 23C3 CO 87 238C 3170 e c0222 
2238 1€ 2336 3103 oc AL3€0S2) po 3171 
2237 30 03 33D€ 2104 cal TOPE Ne X* 03° INCREMENTED FROM °00° 7 XK. 3171 _ 
~ 2236 CO G1 2346 31058 eE co233 eer IF YES 23c5 21 23CE 3172 RTN23 oc BELL e232 ROUTINE 21 NOT USED aie 
3206 ¢ -.  23€6 00 23C6é 3173 pe xL1°00° 
233€ CO 67 2007 3107 8 ERRORT “ 23x07 23D 23c6 3174 oc A.2CQTN22) NEXT ROUTINE ADDRESS 
23@3 1¢ 2343 3106 oc xLse10° ERROR S201 23C9 CO S87 0216 3175 8 CINE 
3109 © . 
2348 3110 C0212 €ou #41 i C3 
2344 30 ©4 3306 2211 cO213 SHS = WORKBeX* CA? GET ODDR | 
3212 ¢ ABOVE INST ALTERED TO SNS WORKSexX C6° FOR COCR TEST Nagas 
2348 3D 00 3306 3243 CLE WORK 32 X*00° BUMPED BY O ? ; 
230c CO 63 2355 3110 GE co217 BR IF YES 
3115 « 1 gh 
2350 CO 87 2a07 3116 8 ERRPRT | c 
2384 20 23ce 3117 oc xL1¢ 20° ERROR 5202 ' 
3316 © , em 
2365 30 FF 3700 3129 CC217 CLI 40s: OOD F »K* FES SEE I1€ *DATA* IN DDOF C 
2359 CO B1 2366 3120 6E ©0219 er IF VES { 
3123 @ 1 gm. 
2360 CO 87 2a07 3122 e ERRPRT i © 
2362 32 2362 3123 oc uL2°32° ERROR $203 i 
2362 2876 2363 32246 oc aL2tFEFF) EXPECTED DATA gt 
2364 3700 2365 3225 oc ALZCODDF) RECEEVED OATA me 
3126 ¢ : 
2366 CO 67 2988 3127 cc219 e eOReN — 
2368 3D C6 2303 2226 CLE COZO7x*CE® ODCR TEST DONE 7 Pe 
2368 CO 83 2388 3129 Be co221 GR IF YES TO *POINTER® TEST i 
3130 * SETUP FOR *"DDCR* PHASE OF TEST ir ee, 
2372 CO 8? 2E€83 33313 8 icsi €: 
2376 0003 2377 3132 oc xL2*0003° LOAD CS LOC 0003 
2378 166361FF 2378 3133 oc XL@* 166 381FF ° CHAN STOR/DOCR/1 BYTE CONTROL ec 
3130 * oy 
227c x C6 2302 3135 wvI C0207 ex*C6* 
2380 3C C6 2345 2136 “avi C€O212ex*Cc6* cs vuln 
2384 CO 87 22F2 3137 8 cc201 CONT INVE © 
m138 i 
Cc ss 
Date 1SAaucrs OSKNDVTS PROG 10 cis-1: DATE 4Sauc 7s OSNOVTS PROG 10 cisS-1 
EC NO 827785 e27e27 _ PAGE 28 
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c151 3340 ATTACHMENT TESTS ~- 00 12 
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Ere Loc OBJECT CODE ADDR STMT SOURCE STATEMENT i ERR toc GBsECY COCE acor sTMT SOURCE STATEMENT 
$ 3177 conscecnaccvccessnsceccccsesacecessencescssccusesonsccessseseceooensees | : 3245 * SETUP LEFT/RIGHT CATA = *FFOO® TO INSURE THAT ALG BITS IM EACH 
3178 © *! 3246 * PATH ARE TESTED 
3179 2 CHANNEL DATA PATH TEST (255 BYTE XFER ODD 6 EVEN. TOG FROM * 3247 & 
3180 * THE CHANNEL 3 2631 3C FE 3702 2248 mvs ODOF 42 eX* FFP 
3181 * ERRORS: 5220 - TOP PROGRAM OION*T RUN TO COMPLETION * 2635 3¢€ 00 3703 3249 “ve ODOF +30 X*00 ° 
3182 * TRANSFER EVEN 5221 - OATA TRANSFERRED TO CS NOT AS ExPTO = 3250 * 
3163 ¢ BOTH S222 —- RCS PAREITV CHECK * 2439 3C 17 33E9 3251 avi ZLSAR 223 SETUP CHNL TRAP ZLS FOR *FETCH FROM 
3166 * BOTH S223 - CHANNEL XFER CHECK * 23D 3c SB 34CS 3252 avi ZLS*230X%"S8° CHANNEL® 
‘ 3185 * BOTH 5224 - DSADDR NOT INCREMENTED AS ExPToO * 2401 2¢ O13 330F 3283 avy LENGTH el 
3166 *# EVEN 5225 —- CE PARETY CK s 2445 CO 87 2068 3256 8 Lzus 
3187 © EVEN 5226 - DATA TRANSFERRED TO ODDF NOT AS ExPTtTD * 32855 « 
3188 *# = 2049 38 80 tF20 3256 TON SHT WK oX* 80° “ROM ODD ROUTINE 7 
3189 * TRANSFER ODD S227 - OATA TRANSFERRED TO CS NOT AS ExePrTo * 24aD CO 30 2606 3287 er corpsi sR IF YES 
3190 * CDD S228 - OATA TRANSFERRED TO ODDF NOT AS ExePTmrO * 3288 & 
3191 * 000 $229 = CI PARITY CK 2 2451 CO 87 2COA 3259 8 tosT ELSE RESTORE OST-REG 
3192 # Q00 522A - DDDR NOT AS EXPECTED * 3260 @ 
3193 * 5228 - CATA TG ATTACHMENT STARTED ON EVEN s 2485 co 87? 2999 3263 8 BGNTST 
3194 *# INSTEAD OF ODO BYTE IN CS- s 3262 2 
3195 * 522C - DODF ALTERED OURING CHANNEL TRANSFER * 2659 31 C4 3X9 3263 170 OOCDF AexX*CA® coor = oDoFr ¢€8000) 
3196 © TO ATTACHMENT 2 2450 CO 87 20A9 3264 8 Lass SETUP CHNL TRAP US A00R 
3197 © * 2461 1€ 2461 3265S oe 44.1¢053) = *@S7F* €2 BYTE BEFORE ooDF) 
3198 RbRRRSEEEDRE D894 84ESE8SE89 FEES FEES ETETESS TOD SE SESS SSSSSESERSES SS OS SSEES 2462 8S 2462 3266 oc XLI* 85* 
3199 * 3267 & 
23coD 22 23Cc0 3200 RTN22 oc xLi*22° ROUTINE 22 2863 CO 87 200F 3268 e Latcsd 
23ceE 00 23xcEe 3201 oc xt1*00° 2467 if 2a67 3269 oc AL1¢0S13 
23CF 2736 2300 3202 o<¢ AL 2C€RTN23) NEXT ROUTINE ADDRESS 2868 TF 2468 3270 oc XL2I°7F® 
3203 * c 327% 
23p1 co 87 2885 32208 nw ScGin Burr tat 17aT ION —_ 3272 
3205 *# ; sere + 
3206 *# 25S BYTE TRANSFER TO ATTACHMENT CEVEN) ‘ 3273 * NOW SEY ALL CS ADDRESSES FROM 0500 - OS7F = *aaaat 
3207 2 s 3274 ¢ 
2305 CoO 87 2EE3 3208 8 ccst 2469 3c 00 2978 3275 coPos wt COPLOex*G0* InsTrTaL. CS ADDRESS = os00 
2309 0000 23DA 3209 . oc xL2°0000* 2860 F2 s7 06 3276 Jd COPOA 
2308 oBaAaFOO 2300 3210 oc XL 3* OBAFOO* L661 SCNeX*O0* MAKE SURE 3277 2@ 
3211 ¢ FILE XFER CYRLS ARE OFF 2470 GCE 00 2678 32384 3278 cDePCS acc COP10 (3 De TT BUMP ADDRESS BY + eas 
23DE oBa780 23€0 3212 oc XL3 * OBA7EO* LOI EFHF.ex*8O0* RESET FHF ° 2476 CO 87 2EES 3279 COPOA 8 css 
23€1 c88310 23€3 3213 oc XL3*08B310" LBE OxCex*10* DATA FROM CHNL/JCYCLE STEAL 2a7a 0500 2678 3280 COPIO oc xL2°o0S00° 
3214 * : REGs000R ; 247C SOAAAAFF 2a7TF 3281 oc XL4 ® BOAAAAFF* 
23F4 18a100 23€6 3215 oc XL 3* 18A300* LAE CCHex*00* CHAN boy 3262 2% 
27€7 18B1F0 23€9 3216 oc XL3*1BBIFD*® tBI CCiLeX*FO* cre = 253 eS 2480 3D 7 2476 3283 cur COP10 x* 7F* WRAPPED TO *OSTF* ? 
23FA 18A310 23€Cc 3217 oc XUL3* 18A310° cst DST oxX*10* ALLOw CHNE DATA XFER ‘ 2484 CO O01 2470 3288 BNE coreg GR IF “3Oe LOAD ALL anorss | 
23EO 126308 23€F 3218 oc %L3*126308" TBON 2eDST208 Bk GN *END CHNL XFER® pe 3285 * ) 
23F0 100006 23F2 3219 oc XL3*100006* 8 0006 LooP SACK i *. 2eee 38 80 1F 2D 32866 TEN SHT WK eX*80° FROM CODD ROUTINE 7? 
3220 * : 2e8C CO 10 263C¢ 3287 eT coess BR IF YES 
23F3 080000 23FS 3221 oc xL3*°080000" NO-OP DELAY i 3286 
23F6 080000 23F8 3222 oc xL3*080000° Nno-0P DELAY : . 2090 co Sf 200F 3289 8 LALSD SETUP INETTAL ear 
23F9 080000 23FB 3223 oc xL3*080000" NO-OoP OELAY i 2494 00 2494 3290 oc AL 2¢MZARo) 
23Fc 080000 23FE 3224 oc xL3*°080000" NO-OP OELAY i p= 2495 00 2895 3291 oc xi.3°oo* 
23FF 0890000 2401 3225 oc xi 3*080000* No-0P DELAY : 3292 & 
2402 O8A300 2404 3226 oc xL2°08@A300* LS! OSTeX*00* RESET "ALLOW CHNE XFERS ‘ 2496 CO 867 3100 3293 8 80°cG0 
2a0£ QOCOOE 2407 3227 oc XUL3* OOOOCOE® a OGOoE HANG ' = 3294 
2408 FF 2008 3228 oc XLI*FFSE ty 2a9a CO BS? 271E 3295 8 COPOLY 0 € u a v 
2409 3C 00 1°20 3229 Mv ET SHTWK.exX*O00* INITIALIZE "ROUTINE? FLAGS i 3296 *& 
3230 * 2aSE€ CO 87 2E73 3297 8 s$aiso HALT T0P. GET MIAR 
3231 * SETUP DATA PATTERN *00° =- *FFe IN DDODF (LOC 8000) 2aa2 00 24a2 3298 oc AL 2¢(@ZARO} 
3222 # 24a3 3D O€ 330E 3299 cur LOPINeX*OE* engoRMaL® END 7 
240D 3c 00 2418 3233 coPoO wave COP 02 eX*00* INITIAL OATA = *00° 24a7 CO 81 2480 3300 ee coer eR IF VES 
2411 OC 00 261A £418 3234 CDPO1 avc CcoP03(1).coPO2 AODRESS = *80*@ "DATA* ' 33013 # 
24168 2225 cCoPO2 €0u sei ®DATAe ADDRESS 24aB CO 87 2a07 3302 COFI6 8 ERRPRT 
2a1a 2236 COPOS EOU 243 *ODDF* ADDRESS e 2eaF G0 2aaF 3303 oc xL2°GO0* ERROR $220 
2417 3c 00 3700 3237 vi OOOF .x*00* MOVE *DaATA® TO *oODOF® po Nes ; 33042 2% 
24618 OF OO 2818 3384 3238 ALC CoP02e11 BUMP *OATA® BY i 2480 30 O01 3703 3305S ¢c0P17 cur CODF 43 oi 
2421 3D 0O 2418 3239 cut COP02~ex"a0* LAST DATA MOVED YO ODOF ? . 2086 F2 81 OS 3306 JE coP iva 
20235 CO 01 2411 2240 BNE CcoPo1 6R IF NO ‘ ; 3307 *% 
= 3281 *@ 2a87 CO 87 2Aa07 3308 8 ERRPRT 
2429 38 40 1F20 3242 TEN SHUT BK X40" FROM ROUTINE 24 7 ee 2468 CO 2468 3309 oc xi29°CO*e ERROR S22C€ 
2420 CO 10 2750 3243 eT OIFF OI er fF VES we 3330 2% 
“ 3204 % ; 2easc co Ss? 3068 3312 COPI7A 8 SHES GEY HES-REG 
eo - 
DATE 154UG75 OSNOV7S PROG 10 CIwe-5 Date ISAUGTS OSnovTsS PROG 10 c15-23 
EC NO. 827785 627827 PAGE 29 | es NOe G27785 e27e2? PaGE 2en 
i : Z 





a af : 
ese foe 6s et 3 . c ; A < ¢ . + 
| “oO | ® ® om 6 —— eo , @ 7 @ @ @ © & & @ | © @ & @ & | | : : | 


TBM MAINTENANCE DIAGNOSTIC PROGRAN 


c1S81 3380 ATTACHMENT TESTS - “0D 


ERR LOC OBYECT CODE aDDR STNT 
2aco 38 01 33F9 3312 
2aca co 90 24C0 3313 

3314 

24c8 CO 87 2A07 3315 

24cc 20 2acc 3316 

3317 

2acD 38 10 33F9 3318 

24D1 CO 90 24DA 3319 

3320 

2405 CO 87 2a07 3321 

2809 30 2809 3322 

3323 

24Da CO 87 eFa3 3328 

2aDE 0500 2a0F 3325 

24E1 3326 

24E0 30 00 3570 3327 

2e&4 CO 61 24F1 3328 

3329 

26E8 CO 67 2A07 3330 

24EC 12 2e6€&C 3331 

2eED 24€1 24EE 3332 

26EF 3570 24FO 3333 

3334 

2eF1 CO 87 2Fa3 3335 

2aFE OS7F 2aF6 3336 

24F8 33237 

24F7 3D FE 3570 3338 

24aFB CO B81 2506 3339 

33406 

2aFF CO B67 2A07 33a1 

25023 12 2503 3342 

2504 2aF8& 2505 2343 

2206 3570 2E07 3344 

3345 

2608 CO B87 2F 43 3386 

2s0c 0501 2500 3347 

2SOF 3346 

250E 3D FF 3870 2349 

2512 CoO 8 251F 3350 

3351 

2516 CG B87 2A07 3352 

251a i2 2514 3353 

2518 250F 2sic 32354 

2510 3570 251€ 3355 

3356 

2520 3357 

251F 3D 00 3571 3358 

2227 CoO 81 2830 2369 

- 3360 

2527 CO e&7 2a07 3361 

2528 12 2528 32362 

2s2ec 2520 2520 3363 

2S2E 3571 262F 3364 

3365 

3365 

3366 

3367 

. 32366 

2530 CO 87 2988 3269 

3370 

2634 CO 87 2EE3S 3371 

2538 90002 2539 3372 

253A 1B88390FF 2530 3373 

33748 

253E SC 17 33E9 3375S 

2542 3C 01 33DF 3376 

2546 3C OD 34Cct 3377 

254a CO BF 2004 3378 
BATE ISAUGTS OSNOV7S 

EC NO. B277ES a27a2? 


22 


SOURCE STATEMENT 


TEN HESCEXTeX*01° RCS PARITY CK ? 
er copie BR IF NO 
2s 
ceei7e 8 iB ERRPRT 
oc XL1*20° ERROR 5222 
s 
coP18s TON HESCEXT.x*10° CHNL XFER CK ? 
BF cop20 BR If NO 
* 
copise 8 e@ ERRPRT 
oc XL1° 30° ERROR 5223 
x 
cDP20 e scs GET CS DDOF 
oc XL2* 0S00* 
ctrp2i €Qu _¥41 
cut CReX*O00* CATA AS EXPECTED ? 
BE coPp22 BR If YES 
* 
8 ERRPRT 
oc xL1*12° ERROR 5221 
oc aL2(coP21? 
oc AL2(CR) 
Fd 
corp22 8 scs 
oc XL2* OS7F* 
cop23 €0aU *41 
cur CReX* FES DATA AS EXPECTED ? 
SE cop26 BR IF VES 
& 
8 ERRERT 
pc xLi*12¢ ERROR 5221 
pc AL2 (COP23) 
oc AL2C€CR) 
* NOw TEST THAT *ALL® BITS TRANSFERRED OK 
cor26 8 scs 
oc xL2*b501° 0501 SHOULD BE *FFOO® 
coPp2s ecu 41 
CLI CR XPOFE 
ee coPp27 
« 
8 ERRPRT 
oc xL2°32¢ ERROR 5221 
oc AL2 (CDP25) EXPECTED DATA 
oc AL 2¢CR) RECIEVED DATA 
& 
cop ze FQU 43 
CDP27 G1 Y¥ex*00e 
et cor2e 
s 
8 ERRPRT 
oc ‘LEC 22¢ ERROR 5223 
oc @ 20 COP26) EXPECTED DATA 
pc aL2{ty) RECIEVED DATA 
a 
* NOW CO 2€5 BYTE TRANSFER TO THE CHANNEL CEVEN) 
~ 
cpp2ze 6 ADRAN 
2 
e icst 
oc x_2°0002¢ 
oc XL@*®2GB390FF- LB OxXCeX*90* DATA TO CHNL/DDDR 
s 
CoP 29 @VI = ZLSARL23 SETUP CHNL TRAP ZLS FOR *STGR TO 
MVE —- LENGT He CHNL® 
“vi ZLS*23-x"00* 
8 LZ2Ls 
PROG 
PAGE 





PART NOs 
PaGE 


2287607 
39 


cis1 
30 





18M MAENTENANCE DIAGNOSTIC PROGRAM 


cisi 


ERR LOC OBJECT COOE 


254€ 
2552 


2556 


255a 
25SE 


2564 


2568 
256C 
2560 
256€E 
2872 
2s73 


2574 
2578 
2879 


2S7A 
257E 


2582 
28586 


2867 
2868 


2soar 
2593 
2597 


2596 
25 


25a0 
25aé 


25AS 
25a9 


25aD 
2582 
2882 
2584 
28866 
256a 


2S8E 
2x2 


2sc3. 


2scs 


2sc7 
2scB 


2sce 
2503 

‘ 2504 
Re 2506 


2scs 
2s50c 


o 


Cate 
€c NO. 


f° 


co 
Rix 


38 680 
co 10 


co 87 


3¢C aa 
oc FE 


31 =c4 


co 67 
1€ 
es 
co 67 
1e€ 
900 


co 87 
eco 
00 


co 87 
co 87 


co 87 
00 


30 OF 
co 03 


co 87 
38 40 
co $0 


co 87 
50 


co 8S? 
1€ 


3d 82 
co 83 
co 87 
42 

25 a6 
330E 


30 09 
co 61 


co 87 


2587 
3700 


30 FE 
co 81 


co 87 


2sce 
37FF 


30 FF 
co 83 


1F20 
2684 


2999 


37 FF 
37FE 


339 


20a9 


2D0F 


2D0F 


3100 
271€ 


2€73 
33DE 
24a8 
3068 
33DE 
25 a0 


2a07 


2E73 


330€ 
2586 


2a07 


3700 
2sc? 


2a07 


27FF 


37FE 


2508 


2a07 


3702 
25E9 


1SauG7s 
€2 7785 


aDDR 


256C 
2560 


2572 
2¢73 


2¢76 
2579 


2586 


259F 


25a46 
2S5a6 


2581 
283 
2585 


2sc2 
2s5c4 
2SC6é 


2503 
2505 
2507 


OSNGv7S 
627627 


2340 ATTACHMENT TESTS - 0D 


STMT 


3379 
3380 
33823 
3382 
3383 
3380 
3385 
3366 
3387 
3388 
3389 
3390 
3392 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
34186 
3419 
3420 
3423 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3420 
3641 
3442 
3443 
3406 
3445 
3446 


12 


SOURCE ST“ TEMENT 


cop3s 


coPs4 


cop 28 


COP 40 


* 


TEN 
eT 


avi 
avc 


L190 


oc 


oc 


oc 


oc 
oc 


oc 


cuE 
ene 


TON 
oF 


oc 
e€ou 
cut 
SE 


cur 


PART NOe 
PAGE 


42407607 
30a 


SHTWK o X*80* FROM ODD ROUTINE ? 
coPpées Br IF YES 

BGNTST 

DDODF* 255 eX" AAP ENITIALIZE ODDF 
DDDF 4254( 255) .DDDF +255 = "AAS 

DODF AeK*Cae pooR = ODOF (8000) 
LALSS SLTUm CHNL TRAP OSADDR = *6500° 
AL 3( OS? 

xLi¢s8s* 

LaLcsD 

@L2¢0S1) 

KL1° 00° 

tLarso 

AL1¢€MTARD) 

KL2 *00° 

roPpco 

CDOPOLY OE tL A v 
SAL SD GET MIAR 

ALI CMITARO) 

IOP IN» X* OE* PNORMAL® END 7? 
COP16 SBR IF NO 

SHES GET HES-REG 

ITOPINs X* 40° Cc! PARITY CK ? 
c3°33 eR IF NO 

ERRPRT 

ZL1L*S0° ERROR S225 

SAL SO GET CHNL DSADDR 
AL2 (052) 

*o1 

TOPINe X*82¢° ac EXPECTED? 

coP3ss SR If VES & 
ERRPRT 

xL2°a2* ERROR 5224 

AL 2¢CDP34) 

AL2C1TOP IN) 

ODDF -X*00° ODDF AS EXPECTED 7? 
corse BR IF VES 

ERRPRT 

XL2°62¢ ERROR S226 

AL 20 COP 3541 3 

a1.2¢ DODF) 

OODF 4254 4 X*FE* DDDF AS EXPECTED 7. : 
coPs4o eR IF VES 

ERRPRT 

xLi*62e ERROR S226 

AL 20 COP 3641 9 

aL. 2¢ DDDF42553 

OODF ¢2eX*FF ° DODF AS EXPECTED ? 
cop42 BR If VES 


PROG ID 
Pace 


cise 
304 


Settee Fas a 


Oe 


2 


‘ 

& 

t 
5 
t 


| 
| 
| 


© © 0006000000888 eC. 


1B8W MAINTENANCE DIAGNOSTIC PROGRAM 


c1$1 


ERR LOC 


2550 
25&4 
2s€5 
2st7 


256s 
2s€0 


: e 
Ae a NE CR EE 


25F 1 

25F5 

a 25c6 
asra 


2eFA 


ee ne 


2€ 96 
2608 
2EOC 


Pe? E10 
2634 
2e18 


261C 
2620 
2621 
2622 
2626 
2€27 


2628 
2€2c 
2620 


POZE 


3340 ATTACHMENT 

QBJECT CODE adoR 
cO 87 2A07 

62 25€4 
2509 26 
3702 25€8 
30 00 3703 

co 83 25FA 

CO 87 2007 

€2 25FS 
2SEA 2sF7 
3703 25F9 
co 87 2986 

3a 80 1F 20 

co 87? 24600 

co 8? 2EE3 

0002 2608 
1BB 350FF 260F 
co e877 2999 

2] ¢C@ 23C8 

CO BF 2469 

CO 87 2D0AS 

1€ 2620 
es 2621 
co a7? 200F 

1€ 2626 
TF 2627 
co 87 20D0F 

oo 262¢ 
00 & 2620 
co 87 3100 

co 87 271E 

CO 87 2€73 

oo 263A 
3c OF 330€E 

co 01 2048 

co 87 2F43 

0500 2648 

264A 

20 01 3871 

CO 61 265A 

co 87 2A07 

72 2655 
264A 2657 
3571 2é€£9 
3D AA 3570 

co Bl 2667 

co a? 2a07 

go 26€6 
1£auG75 OSnNOvV7S 
e277es e27e27 


TESTS - “0D 


StuTt 


3447 
3448 
3249 
3450 
3451 
3452 
3483 
3454 
3455 
3456 
3457 
3488 
3489 
3460 
3461 

3461 

3462 
3463 
3464 
3465 
3466 
34967 
3468 
3469 
2470 
3473 

3472 

3473 
3474 
3475 
3476 
3477 
3678 
3479 
3480 
3661 

3462 
3483 
3464 
3488S 
3486 
3487 
3488 
3489 
3490 
3491 

3492 
3493 
3494 
3495 
3296 
3497 
3498 
3499 
3500 
3501 

3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3810 
3523 

3512 
3513 


PART NO. 
Pace 


12 


t 


t 


i 


8247607 
33 


c3s3 


SNURCE STATEMENT ERR LOC ABJECT CODE 
8 ERRPRT 
oc XL2°62° ERROR S226 
pc AL2¢COPa0+1) 2667 CO 8? 2F4a3 
oc AL 2(0D0F 2) 2668 OSFF 
ry 
corp 42 cut DDOF 43. x* 008 ODOF AS EXPECTED 2660 30 FF 3571 
ae coPpso BR IF VES 2671 CO 81 267E 
* 
8 ERRPRT 2675 CO 87 2a07 
oc xL1*62° ERRGR S226 2679 72 
oc AL2(COPA2413) 267A 266E 
oc AL 2C0DDF +3) 2s7C 3571 
2 
corso 8 NORMN 267E 30 ca 3308 
2682 30 FF 3308 
7 2686 F2 81 05 
* NOW 00 255 BYTE XFER TO THE ATTACHMENT (GDD) 
2 2689 CO 87 2A07 
SBN SHTwk oX*soe SET ODD ROUTINE FLAG 268D Ao 
8 coroo SETUP DATA PATTERN IN DDOF & ZLS 
s 
COPS: 8 ics! 268E CO 87 3068 
oc xL2°00024 2692 38 01 33FS 
pc XLO"1LEGB3SOFF*® LEI OxCex*SO* ODOR/JOOD XFER 2696 CO 10 24c8s 
‘ ; 
8 GGNTST 269A 38 10 33F9 
* 269€ CO 10 2405 
cOPS3 tIO0 ODDFAI.x*Cae pooR = ODOFS! 
s 26a2 CO 87 2988 
8 coPos GO SETUP CS LOC 0500-057F =*AAt 
* i 
copes 8 tacse | c 
oc AL 120081) SETUP CHNL TRAP DSADDR ee 
oc XL *Bs® Eava *847F* 
8 Larso 2606 CO 87 2EE3 
oc acicos?2) 26AA 0002 
oc RLI°7Fe 26aC 068300FF 
2 ne 43 
8 LALsoO GO SETUP INITIAL MIAR 1 2680 CO 87 253E 
oc ALL CMT AROD = *©9000° ' 
pc xiL1°008 : 2684 CO 87 2999 
* 1 
8 10°60 START IOP 26B8 CO 87 2Da9 
* 268c 1€ 
8 COPDLY oe tb a 2680 85 
* 268€ CO 87 2D0F 
e sarso GET WIAR a 26c2 1€ 
oc ALICMTAROD r 26C3 oo 
cay 10P IN. K* OE* *NORMAL® END ? ; 
BNE coP16 BR IF NO 26C4 31 C* 33CB 
* 
8 scs GEY CS LOC *O500* | 26C8 CO Ba? 2D00F 
oc xL2* CSG0* | 26CC 00 
corse eeu *41 \ 26CD 00 
cur WeK*or? aS EXPECTED ? 
BE coPs9 eR 1f YES to 26CE CO A? 3100 
* Les 
8 ERRPRT 2602 CO 87 27T1E 
oc XL1°72° ERROR 5227 
oc aL2(coPese) EXPECTED DATA ; 2606 CO B87 2E73 
oc AL2Cv) RECIEVED ' 260A 00 
2 i 2608 30 O€ 330€ 
CcOoPsS cut CRexX* AAS CHECK TO SEE THAT XFER DIO NOT START | 260F CO O01 24a8 
Be coP6o ON THE EVEN BYTE 
* 
8 ERRPRT ERROR CODE S228 26E3 30 G1 37¢C! 
oc xL a SBO° i 26E7 CO Bi 26F4 
aS 
FROG 10 CiS-1: DATE 15AauGcTs 
PASE 3 €c nO. 827785 


On = 


QO 


AdoR 


266C 
2¢€¢e& 


2679 
2678 
2670 


268D 


26A8 
26AF 


268C 
2680 


26C2 
26c3 


26CC 
26c0 


260A 


2é€a 


oSnOov7s 
827627 


18M MAINTENANCE OLAGNOSTIC FROGRAM 


2300 ATTACHMENT YESTS ~ MOO 


sT™yY 


3514 
3515 
3516 
3517 
3518 
3519 
3520 
3523 

38522 
3523 
3524 
3825 
3526 
3527 
3828 
3529 
3530 
3832 

3832 
3533 
3534 
3535 
3536 
3537 
3833 
3539 
3540 
3841 

3542 
3543 
3544 
3566 
3545 
3546 
3547 
3548 
3549 
3580 
3551 

3€52 
3553 
3554 
3555 
3556 
3857 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3873 
3574 
3575 
3576 
3577 
3578 
3579 
3580 


12 


SOURCE STATEMERT 


e 
e 
copeo 8 scs 
oc XL2°OSFFe 
COPE? Eou = *+1 
CLI Ve X*FFS 
BE cores 
s 
8 ERAPRT 
oc xL1° 72° 
oc AL2(COP61? 
oc AL2CY) 
s 
COPES SNS WORKG.x*Ca® 
CLI WORKGX*FFS 
a 
JE coP 66 
s 
8 ERRPRT 
oc XL1°A0? 
s 
2 
coP66 e SHES 
TON HESCEXTox*01° 
BT COP 17 
s 
YBN HESFEXTSX*10° 
BT CoP 16€ 
= 
8 NORMN 
2 
*x 
s 
8 ics! 
oc xL2*0002° 
pc xL4° O8B3D0FF* 
* 
8 cop29 
s 
cores 6 QGNTST 
s 
8 LAase 
oc ALi (0S3? 
oc xL2°ase 
8 tLaLso 
oc AL1(0S2? 
oc XL2°00° 
s 
LIC ODDF AL ox* Cae 
s 
e LALSD 
pc ALI CMIAROD 
oc x1 °00° 
s 
8 teP60 
= 
8 corny 
s 
8 SAaLso 
pc ALLCMTAROD 
CLI OPIN. x°OE* 
@NE COPIG 
s 
coP70 equ ee8 
CLI DO0DFO1.xK°01° 
ee copr2 


PanT NO. &247607 
Pace ata 
GET CS LOC 'O57F* (000) 


OATA AS EXPECTED ? 
er If VES 


ERROR S227 


GET ODOR VALUE IN WORK LOCATION: TEST 
TG SEE If CHAN CTR SHUT OFF CHAN 
XFER PROPERLY 
JumPp IF OK 


ERROR CODE S22Aa 


GET HE S-REG 
RCS PARITY CK ? 
er IF VES 


Cena TRANSFER CX 7? 
BR IF VES 


253 BYTE TRANSFER TO THE CHANNEL (000) 


LBI OxC ox*600* 


SETUP ZS 111 = *00° 


OSADDR PTR 111 = °8500* 
DOOR = OOOF+1 (8001) 
INITIAL MIAR = *0000* 


sTaanT 1oP 


oe L a v 


GET MIAR 
*mORMAL® END 7 


DOOF AS EXPECTED ? 
GR If VES 


PROG ID 
Pace 


cis—1 
31a 


18M MAINTENANCE DEAGHOST IC PROGRAM 


csi 


3340 ATTACHMENT TESTS - "00 


ERR LOC OBJECT CODE 


26€8 
26€F 
26F0 
26F 2 


26F4 
26F8 


26FC 
2700 
2701 
2703 


2705 
2709 
2700 


2731 
2715 


2716 
271A 


271€ 
2722 
2726 
272c 
2730 


2734 
2738 
2739 


273A 
273C 


DATE 
EC NOe 


+ 


so a Pye Pate 
oe ee reo ae a, tke da a iron ? 
pear es Prd ag Fey 28 sid oss : 
ae eee ~@ @ & @ | 
a ee ey, eon. 
2 a apieg —~@ 


co S87 2a07 


82 


26ES 
33€8 


30 
co 


co 
82 


Fe 
81 


87 


26eF58 
34aa 


co 
38 
co 


co 
so 


co 
co 


34 
3¢ 


38 
co 


co 


23 
oo 


67 
40 
90 


a7 


87 
87 


oe 
00 
oo 
80 
$0 


87 


2740 


co 


a7 


27FF 
2705 


2a07 


3068 
330E 
2716 


wa0y 


2986 
0216 


2737 
3302 
3302 
3302 
2726 


oco0 


0216 


LSaurG7S 
e2 7765 


2354 


appr 


26F1 
26F3 


26FS 


2762 
2704 


27235 


2738 
2739 
273% 


OsnovTs 


e278027 


sTat 


3381 
3562 
3583 
3584 
3585 
3586 
3587 
3588 
3869 
3590 
3591 
3592 
3593 
35946 
3595 
3596 
3597 
3898 
3599 
3600 
3601 

3602 
3603 
3604 
3605 
3606 
3607 
2608 
3609 
3610 
3611 
3612 
3613 
3614 
36135 
3615 
3616 
3617 
3618 
3619 


12 


SOURCE STATEMENT 


2 


coP71 
cor72 


coPp7s 


COPOLY 


COPOLI 


* 
corpcv2 


RINZS 


6 ERRPRT 

oc xL1i* 82° 

oc AL 20 COP 703 

oc AL2 CODDFAl 
eau e¢+1 

cul ODDF +4255 oX* FFP 


BE cop7s 


8 ERRPRT 
c mL1°82° 
oc ’ @&L2¢COP713 
oc AL2¢DODFAI¢1279 
8 SHES 
TEN LOPTNeX* 40° 


SF CcoP76 


8 ERREORT 
oc x2 *90° 


8 NORMN 

8 LINK 

COPOLY - DELAY SUBROUTINE 
st CDPDL243 eARR 
“vi WORKI«O 

ALC WORKE C1 de TT 
TEN WORK « X* 60° 
er cOPOL! 

8 + 

oc xL1°23° 

oc XLI*oo* 

oc AL2CRTNZOD 

8 TL INK 


c 


at 
a0 


‘ 


- 


se S28 . “J 
acne = 
@ & & & @ e ~@ 


e27627 


PART NOs 4247607 THM MAINTENANCE OFAGKOST IC PROGRAS PARTY NDe a26760T 
Pace 32. PAGE 32a 
; c1$1 3300 ATTACHMENT TESTS - “00 12 
ERR LOC ABJECT CODE ADOR ST&T SOURCE STATEMENT 
; 3621 naceccececersesecseeusaceccegeassagsscsssqoasaseaessscsassesseseeeeeees 
i 3622 * s 
ERROR 5226 : 3623 © TRANSFER 130 SYTES TO THE ATTACHMENT TO TEST DIFF COUNTER 8 
| 3624 * THEN INVERT PARITY € FTR-REG BIT 6 ON ? TO ENSURE THAT * 
3625 RCS PARITY CHECK Witt OCCUR * 
; 3626 * * 
3627 * ERRORS: 5240 - DIFF COUNTER FAaSLED * 
DDOF4+25S AS EXPECTED ? ' 3626 * S284 - RCS PARITY CK FAILED TO COME ON s 
eR If VES ! 2629 * * 
i 3630 * * 
: 3631 * sascacesceraesseasessesacsensececsccusccusesessss ease sesseeeseeeeee® 
ERROR 5228 3632 
' 2740 26 2740 3633 RTN24 oc xL1*° 20° ROUTINE 24 
‘ 2741 00 2741 363¢ oc NL2 00" 
2742 2873 2743 3635 oc AL2CRTN2Z5) NEXT ROUTINE ADORESS 
GET HES-REG 3636 ¢ 
CI PARITY CK 7? 2744 CO 8&7 2885 3637 8 BEGIN INITIAL. IZATION 
Be 1tF NSO 3638 2 
2748 3C 40 1F2D 3639 MVE SMT UK X* 40° SETUP RIN 24 FLAG 
27aC CO 87 24200 3640 8 coPpoo SETUP DDOF = *00*% - SFF® 
ERROR S229 3641 & RETURN TO *OIFFOI* BELOW 
2760 3% 17 33E9 3662 OLFFO! MvI ZLS ARS 
2786 3C 00 2775 3643 “vi DIFFO3eX* 00° RESET ®RCS TEST® FLAG 
2758 3C O01 330F 3604 MVE. CENGTHei 
27sec 32C SB 34CS 3648 avi ZLS*23 oX*SB* 
€10eS MSEC) 2760 CO 87 2064 3646 8 Lz_s 
2764 3C 12 33E9 3667 vt Z2SAR18 
2768 3C CE 34CO0 3648 MVE ZLS*1GeX*CE* 
276EC CO B87 2004 3649 8 tZzus 
3650 * 
2770 CO B7 2EE3 3651 8 Lcst 
2774 0000 2° 7S 3652 DIFFOS oc xiL220000° 
2776 166A80 2776 3653 oc KL3*36BAB0" SMODE PTR - O100 M ~ 10 
2779 169E86 2776 3654 oc KL Z°169EBO* SMODE PTR - Bite M ~ 10 
277c OBAFOO 277TE 3655 oc XL3B*°OSAFOO* LGBT SCNeX*00* RESEY FILE CONTROLS 
e 277F OSA300 2781 3656 oc XL3*O0B8A300* LB OSTex*00" RESET CHNL CONTROLS 
ROUTINE 23 NOT USED * 2782 1Ga781i 276% 3657 oc XL B°1GA7E1*® RESET FHF REG BITS 0 AND 7 
2768S cBo00[ 27e7 3658 oc KL3*°OB0000" NO ~- OP. ALTERED BY ercs TEST® TO - 
NEXT ROUTINE ADDRESS r 3659 © LEI FTR»x*02* INVERT PARITY/FORCE RCS CK 
. 2788 08831C 2784 3660 oc XLB*°OBBZ1C® LEI OXCexk*8C* DATA EROM CHNL /0DDR/ALLOU 
3661 © OIEY CNTRS CCHNLEFILE? 
a 2788 18A100 278D 3662 oc M3*IBAI0O® LOI CCHexX*00° CHANNEL COUNTER #2 50-2 
27e8E 1268180 27S0 3663 oc xE3B*28B180" LOI CCLex°80° 
2791 080000 2793 3664 oc a.3°080000" PATCH 
zs 2794 38a310 2796 3665 oc XL3B°RGAZLC® LOL OSTeX°20" ALLOW CHNL DATA XFER 
. 2797 126300 2799 3666 oc XL 3°226300° TEON 2eDST-00 eR IF “END CHNL KFER®S 
2794 000008 279C 3667 oc x 3*°C00008* «OCP TO TEON 
roa 3668 * 
N 2790 080000 279F 3669 oc x. 3°080000" NO0-O0P 
27a0 oBCccoo 27a2 3670 oc xa3s*oso000s NO-OP 
27a3 080000 27aS 3671 pe xL3* 080000" WNO-OP 
2746 CcB0000 2708 3672 oc ML3*080000" NO-OP 
27a9 080000 27A8 3673 Dc xe3s*oeo000e NO0-0P 
_27aC 218AE00 2STAE 3674 oc 1%. 3°1BAE0O® LBI FBOexX*00* INITIAL BYTE -> FBO 
27aF. 080000 27281 3675 cc xE3*OB0000" PATCH 
27B2 OBAFOA 2784 3676 oc ML3B®°OGAFOA® LEI SCNeX*OAS ALLOW FILE XFERZDAT TO FILE 
2785 188681 2787 3677 oc MLB°LSBESi1® LBL FCTeK*E® FCT 2130-1 
27ee csecc00o 27BA 3678 oc ML3*OB80000" DELAY - 1ST TRAP 6 MOVES INITIAL BYVE YO |. 
27ep 080000 276ED 3679 oc 12.3° 080000° FO: 1ST DATA BYTE TO FEO 
27BE cB000Do 27CcO 3660 oc xi3°080009° 
jo A 3691 * 
; 3682 4 CS LOCATSON 19 FOLLOWS. LOOP HERE TO *SV¥NC-INE 
tos 3683 ¢ . 
s 27C1 18Aa502 27C3 3684 oc XL3°1GA502* LBI FTGeX*02* OLAG SYNC-IN 
27¢4 eB0000 27CE 3665 oc KL3Z2O080000" DELAY - TRAP B = “ND DATA BYTE TO FEO 
e 2727 Bocce 27c9 3686 a xL3*060000° STEP DIFF CNTR (NOW opo? 
. 27CA 080000 27CC 3687 oc x.3*%080000* ss 
27CD 1136326 27ce 3688 XL3°126326" TBON 2eDSTe2E SR Se *OSseF CNT © O° 
c 
PROG FEO ciS]1 Date ISAUGTS OSNOVTS PROG £0 cis-1 
Pace 32 €C NO. S27785 PAGE B2a 


ae ae 


+ peeredinapgailtin, a =. 





e200 08 0 @ 


1B” MAINTENANCE DIAGNCSTIC PROGRAM 


e151 336G ATTACHMENT TESTS - MOO 


Err vac 


27D0 
2703 
2706 
2709 
270c 
270F 
27E2 
27e€s 


27E 8 
27EB 
27EE 
27F1 
2e7Fa 


eve? 


2TFa 
27F0 


27FE 
2802 
2803 


2604 
€808 
2809 


260A 


28C6E 


2812 
2836 
2827 


2818 
261c 
281D 


201€ 
2822 
2823 


2624 


2828 


282¢ 
2830 


2833 
2837 
2838 
283c 


2840 
2884 


280s 


28as¢ 
284D 
28aF 


DATE 
EC NO. 


CBJECT CODE 


060000 
680000 
18a502 
080000 
oeBo00co 
o8c000 
176728 
000019 


18aso2 
0800006 
oeocoo 
80006 
0n672C 


190028 


ooooec 
FF 


co 87 2ba9 
IE 
385 


co 87 2Da9 
OA 
85 


co S87 2999 
31 €4 33¢9 


co 87 200F 
&€ 
TF 


co 87 200F 
OA 
690 


¢€o 87 200F 
oo 
oo 


co 87 3100 
co 87 271E 


30 FF 2775 
f2 81 2e 


co 87 2E73 
oo 

3D 2c 330E 
co 81 2845 


co B87 2a07 
on 


co 87 2988 


co 8? 2EES 
000s 
08 aAD02FF 


iSauGc7s 
s277es 


aodorR 


2702 
2708S 
27D8 
2708 
27DE 
27€3 
27Ea 
27E?7 


27EAa 
27e€0 
27F0 
27F3 
27F6 
27F9 
27FC 
27FO 


2662 
2803 


2808 
2809 


2816 
2617 


261Cc 
28610 


2822 
2823 


2837 


28a 


288E 
2852 


OSnNov7s 
g27827 


SsTMr 


3669 
3690 
36912 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3723 
3712 
3733 
3720 
3718 
3716 
3717 
3778 
3719 
3720 
3721 
3722 
3723 
3728 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3738 
3735 
3736 
3737 
3738 
3739 
3760 
3743 
3742 
3743 
374aa 
3745 
37 a6 
3747 
3748 
3789 
3749 
3750 
3783 
3752 
3783 
3758 
3755 


32 


ton i ate aah te athnernsteny neiete SmTanten ramen e . 
@ ce a ater engine neg a SM me eR eR oe 


SOURCE STATEMENT 


* 
OIFFOS 
s 


2 
O1lFFO7 


oc 
oc 
oc 
oc 
oc 
oc 
oc 
oc 


oc 
oc 
ec 
oc 
oc 


oc 


oc 
oc 


8 
oc 
oc 


go fr 
A we 
6 


52 7 2 RR® RR? B 


be 
m 


XL 3" o80000* 
XL3*oe0C00* 
xi 3* 18A502° 
KL3*°080000° 
x2L3*080G00* 
xL3*080000* 
XxL3*276728* 
X23*000619° 


XL3*26AaS02° 
XL3* G80000* 
xL3°080000° 
XL3* Gs8coaG® 
xXL3*04672C* 


XL3* 200026* 


xL3*O0002C* 
XLAcSFre 


LALss 
AL3(D0S1? 
xXLiI*6eSs* 


case 
aL3¢0S2) 
xL1°6s¢* 
EGNTST 
DODF Ae x* Ca® 


aacso 
&t.2 (083 2 
21° TFS 


taLtso 
aL 1(0S23 
RL1¢oo* 


LaL_so 

AL1 CMTAROD 
XL1° 008° 
10P6c 
COPOLY 


OIFFOZeX* FF * 
OIFFOS 


sacso 
ALL C MEARCD 
IOPINeX*2C* 
OF FC? 


ERRPRT 
xt2 foo 


noamn 


CART NOs 
Pace 


PATCH 
PATCH 
LB FTGexX*O2* OAC SYNC-IN. 
DELAY - TRaP B = 3RD DATA BYTE TO FEO 
FROM EVEN SIDE.> 
1S¥ OECREMENT OF FCT 
TBUN 7.FHF<2B 8R ON SEND FILE XFERS 
LGOP TO 0019 € DIAG S¥YNC-IN ) 


LBI FTGeX*O2* OXLAG SYNC-IN 

DELAY - LAST TRAP 8 

TOON @.FHF e2C BR ON *END TRAP CNT® 
HANG <- ERROR 


HANG - OK 


CHNL TRAP OSADDR = *OS7F* 
BIt © = MULTE BIT XFER 


FILE TRAP DSADOR = *OS00° 


ooor = OODF ¢8000} 


CHNL TRAP DSaADBR 
= *OsS7Fe 


FILE TRAP DSADOR 
s *osco* 


INITIAL MIAR 
= *9600* 

STaRT 10P 

SR TO DELAY IN RAITN 22. PROG 
WILL RETURN HERE 4FTER OEL AY. 
*RCS* TEST IN PROGRESS 7 
SR IF YES 

HALY FOP. GET MIAR 

*NORMAL® END ? 

BR IF YES 


ERRG? S240 


NOw FORCE RCS PARITY Cx 


8 
oc 
oc 


uLcst 
xi2°*o005° 


ALTER CS INST TG *L8E FTR.O2° 


XL&* G8ADCOFF 


PROG TO 
PAGE 


' 


Reine ee ae an core ere 


8287607 | 


ee eee mee ee ee 


ecw cease rmiec am amn s cemrmames ine mate en 


rere cement ee me ee a emer rere 


c1s-1 


Sign emminisi eowmne mains ewe eae 


cis 


2853 
2as7 
2858 
28 SF 
2863 
2866 
266A 
286e 
2372 

e 

es 

7 

3 

wo Pee 

A 

c 

C 

C 

c: 

C 

& 

Qe 

Dare 
2 EC NOe 


mo ic 


= 





3 
co 


co 
38 
Fe 


co 
co 


co 
36 


FF 
8? 


a7 
oi 
go 


387 
87 


a7 


ERR LOC GBECT CODE 


2775 
280A 
3068 


33DE 
oes 


298686 
0236 


2a07 


1SauGc7s 
s277Es 


18M MAINTENANCE OLAGNOSTIC PROGRAM 


3360 ATYACNNENT TESTS - MOS 


adoR STMT 


3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
2872 3768 


OSNOvVTE 
@27827 


t2 


- - 5 Saher ea Tate, ets toe ok, ~ ue poe nt. ve oe oO: s oe oF. Let . : . 7 ® 


SOURCE STATESENT 


* 


* 
DIFFOS 


* 


CIFFOA 


wvi 


DIFFO3 oxeFFe 
DIFFOS 


SHES 
IOPINe X*O3 ° 
DIFFOA 


NORMN 
CINK 


ERRPRT 
RLIFr08 


PART NCo 
Pace 


SET *RCS TEST® FLAG 


GET HES-REG 
SEE IF *RCS PARITY CK® 
BR IF NO 


ERROR S241 


PROG 10 
PAGE 


8247607 
33a 


CIS<4 
33a 








I1BW MAINTENANCE DIAGNOSTIC PROGRAM 


€151 3340 ATTACHMENT TESTS - MOD 
EeR coc OBYECT CODE &aDDR STMT 
“3770 
3771 
3772 
3773 
3774 
3775 
2873 25 2873 3776 
. 2874 00 2874 3777 
: 2875 FFFe 2876 3778 
3779 
2877 OD 00 0232 SAD0D 3780 
287D CoO 81 6C02 3781 
3782 
2881 CO 87 0216 3763 
3784 
DATE 1SAUG7S OSNOVTS 
EC NO. 827785 e27e2T 





os 


i Sabi ha ead, 


PART NOe 
PAGE 


4247607 
3a 


i2 
SQUECE STATEMENT 


RELAVEAKASKREARKKAKARKKEAKEKEKSKEKE KAKEKARKEKKERW EEK ESKKAKKEKEE SKREALKEKEKRAKEAS 
* * 
* RELOAD ATTACHMENT MICROCODE IF 3340 IPL * 
* * 
KREKSKSEAAKERAKKEEKEKASHKAAKREEATKAKEDKKESSESKAEKAKEEK EKSEKEESEEESEHEHKAEEETEAKE SEAS 
* 


RIN2S oc xL1*25* ROUTINE 25 
oc xL1°00°* 
FEFF ec XL2 *FFFF ® LAST ROUTINE 
* 
cec UTA8(1) -PID-1 RELOAD 3340 MICROCODE 
BE LOR+2 IF 3340 IS IPL DEVICE 
* 
8 LINK TERMINATE SECTION 
* 


PROG 10 


PAGE 34 


: : et os AE tee att peer ee ee ne eee ee ge ere pe : i 
Sais So eee ES SO SRE GEES Sig oR ema Re AES Rigisee Eee Se) a gk 3 


C251: 


ow 


\ 


Oo Of © 


OaTE 
EC NDe 


16M MAINTENANCE DEAGNOSTIC PROGRAM 


cis 


ERR LOC OBJECT CODE 


2685 34 


2869 
2880 


38 
F2 


2890 
2894 
2895 
2896 
2898 


co 
46 
12 


289A 
269E 


38 
co 


26A2 
26A6 


oo 
co 


268 ac 
2882 


oD 
co 


26866 
2es8c 


oo 
co 


28co 
28c4 
28cs 
28c6 
28ca 


co 
a6 
13 


26ca OC 
28d0 
2804 
2805 


co 


2807 
2808 


3A 
co 


280F 
28EsS oc 


28eB co 


28EF 
26F3 CO 
28F7 
2erFs8 


2err 
2903 
2907 


2908 
290F 


2913 
2927 - 


3340 


ATTACHMENT TESTS - MOD 


08 2998 


210 33CE 
OA 


87 O22A 


3383 
ci00 


01 
10 


OA19 
2AE8 


00 
o1 


0232 
28DF 


01 
or 


Oaic 
28sco 


93 
82 


6col 
23607 


87 O21A 


33Ai 
c100 


28 9A39 


87 O22a 


oci7 


210 
87 


OA19 
6co2 


FF 
FF 


3574 
34¢D 
87 31 a7 


80 
87 


33F8 
288A 


oo 
87 


33F8 
268A 


87 
87 
87 


2B6CA 
2BFA 
2BAA 


33F1 
87 2C0A 
00 33F1 


2coa 


1SAUG7S 
827785 


OA0o 


2806 


2806 


Oars 


3875 
34CcE 


ADDR STMT 


3786 
3787 
3768 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3601 
3802 
3803 
3804 
3805S 
3806 
3807 
3808 
3809 
3820 
3813 
3812 
3813 
3814 
3815 
3616 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3637 
3838 
3839 
3840 
38413 
3842 
3843 
3844 
3845 
38a6 
38a7 
3848 
3849 
3850 
3851 
3852 
3853 


2894 
2895 
2897 
2699 


2ece. 
28cs 
28c7 
28c9 


2608 
2606 


OSNOV7S 


827627 


12 


4247607 
3GA 


PART NO- 
PaGE 


KK REEERRERE HE EAROEREEEE SEREKE ES REKERAEEEE SERRE SORAER SAAS ESTEE KESEHECS SS 


COMMON ROUTINE ENETIALIZATION 


COME HERE AT THE START OF EVERY ROUTINE TO SETUP THE 


MICROPROCESSOR. 


SCURCE STATEMENT 
* 

* "*BEGIN®G 

* 

* 

* 

* 


ee 


RK ARRRRERAERARERES EAREERE EEEAEESE EASES ESEEHEEESREKECRERES SES ES HET SESEESS 


* 


BEGIN st 

* 

TEN 
JF 

* 

8 

oc 
oc 
oc 
oc 

* 

BEGINO TEN 
BT 

* 
cLc 
SNE 

* 
cL¢ 
GNE 

* 
coc 
6E 

* 

LORLD @ 
oc 
oc 
oc 
oc 

s 
svc 

ta 
8 
oc 

ci? oc 

& 

LORGO SSN 
8 

= 

BEGIN mvc 
mvc 

= 
8 

* 
wvVI 
8 

* 

MVE 
9 

* 

8 

S 

8 
= 

MVE 

8 

* 

“vi 
8 
* 


BEGINX43 ARR 


INDeLPSwW 
BEGINO 


PRINT 

xL1° 46° 

AL 2 C(MSGCEN-MSG0642 3 
AL2 (MSGOEND 
AL2CHLTO00) 


COM, ANOPSU 
AMOPLK 


UTABC 1) ePID—-2 


SAVE RETURN ADDRESS 


BRANCH IF NOT 
SECTION RESTART 


PRINT MESSAGE 
*SECTION RE-ST ARTECS 


BRANCH ITF aAMOP WAS 
ABNORMALLY TERMINATED 


BRANCH IF 3340 


BEGIN} 3S NOT IPL OEVICE 

LOR ID€2)9eC17 BRANCH IF LCADER (C17) 
LORLO HAS NOT VET BEEN LOADED 
LOR4+16230C37 BRANCH IF LOADER IS 

LBRGO STILL IN MAIN STORAGE 
PRINT PRINT MESSAGE 

XL2 °46* "LOADING SECTION C37° 

AL 1 (MSGOSN-MSGOS+13) 

AL2 CMSGOSN)D 

AL2CHLTOO) 

SVPFC(25) eCOM-1 SAVE SECTION PREFACE 

toad LOAD SECTION CI7 

XL2 *08¢ & 
xL2°O0C 37° 

COM eFACFLG GO TO LOADER TO 

tLOR+2 tGad SECTION FAD 
CLR-16255) »CLR ‘ CLEAR ALL RESERVEC STG AREAS 
IND+ 2E5( 256 ) e IND+256 
CLKRST RESET FOP CLCCK AND INUTZALIZE INDEX 
F TREEXT oX*80* RESEY 

LETR ADAPTER CHECKS 

FIRtEXT2O0 RESET 

LFTR FTR REG 

LSCN RESET SCNe 

Loxc OxXCe AND 

LFTG FTG REGS 

OST¢EXTeX*SF*e RESET ATTACHMENT BUSY 

LOST AND SEEK COMPLETE BITS 

CST+EXT 0 RESET 

Lost OST REG 


PROG ID 
PAGE 


c1S-% 
34a 








TEM MAINTENANCE DIAGNOSTEC PROGRAM 


cisi 2340 ATTACHMENT TESTS - MOD 


ERR LOC OBJECT CODE ADDR STMT 
2916 3C 80 33F5 3854 
291F CO 87 2C4A 3685 

3856 

2922 3C 00 33F5 3857 
2927 CO 87 2@C4&A 3858 
38s9 

2928 CO 87 31A7 3860 
3861 

< 292F CO 87 2EA9 3862 
2933 80 2933 3863 
2934 84 2930 2864 
2935 8A 2935 3865 
2936 8c 2936 3866 
2937 99 2937 3867 
2938 94 2938 3868 
2939 98 2939 3869 
293A SE 293A 3870 
2938 SE 2938 3871 
293C FF 293C 3872 
3873 

3874 

2930 co 87 2092 3875 
3876 

3877 

2981 3C 14 3477 3678 
2945 3C Fa 3479 3a79 
273949 3C 54 3476 38890 
294aD 3c S4& 3470 3661 
2951 co 87 20c8 3862 
3883 

2955 3C 00 33S 3884 
29593 3C 20 33DF 3885 
2050 cO B87 2044 3886 
3887 

= 2961 3€ 40 330F 3888 
2965 CO 87 2C9E 3889 
3690 

296S CO 87 3141 3891 
296D OCBOOOOFF 2970 3892 
3893 

2971 CO 87 2EE3 3894 
2975 9000 2976 3895 
2977 O3A100 2979 3896 
297A 040000 297c 3897 
2970 040000 297F 3898 
2980 040000 2982 3899 
2983 040000 29es 3900 
2986 040000 29e8 3901 
2989 040000 2988 2902 
298C FF 298C 3903 
3904 

2968D 3c OA 3572 3905 
3906 

2991 CO 87 0212 3907 
2908 

2995 co 87 0000 3909 
3910 

CATE IS AUGTS OSNOV7E 
€C NO. 827785 e27827 





i 
i 
| 


JOY MAINTENANCE OF AGNOSTIC PROGRAM _ PART NDOe 4247607 
PaGE 35a 


C151 «3340 ATTACHMENT TESTS - MOD 12 


ERR Loc OBJECT CODE 


avoR stMt 


SOURCE STATEMENT 


PART NOe 4267607 
PAGE 3s 
12 
SOURCE STATEMENT 
MVI-FHES+EXT.X* 80" RESET SYSTEM OR 
8 LFEMF POSER ON RESET BIT 
* 
MVE - FHF EXT 20 RESET 
8 LFHF FHE REG 
*x 
8 CLKRST RESET CLOCK 
* 
8 Les SCT ALL MODE SUFFER POSITIONS 
pc ¥L1*BO* PTR 000 PROG 0 TO *00° 
pc xLi¢eae 001 PROS 1 TO °00° 
oc XLi*sae 010 PROG 2 TO 910° CFILE PROG) 
pc xL1*8C° 012 SET REST OF THE MODE 
oc xL1*90* 100 BUFFER TO ZEROS. 
pc xL1 9988 102 
oc xL1°98¢ 110 
pe xXL1°9E° 1231 PROG 7 TG *10° {CHAN PROG) 
oc XL1°9E* a1 PROG 7 TO *10* (CHAN PROG) 
pc XLI*FF* TERMINATOR 
s 
* INITIALIZE ALS (BLOCK) 
8 LAL SB1 INITIALIZE ALS (8) TO ALL OFS 
* 
* INITIALIZE acs CDISPLACEMENT ) 
MVI = ALSD+095Xx"14¢ MAIN ROUTENE INDEX 
MVI ALS D411 ex" Fas CHNL PROGRAN INDEX 
MVE = ALSD#134x"54* FILE PROGRAM INDEXES 
MVI —- AL SD4250x"54" 
8 LALSOI 
* 
MVE —-_ ZLSAR*O 
MVI LENGTH. 32 INITIALIZE ZONE 
6 Lzs LOCAL STORAGE (2LS) 
* : 
MVI LENGTH» 64 INITIALIZE OATA : 
8 tors LOCAL STORAGE (2S) : 
* i 
8 LxoPr RUN IOP GNE CYCLE 
pc XL4* OBOOOOFF® 
* 
8 ics! INITIALIZE CONTROL STORAGE 
oc xL2*0000° CONTROL STORAGE ADDRESS 
oc xL3*03A100° “ 
oc XL3*040000* 1 P 
oc xk 3* 0400058 c R 
pc XL3*080000° R ° 
oc XL3*040000° o G 
pc xL3*0a0000° R 
pc xL3*020000° A 
oc XLI*FFE MM ! 
2 1 
BEGIN2 VI LPCNT.x*Oa® INITSALIZE LOOP COUNTER 
= . 
e Test CHECK FOR USER INTERVENTION 
‘ 
BEGINX 8 e-8 
a 
PROG 10 c1s-1 


PAGE 35 


3912 eRREEEEENEES SEES E4EEEESEEEEEEOS 2EE4 EEREREREEERE EEE EERE SE SEEEE SES SESEESS 
3933 


* = 
L 39124 # *BGNTST® BEGIN TEST LOOP * 
3915S * * 
3916 * COME HERE AT THE START GF EVERY TEST TO SETUP *TEST * 
3917 * LOOP* ADDRESS * 
3918 * *~ 
3919 OBER ED REESE SESSA EEEDS DEES URETEDDETEEREEEESEEEREE SEES SESS SESE SETHE SERES 
3920 * 
29SS9S 34 08 298A 3921 BGNTST ST LOOPX +32 ARR SAVE RETURN ADDRESS 
3922 * 
299m 3A 80 33CE 3923 SBN IND» TSTSW SET TEST STARTED INDICATOR 
29A1 F3 C4& TE 3924 s1a X®7E*® eX* C4? PESETSOISAG@E 3340 INTERRUPTS 
3925 * . 
2984 30 OC 3300 3926 SNS SwSe0 * AMOP * SENSE DATA SWS 
29a8 30 81 33CF 3927 CLT LINKID»x*81°* * LINK ® ANDO GO TO AMOP TF 
29ac CO Bi 2AEB 3928 BE AMOPLK * *81¢ # swS 1 6 2 CONTAIN *81* 
fo 3929 * 
N- 3930 * ENTER HERE IF *tOGPING® A TEST 
3931 # 
- 3932 * 
: 2980 £3 C4 80 3933 LooP sto K*BO* eX*#Cae ENABLE 3340 INTERRUPTS 
2983 3C 01 330F 3934 Mv LENGTHei INET TIALIZE "LENGTH DEFAULT 
3935 * 
2987 CO 87 0090 3936 LOOPX 8 &—-s RETURN TO ,START OF TEsT 
. 3937 * 


aon 


NAO 9 


CLG Ca ee, 


“™, 


DATE 1TSAUGTS 
« EC NGe G27765 


CSNOV7S 


PROG 1D C152 
e27827 


Pace 354 
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e153 2340 ATTACHMENT TESTS - MOD 12 cist 2340 ATTACHMENT TESTS - “oo 12 


ERR LOC OBVECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADCR STMT SOURCE STATEMENT 
3939 eneeunesdetenh su0e he ctEEERRASERESEESEESERESES CHSEEREER SESSERSERERESERES 3977 gbaneseOeeSUAESERER EERE SAEREREESESENESEREEES ES EEES OED EEE ER ESE SESE SER OS 
3940 @ s 3976 # * 
3941 & FNDORMNE NORMAL END OF TEST Fo 3979 * SERRPRT® BUILC AND PRINT ERROR MESSAGE * 
3942 % *: 3980 * * 
3943 * COME HERE AT ENT OF A TEST TO LOOP TEST OR CONT INVE x. 39861 2 HALT °S2¢ TF ALL RETRIES FAILED (SET *fERRSw? IF * 
3948 @ ROUTINE. ERTHER THIS SUBROUTINE OR *ERRPRT* aust 6E = 3982 2 FIRST TRY FAILS} * 
3945 * CALLEO TO EFFECT TEST Exite % 3983 * HALT *52° 1F ANY TRIES SUCCE SFUL * 
3946 *% * 3984 * HALT *53*° 1 FIRST TRY = ERROR SUT ALL REYRIES * 
“ 3947 ROS ERERREAEAEEREREEEREREER ERE EAE ERE EEE CEE AELERE THK EREEEEESRES EERE ES o 3985 * SUCCESFUL Hf 
3948 © . 3986 * * 
29BeR 34 08 2Aa06 39469 NORMN st NORMX+4 3SeARR SAVE RETURN ADDRESS 3987 Led GdeEt tbSEESESEOCLEASAEE SENS SASS NESE ESSE SEES EOSTES ESSE RORSSE SESE SSO NS 
3950 * 3988 * 
298F 28 80 33CE. 3951 NORMO) TEN IND.TSTSw& RETURN IF NO 2a07 36 08 2A35 3989 ERRPRT st ERRPOIs ARR SAVE PARAMETER STRING ADDR 
29C3 F2 90 3D 3952 JF NORMX TEST IS IN PROGRESS 2a0B 3¢@ 01 2A78 3996 st ERRPX1 43 oXRI SAVE INDEX REGISTER 1 
3953 + 3991 * 
29C6 38 10 33CE 3954 TBN INDeLPSY Loep TEST IF 2A0F 38 20 33CE 3992 ERRFOO TSN INDeLPSY Loop TEST IF 
29ca CO 10 2980 3955 eT Loop LOOP INDICATOR IS ON 2ai13 CO 10 29B0 3993 eT coop 100P INDICATOR IS ON 
3956 * , 3394 * 
29CE 3a 80 33CE 3957 SBN IND sNORMSW SET NORMAL END INDICATOR 2ai17 OC 1¢ 3333 3334 3998S wvc MSGNUMSGN-MSG) 0 MSGN4+1 CLEAR ERROR MSG AREA 
2902 3X 53 2Aa7 3958 vi HLT IOeHLYS3 SETUP HALT CODE S3 3996 * 
3959 * : Zaid CO &7 O21E 3997 B UNP ACK MOVE LAST 
29D6 OF 00 3572 3364 3960 sic LPCNTCIDs It Loop TEST UNTIL LOOP 2A22 02% 2a21 3998 oc wii¢*1¢ DIGIT OF 
29pc €o 01 2960 3961 BNZ Loop COUNT IS EXHAUSTED 2a22 OADL 2a23 3999 oc AL2¢CP10} PROGRAM ID 
3962 * 2 2a24 3317 2425 4000 oc AL2CMSGti) TO ERROR MSG 
29E0 38 20 33CE 3963 TEN IND, ERRSW GO TO PRINT ERROR MESSAGE *. , 42001 * 
29€6 F2 10 87 3964 JT ERRP IF ANY ERROR WAS DETECTED 2a26 CO SF O21E 4002 8 UN? ACK MOVE 
3965 * re 2a2a o8 2A2A 4003 oc rirere ROUT INE 
29E7 38 FF 33CE 3966 SsF INC eX* FFP RESET ALL PROGRAM INDICATORS " 2A28 OAOS 2A2c 4004 oc AL 2¢RTND NUMBER TO 
29EB 3C OA 3572 3967 wVI LPCNT eX* OAS SETUP LOOP CGUNT FOR NEXT TEST 2A2D 3318 2A2E 4005 oc AL ZCMSGt2) ERROR MESSAGE 
29FF 30 C5 3577 3968 SNS SNSINT* X*CSE SENSE ADAPTER STATUS BYTES ra 4006 * 
2or 2 39 15 3577 3969 Ter SNS INT oX*25* OP ENDe ADPTR CHK se OMeATING ae 2a2F CO S87 O21E 2007 8. UNP ACK CONVERT 
29F7 CO $0 2848 3970 SF BSGNINT BR TO THE OLD INTERRUPT RTN . 2A32 O01 2a33 4008 oc ¥L3*1° ERROR NUMBER 
29FB 39 OF 3576 3971 Ter SNS INT=1eX*OF * ANY OF THE 4SEEK COMPLE TES ee Seed 2A34 et 2a3S 4009 ERRFO! os AL2 ANO PARAMETER 
—_ 29FE CO 90 2848 3972 6F BGNINT 6R TO THE GLO INTERUPT RTN N+ BABE 3304 2A37 4010 oc AiL2CWORK2) COUNT TO EaCOTC 
39073 * ‘ a20it * 
2a03 co 87 9000 3974 NORSX 8 tot RETURN TO TEST ROUTINE , ro 2a38 OC 00 3319 3303 4012 wmvC MSG43( 1} eWORK2-3 MOVE ERR CODE TO ERP MSG 
39075 * ok 4013 * 
2A3E C2 OL 331C 4014 La MSG+6 eXR1 , . SETUP POINTER TO vaR TABLE 
cue. 2a42 34 01 2A63 4015 st ERRPOSeE KR DATA AREA EN ERROR MESSAGE 
‘ 4016 * 
2a66 35 01 2A35 ; » 4017 L ERRPOIeXR1I SET POINTER TO PARAMETER LIST 
a - 4018 * : 
‘ 2aaa O07 OO 3304 3388 6019 ERRPO? $z kKyORK2€23 D3 C1? DECREMENT VAR DATA SYTE CNT 
2a50 F2 82 18 4020 JM eERRPOS . BRANCH IF END OF VAR oaTa 
ig: eo2t + ‘ 
ac 2a53 D2 61 O02 4022 LA 26 eXR1} eXRi ADVANCE PARAMETER POINTER 
2asS6 1C 01 26% 00 4023 wvc ERRPO3I2) 20% e XR1) GET VARIABLE DATA ADDRESS 
hee 2aS8 co 87 O21E 4025s 8 UNPACK MOVE ONE BYTE 
2asSr oO 2aSF 4026 IC 112°2* OF VARTAGLE DATA 
x 2A60 2AE1 4027 ERRPOS os At] TO ERROR MESSAGE 
Mee 2Aa62 2a63 £028 ERRPOS os AL2 
4029 * 
2a64 OF 01 2A63 3386 #030 ALC ERRPOAL 29 TS ADVANCE ERROR MSG POINTER 
2aga CO 67? 2AGA 4031 8 ERRPO? GO TO GET NEXT ERR MSG BYTE 
4032 * 
r 2a6E 02 O08 02 4033 ERRPOS LA | 200 KR19eXR1 SETUP RETURN 
Se 2A71 34 01 2A80 ; 4034 st ERRPX4+3eXR1 ADDRESS BEG eel 
4035 * : 
aae 2a7vs c2 01 90000 £036 ERRPXI ta S—-F_ XR2 RESTORE INDEX REG 1 
Mot" ies 4037 * F 
2a79 38 80 33CE 4038 TON INDe TSTSW RETURN EF ND 
2a70 CO 90 0000 4039 ERRPX BF st TEST IS IN PROGRESS 
AQ 4060 * 
2a81 3C S2 2AA7 4041 wave HL FID sHL TS2 . SETUP HALT CODE $2 
ah 4042 * , — 
© 2aes 38 40 33CE 4043 TAN END .eNORMSY BRANCH IF SOME TRY HAD 
‘ 2aeo F2 10 12 4044 - JT ERRP : BEEN SUCCESFUL 
Cc - 
DATE tSauG7s OEnov7s PRBG 70 ¢1is-1i DaTE 1SAUG7TS OSNOV7S : PROG 10 cise 
EC NO. 827765 eB2T827F PAGE 36 Cc NO. 827765 627627 : : PAGE 36A 
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e@e@e0e28 8 eeed 


1B" MAINTENANCE DS AGNOSTIC PROGRAM 


c1s1 


ERR LOC OBJECT CODE 


2asc 


2ag0 
2ag6 


2A9K 


“hs ZAGE 
2Aa2 
2AA3 
2mana 
ZAAG 


2AA8 
2Aac 
2Aad 
2AaAE 


2AB0 
2aba 
2aBS 
2866 


2a88 
2A8E 
2ac2 
2Aacsé 
2ACa 
2ACE 


2ad2 


BADGE 
2AaDAa 


2adc 
2ato 
2AE1 
2h€2 


- 2aFa 


DATE 
Ec ND. 


3A 


OF 
co 


3c 
co 


ci 
or 


20 


00 
o1 


Si 


87 


3334 
c100 


ce 
81 
ic 


87 


3350 


co 
86 
it 


87 


3233 


oc 
390 
39 
co 
39 
co 


3A 


co 


co 


ta 


o1 
cs 
15 
90 
so 
1c 


87 


87 


336A 


co 


e7 


33CcE 


2572 
2980 


2Aaz? 


021A 


0214 


O2IA 


2a08 
3577 
3577 
2648 
3576 
2848 


33cE 


o222 


O21A4 


2980 


ISauGcTs 
827765 


ADDR 


3384 


2Aaan2 
2AAas 
2aas 
2aaryr 


2nac 
2aad 
2 ARF 


2aBa 
2ABS 
2aB7 


2Aaa7zv 


2ADB 


2at0 
2a€1 
.2aF3 


OSNOVTS 
s27e27 


2340 ATTACHMENT TESTS -— OO 


ST“t 


4045 
4046 
4087 
£048 
4049 
4050 
408i 
4052 
4053 
4054 
4055 
4056 
a0S7 
4058 
4059 
4060 
4061 
4062 
£063 
4064 
4065 
4066 
4067 
4068 
8069 
4070 
ao71 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
a0o8a 
#085 
2986 
8087 





12 


SOURCE SYATEMENY 


* 


* 


ERRP 


HLT IO 


ERRHLT 


Son 


Stic 
BNZ 


“vi 


8 

oc 
oc 
oc 
oc 


oc 


oc 


oc 
oc 
oc 


“vc 
SNS 
TBF 
BF 
TSF 
EF 


SBN 
os 


oc 
oc 
oc 


INO cERRSW 


LPCNTC23 oF2 
Looe 


HLTIOskzTS3 


PRINT 
xL1*c¢* 

AL3 02> 
AL2CMSGN42} 
xLe*ci00¢ 


PRINT 

Xt2 *8r7° 

ALI CMSGOIN-MSG0! 41 } 
AL 2¢MSGO1N) 


PRINT 

XLI*86° 

AL1 (MSGN-NS G41 } 
AL 2CMSGNS 


ERRHL TE 2) sHL TID 
SNS INT eX*CS* 
SNSINTsX*15 # 
BGNINT 

SNS INT~2 eX* OF# 
BGNINT 


INDeL PSB 


HALT 
xL2 


PRINT 

*L2* 06° 

AL 4 (MSGO2ZN—-NSG6261) 
AL2€MS602N) 


i.oop 


nn ns aon ee 


a ae ws a ae 


ionsthied 


eta therein neem rat 


4227607 


PART NGe 
PAGE 37 | 
SET "ERROR DETECTED® INDICATOR | 


Loop TEST UNTIL tooP 
COUNT IS EXHAUSTED 


SETUP HALT CODE Si CALL TRIES 
FRILED) 


PRINT 
ERRoR 
MESSAGE 
HEADING 
LINE 


PRINT 
VARTABLE OATA 
HEADING LINE 


PRINT 
VARI ABLE 
DATA LINE 


SETUP ERROR HALT CODE 
SENSE ADAPTR STATUS SYTES 
GP END» ADAPTR CHK eOMs ATTN 
BR TO THE SLD INTERRUPT RTN 
ANY OF & SEEK COMPLETES 
BR TO THE CLO INTERRUPT RTN 


LOOP FAILING TEST 
ERROR HALT 
PRINT 

"LOOPING 


FAILENG. 
Teste 


LOOP UNTIL OPERATOR INTERVENES 


Ros tp 
PAGE 


CIwS<-¥ 


w 
a] 


amy 


APY AE GRRE ERO MURDER ED TY REND RUN SPCR COMPLE NIRS “NeW Aen Oe ene wees me een ee ee tere en 


& ‘ S S a G Sete, pat S s @ Bh z bs oe 2 : s : ees ie ot S 


B® MAINTENANCE DIAGNOSTIC FROGRAM 


cis 


ERR LOC OBJECT CODE 


a“. 
on 
z 


2aE8 


2aec 
2AFO 


2ar2 
2ar? 


2aFB 


2503 
2807 


230A 
2810 


<Bi3 
2819 


2610 
s 2823 
ce 2822 
2823 
a 28258 


2827 
a, 2628 
see 28 2¢ 


f 2B2E 
¥ 25832 
2833 
28346 
2836 


2638 
2B3¢ 


2640 
2644 


ae 


ot 


wy 


6 Hee 5 es 


noo 


OatEe 


Qo c 


D 


38 
F2 


oo 
F2 


Fe 


co 


co 
a6 
a3 


os 


o. 
38 


02 
02 


36 


03 
ou 


03 
8s 


30 
ai 


S7 


3370 
109 


<o 
06 


387 


occas 


co 
a6 
z1 


67 


33&E 
¢€100 


co 87 


c2 
c2 
co 


a2 
Qi 
8? 


2807 


6200 
53 


2883 
238 3F 


OASS 


OAL E 
o9 


#002 
2s 


6232 
283¢ 


O21a 


O22A 


e2ia 


40C2 


oo0a0 
9000 
oos00 


15auG7s 


-- EC NB. -627785 


aO0R 

OA3 8 

2820 

2826 

9a00 
2822 
2822 
2828 
2826 
2628 
2825 
28632 
2833 
2835 
2837 

GSnGV7S 

@z7827 


3340 ATTACHMENT TESTS - NOD 


STmyv 


4089 

4090 
4092 

2092 
4093 
4096 
8209S 
4096 
8097 
098 
£9099 
4100 

4101 

4102 
4103 

4104 
4160S 
4106 
4107 
6208 
4109 
4110 
4112 

4112 
81173 
4114 
4115 
2136 
4117 
4116 
4139 
4120 
4t21 

@i22] 
4123 
4126 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 


82 


SGURCE STATEMERT 


eee os cee 


PART NOo 
Pace 


‘§ 


4247607 


37a 


SSESSSSESSSSRE SHS ATTHS ARES ORESSHAESS FHS O46 OKKES ESSE STS SRE KES EERSTE EVERE 


s 


SHS SSTESTEH HVS SS SS TESESSSSSSTSOHSK SASS KES SOAS TEAAKEAKSELSES SAKE SEKNS SHEETS 


> 
* 
= 
AMCFLK st 
* 
TBN 
JF 
‘ . 
st 
st 
x 
¥vC 
¢ 
cic 
JNE 
= 
cic 
JE 
*s 
ANOPLD cic 
BE 
2 
8 
oc 
oc 
oc 
oc 
2 
Ss J 
cc 
C39 te 
= 
2 
oc 
pc 
o<¢ 
oc 
= 
AMOPGO 8 
s 
AawOPsS2 La 
A¥OPSI La 
ANOPX 8 


LINKAGE TO AMOP (SECTION CI93) 


AMNOPX4+Se ARR 


SEYTE Se SSweFr 
AMOPX 


AMOPS143-.XR2 
AMCPS243 eXR2 


SVPFC (25 34 COM—4 


AMOPID(2)2C19 
AMOPLO 


AMGP 41€232C2S9 
AMOPGO 


UTABC1ePIO—3 
awagPs2 


PRINT 
ML 1* 465 


AL 1¢(MSGOSN-8SG03+41 ) 


AL? (MSGOSN} 
AL2CHL 700) 


Laad 
XL i ¢ga* 
XL2*OCRo* 


PRINT 

XLI age 

AL12¢ BMSGOGN@ MSG 04+1) 
AL2(NSGO4N) 
AL2CHLTOO} 


AMgPe2 
B—#,_ XR2 


B—s oXRiI 
vs 


SAVE RETURN POINTER 


RETURN TO CALLENG ROUTINE IF 
SS# *2F* NOT ON 


SALE 
SAVE 


INDEX REG 1 
INDEX REG 2 
SAVE SECTION PREFACE 


GO TO ~GAD SECTION C19 
IF NOT ALREADY IN CORE 


GG TO EXECUTE C19 
TF ALREADY IN CORE 


RETURN TO CALLING ROUTINE 
¥F 3346 IS IPL DEVICE 


PRINT = 
*LOADING SECTION C19* 


LCAD SECTION C19 


PRINT - 
*SECTION C29 READV® 


GO TO amoP 
RELOAD XR2 
RELOAD XR1 
RE TURN 


PROG {0 
PAGE 


* 
* 
x 


cis-3 
37a 








~ 





1BM MAINTENANCE DIAGNOSTIC PROGRAM PARTY NO. 4247607 1@M MAINTENANCE OTAGNOSTIC PROGRAM PaPT NO. @207607 


PAGE 38 PaGE 38a 
€1S1 3340 ATTACHMENT TESTS - MOD 12 cist 2340 ATTACHMENT TESTS ~ MOD i2 


ERE ERE (OB IEey SUPe ADER SENT SEUECE, STATEMENT 7 "ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


cod 
4136 BEEBKSEKEREKEKAHSEEKHKEEKASESCAEKSSKEKECKESAFSHREASKKES SEATKKKERERKSESSRSESRESESKREASSE «| 


QL ST RRRREARAEEEEEK EERE ESSN EESESEERESS EBSSAHSEERS ERA ERELSATESSELSSSSE SAREE 
4137 





~ =; 4158 * * 
4156 * *BGNINT® 3340 INTERRUPT SUBROUT ENE * 4359 * SVP INTERFACE CONTROL SUBROUTINES * 
4139 * le SENSE STATUS TO LOC *SNSBYT® * * 4160 * = 
4140 © 2e RESET/DISABLE CIGNORE) OTHER INTERRUPTS * C161 EES RE RHEE SESER EEE ERRESEER EEE SE CRA HEREEEE SEERA EER SEES SAE RSERERTS 
4141 * Bis ace . " 
BL GD BRARARAARERREREK EE HERE R AER KE ARAERREEE SERA RERRERERRE LE KEERREEREE ESTER ts * LOAD FBE REGISTER VIA FEO 
2143 * 4164 * 
: EOGe ee OS (eBes 4144 BGNINT = ST INTRTN43 2 ARR SAVE THE RETURN ADDRESS 2868 34 08 2869 4165 LFBI ST LFBIX43 ARR SAVE RETURN ADORESS 
2BaC 34 04 2867 4145 ST BASPSR»PSR ~ SAVE BASE LVL PSR 4166 * 
Soe se ere 4166 SNS SNSBYT ex*C5* SENSE ADAPTER STATUS BYTES 2B6C 0C 00 33FC 33F0 4167 UVC - FROCEXT (1) 6 FBI4EXT MOVE FBI FIELD TO FBO 
eon ae ON ieeee nee t BASPSR»PSR RESTORE BASE LVL PSR 2872 3C 14 33F3 4168 MVI | -FYGtEXTeX*14° SETUP FTG FOR DIAG PATH 
4a * ; 2169 * 
2B58 F3 C4 62 4149 sto X*O2* eX*C4e RESET *ENABLE INTERRUPTS® 2876 CO 87 2BBA 4170 B LFaC LOAD FBO REG 
chee Gosek Fe 4150 SIG =—- K*7C*ex# Cae RESET PENDING INTERRUPTS 267A CO 87 2BAA Q171 8 LETG LOAD FTG REG 
4151 * “, 4172 * 
285E CO 87 0000 4152 INTRTN 8B +-* RETURN TC THECALLING RTN 2B7E 3C 02 33E5 4173 MVI  -_EXTARS FBI SETUP FBI ADDRESS 
2862 CO 87 2B48 4153 B SGNINT LOOP TO HANDLE NEXT INTERRUPT es 4174 2 
Sts * 2882 CO 87 2C6A A175 8 LEXT LOAD EXTERNAL REGISTER 
2R66 2B67 4155 @ASPSR DS xL2 SAVE BASE LVL PSR 4176 * 
oa 2 2886 €O 87 0000 4177 LEBIX 8 ee RETURN TO CALLING RCUTINE 
\ e178 * 
BLTQ Bane nen nn oe nn nnn ene en rn en een en en erm nmn newman 
rc 4180 + LOAD FBO REGISTER 
‘ 4181 * 
2BBA 34 08 2899 4.62 LFBO ST LFBOX+3 eARR : SAVE RETURN ADORESS 
4183 * 
288E 3C OF 335 4184 MVI - EXTAR» FEO SETUP EXTERNAL REG ADDRESS 
; 4185 * 
rc 2692 CO 87 2C6A 4186 8 LEXT GO TO EXECUTE CONTROL STRING 
A 4167 * : 
2896 CO 87 0000 4168 LFBOX 8 *—* RETURN TO CALLING ROUTINE 
C 4189 *« 
She iuies REGED i A 8190 #-- non ne ne ne + ne ee ene nn nn nr en rr en eee nne creme 
' “| 4191 % LOAD FTO REGISTER 
tyes 4192 * 
S. 2BOA 34 08 2BA9 4193 LFTO ST LFTOX+3 eARR SAVE RETURN ADDRESS 
4194 * 
(7, 2B9E 3C 06 33E5 4195 MMVI - EXTARSFTO _ SETUP EXTERNAL REG ADDRESS 
: 3 4196 + 
28A2 CO 87 2C6A 4197 5 LEXT LOAD EXTERNAL REGISTER 
: \ > 8Ba6 CO 87 0000 4199 LFTOX 8 e-* RETURN TO CALLING ROUTINE * 
| CS 4201 * LOAO FTG REGISTER 
{ee 4202 * . 
26AA 34 08 2889 4203 LFTG st LETGX+3 ARR SAVE RETURN ADORESS 
oO 4204 * 
i \- 2BAE 3€ OS 33E5 4205 MVI - EXTARS FTG SETUP EXTERNAL REG ADDRESS 
1 4206 * 
|. 2682 Co 87 2C6A 4207 8 LEXT LOAD EXTERNAL REGISTER 
1 Ne 4208 * 
2886 CoO B87 0000 4209 LFTGX 8 <8 RETURN TO CALLING ROUTINE 
; C: . 8210 * , 
jp he B2QY) Banana nn enn en ne ne ren nnn ern er rere oe 
. a212 % LOAD FTR REGISTER 
of 4213 * +: oe 
i *. 288A 38 08 28¢c9 4214 LFTR st LF TRX+3 eARR SAVE RETURN ADORESS 
' : 4215 * : 
fc. 2BBE 3¢ OD 33€5 4216 MVI - EXTARSFTR SETUP EXTERNAL PEG ADDRESS 
i Ree a217 * 
28C2 CO 87 2CEA 218 B LEXT LOAD EXTERNAL REGISTER 
a 4219 * 
\. 2 BC6 CO BF 9000 4220 LFTRX B —% RETURN TO CALLING ROUTINE 
ios 4221 * 
: C: B222 teem ne oo en ne on ne enn re ee nen eee eeen 
od a223 * LGAD SCN REGISTER 
. 4224 « 
€ | . 
ee Gu eapeene Oacveee? 2% PROG 10 C1S-1: pATE =: 15AUG7S_ ss“ OSNOV7S PROG ID c15-1 
: = PAGE 36 |. EC NO. €27785 827627 PAGE 388 


oo ° 


z 
{ 


REET GMa rete Bn ee bala ba a 


i 
i 
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TOM MAINTENANCE OLAGNGSTIC PROGRAM 


cis. 3340 ATTACHMENT TESTS - “OD 


ERR LAC CBYECT COE ADOR STMT 


28CA 34 O08 2809 4225 
4226 
4227 
6228 
4229 
4230 
4231 
4232 
4233 
8234 
4235 
4236 
4237 
4238 
4239 
4240 
S241 
&242 
4243 
4246 
4245 
8246 
4247 
4248 
4249 
4250 
425i 
&2S2 
4263 
£254 
4255 
4256 
4257 
4258 
8259 
42690 
4261 
4262 
4263 
&264 
4265 

x a266 
4267 
4268 
4269 
4270 
a272 
a2te2 
4273 
4274 
4275 
a276 
4277 
4278 
4279 
4280 
4283 
4282 
“263 
4284 
4a2es 
4286 
4287 
4288 
4289 
4290 
4291 
4292 


2BCE 3C OF 33ES 


2802 CO 87 2C6A 


2606 co 87 0000 


34 08 2BES 


3c iF 335 


co 8? 2C6A 


co 87 0000 


2B8EA 34 08 28BF9 


2BEE 3C 17 33ES 


2PF2 CO B7 2CbA 


2BF6 CO BF 0000 


2BFA 38 08 2C09 


26FeE 13° 33€5 


2c02 87 2C6A 


2co6 87 9000 


2cOa 34 O8 2C19 


2c oe 03 33ES 


aci2 CoO 87 2C6A 


2€36 CO 87 00060 


2C1A 346 O08 «C29 


2cie 33€S 


2ec22 CO 87 2CéA 


2c26 co &7 0000 


2C2a 34 08 2C39 


Oate 
EC NOe 


1SAUGTS 
e277Kes 


CSNOVTS 
e27e27 


@. 


| 
| 


8247607 
39 


PART NOs 
PAGE 


12 


SQURCE STATEMENT 





LSCN ST  _ LSCNX4+3eARR SAVE RETURN ADDRESS 
° w¥E = EXT ARSSCN SETUP EXTERNAL REG ADDRESS 
: 8 LEXT LOAD EXTERNAL REGISTER 
Lscmx os wo RETURN TO CALLING ROUT INE 
aaa ats Se a ee eet ae 
* LOAD SBO REGISTER 
Lseo ST LSBOX+3.ARR SAVE RETURN ADDRESS 
° MVI «EXT ARsS60 SETUP EXTERNAL REG ADDRESS 
F 8 LExT LGAD EXTERNAL REGISTER 
isso *-+ RETURN TO CALLING ROUT INE 
Bes Senate ee ee a ee aed eager ae te 
* LOAP SB1 REGISTER 
tse. ST  _LSBIX+32ARR SAVE RETURN ADDRESS 
: WVI -EXTAR.S681 SETUP EXTERNAL REG ADDRESS 
* 8 LEXT LOAD EXTERNAL REGISTER 
ieee. OE e—* RETURN TO CALLING ROUTINE 
eet fe See esha i ee a Ss AN ee eae eee Ns ei Se 
* LOAD DXC REGISTER 
Loxe ST LOXCX+3eARR SAVE RETURN ADDRESS 
° MVE EXTARSOXC “SETUP EXTERNAL REG ADORESS ; 
: 8 LEXT LOAD EXTERNAL REGISTER 
Loxex 8 os RETURN TO CALLING ROUTINE 
* i 
CS LO SO LOY OY OTE ELS ELE LEE LY OY ES OLS OE 
* LOAD DST REGISTER 
Lpet ST LOST X43-ARR SAVE RETURN ADDRESS i 
; WVI —- EXTARSDST SETUP EXTERNAL REG ADDRESS | 
. 8 LEXT LOAD EXTERNAL REGISTER \ 
costx. - +-* RETURN TO CALLING ROUTINE | 
BS AN i a atc in tc 
* LOAD CCL REGISTER 
ceee ST  LCCLX+3.ARR SAVE RETURN ADDRESS 
7 wVI | -EXTAR.CCL SETUP EXTERNAL REG ADDRESS 
. 8 Lext. LOAD EXTERNAL REGISTER 
uecux 8 2 RETURN TO CALLING ROUTINE 
Siac ae ee 
* LOAD CCH REGISTER 
Leen ST  L§CCHX*3.ARR SAVE RETURN ADORESS | 
2 

PROG 10 Cis 

PAGE 39 


e©02e0ee00808008089 0 


TEM MAINTENANCE OYAGNOSTIC PROGRAM 


c2ss 


a ‘ 


eo 


Aan 


of 


ere ice 
2c 2E 
2c32 


2c36 


2C3Aa 
2c3e 
2c4é2 


2ca6E 


2Ceoa 
2csae 
2cs2 


2C56 


2csa 
2cse 
2c 62 


2c6és6 


2c6a 
2c 6& 


ecr2 


2C76 
2c 7a 


2crve 


2cs2 
2c86 


aces. 


2cea 
2ceac 
2cseE 
2c90 
2S2 
2c94 


2c96 
2coA 


OATE 


€c woe 


Or 


0° 


oBsect COCE 


3c 


co 


co 


346 


co 


cq 


3c 


co 


co 


34 


co 


co 


34 
34 


co 


c2 
36 


348 


co 


03 


87 


BT 


os 


16 


87 


687 


os 


o7 


a7 


87 


08 


19 


a7 


a7 


os 
02 


87 


oO 
o1 


Qt 


87 


a0C2 
3S6e 
oocs 


o2sF 
o28e0 
OoE2 
3S6E 


33ES 


2C6A 


6000 


2ca9 


33ES 


2C6a 


0000 


2cs9 


33€5 


2CéA 


oo0G 


2c69 


33ES 


2C6A 


o0o00 


2ce9o 
2c99 


30cé 


33€€E 
33ES 


2c8D 


3289 


c2 o: G0G0 
co s7v ac00 


LSAauGcTsS 
e277e85 


aodor 


2caT 
2c es 
2ecss 
2cs8o 
2c eF 
2cgol 
2c93 
2css 


OSNOVTS 
827627 


2240 ATTACHMENT TESTS ~ 0D 


STMT 


8293 
4294 
4295 
4296 
a297 
4298 
4299 
4300 
4301 

a302 
4303 
4304 
£305 
4306 
4307 
4308 
4309 
a310 
4311 

4312 
4313 
4314 
43:5 
4336 
4317 
4318 
4319 
4320 
4321 

4322 

4323 
4324 
8325S 
4326 
4327 
4328 
4349 
4330 
4331 
4332 
4333 
8334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 

4342 
4343 
&384 
&385 
4346 
4347 
4348 
42349 
4350 
4351 
4352 
4353 
4354 
42355 
4356 
a3S7 
438 
a359 
4360 


%2 


Part? Neo 
Pace 


#287607 
3gGa 


SOURCE STATEMENT 


Be ee ee re ee ee wee 


Rew eno ewe mew ee we eee we eee 


Yor om ee ne oe ee ee we ae ee ew ee en ee oem 


Mvz 
* 
5 
x 
LCCHX 8 
*x 
* 
LFCT st 
* 
MYvt 
* 
8 
* 
LFCTX 8 
= 
Fo 
s 
LFHF st 
x 
“vi 
+ 
8 
* 
LEHFX 8 
* 
® 
= 
Leco st¥ 
* 
mVI 
* 
8 
s 
,BC00x 6 
s 
Pree ee ene ee ee eee ee 
s 
= 
LEXT st 
st 
*s 
6 
= 
wa 
Aa 
s 
st 
* 
8 
oc 
oc 
oc 
LEX¥O1 os 
oc 
oc 
oc 
oc 
= 
LEXTRY La 
LEXTX B 
* 


De oe re oe en ae oe er ee een orem ener ewes: 


= 
* 


EXTAR.»CCH SETUP EXTERNAL REG ADDRESS 
LeExT LOAD EXTERNAL REGISTER 
t— * 


RETURN TO CALLING ROUTINE 





he ee ae tn ee ee re ee: 





Le LS AP EAS A EP AEE SE A ROC OP EP DY EDR ED A A A I SO. 


LOAD FCT AND TRAP COUNTER REGISTERS 


LEC TX+3eARR SAVE RETURN ADORESS 

EXTAR FCT SETUP EXTERNAL REG ADDRESS 
LEXT LOAD EXTERNAL REGISTER 

—* 


RETURN TO CALLING ROUTINE 





Oe A SE ERD A EY EAD ED AE BO EEN NE RS LP AP SA SED APTS EGS ON SR Se ARP GE 


LOAD FHF REGISTER 


LFHF x¢3eARR SAVE RETURN ACDRESS 

EXTAR FHF SETUP EXTERNAL REG ADDRESS 
CEXT LOAD EXTER RAL REGISTER 

rome 


RETURN TO CALLING ROUTINE 





SOT AEE A A ER A A SEN A A RE EY SS PRISE <A AND OED a. 


LOAD BOO REGISTER 


LEGOX+3eARA SAVE RETURN ADDRESS 
CXTAR»EAG SETUP EXTERNAL REG ADDRESS 
CEXT LOAD EXTERNAL REGISTER 

Bean 


RETURN TO CALLING ROUTINE 





EME AOD FRET CL EE ED DEED OP MEE OY 





A On ED ET AED Che EER 





eae RS 


LOAD ANY EXTERNAL REGISTER ~ 


LEXTX43eARR SAVE RETURN ADDRESS 

LEX TX243eXR1 SAVE INOEX REGISTER 1 
LEXTAR LOAD EXTERNAL ADDRESS REGS 
EXTeXR1i LOCATE VALUE TO SE 

EXTARS KAI LOADED INTO EXTERNAL REG 
LEXTOIe RI MOVE DATA ADDR TO S¥P STRENG 
sve EXECUTE SVP CONTROL STRING 
XL2*a0C2* SET K2 - SERVICE MODE 

AL2 (KREG? 
xL2*00CB" EXT REG DATA ==> OP REG ¥ 
aL2 

xL2*0s8F° OP REG Y <--> A REE --> DREG 
xL2°028D° D REG --> EXTERNAL REG 
XL2*O00E2* RESET SERVICE MODE 
ALZCKREG) 

t= oXRI RESTORE INDEX REGISTER 1 

to = 


RETURN TG CALLING ROUTINE 





Oe em ae 


LCAD DATA LOCAL STORAGE 





> ee Ee eee em eee. 





eS OE A a A EO OH 


PROG 10 
PAGE 


ciS—-1 
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18M MAINTENANCE OTAGNOST IC PROGRAM 


cist 
ERR LOC 


2cse 
2Ca2 


2c as 


2CAA 
acae 


ns 2cB2 


2cs6 
2CBA 
2cec 
2cee 
2cco 
2cc2 
2cc4 
2ccs6 
2ccs 
ecca 
2ccc 
2cce 


2cd0 
2c046 


2ecos 
2COE 
2cee 


2ces 
acec 


. 2CFO 
. 2cr4 


2crse 


2crc 
2609 
2004 


2008 
200C 
200E 
26010 
2012 
20146 
2D16 
2028 
201A 
2013C 
201€ 
2020 
2022 


20 24 
2028 


20 2c 
2032 
2038 


203c 
2D40 


DATE 
Ec NO. 


3340 ATTACHMENT TESTS ~- m0D 


OBJECT CODE ADCR 

34 08 2CEF 

34 01 2CEB 

co 87 3265 

C2 01 34€e 

36 01 33€B 

24 01 2ccs 

CO 87 3289 

aoce 2c8B 

356E 2cBo 

OOCcA 2CBF 

33€8 2cc) 

ooce 2cc3 
2ccs 

osc 2cc? 

o28F 2cc9 

0160 2ccB 

00E2 2ccD 

356E 2cce 

3D 02 330F 

Co 0¢ 2CEs 

oF 00 33DF 3384 

OE 00 33E8 3384 

CO 87 2CAA 

c2 01 0000 

co 87 0000 

34 08 2003 

34 01 203F 

co 87 3265 

c2 01 352E 

36 01 33€8 

34 01 201F 

co 87 3289 

ABC2 2D0D 

356€ 2D0F 

OOcA 2011 

33€8 2012 

ooec 2015 

oser 2017 

038F 2019 

008s 2013 

004D 2D10 

0000 201F 

ooE2 2net 

356€ 2022 

3D 01 33DF 

CO 04 203C 

OF 00 330F 3384 

OE 00 33E8 3304 

ce 87 2cFC 

c2 01 o900 

co 87 0000 

1SAUG7S GSNOV7TS 

e27765 827827 


stmt 


4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4365 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
&377 
43768 
a379 
&380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
43a9 
4390 
4391 
4@392 
4393 
4394 
4a39S 
a396 
a397 
4398 
4399 
4409 
4401 
4402 
44903 
4404 
4405 
44068 
4207 
4468 
4409 
4410 
4411 
44i2 
4a13 
4414 
44i5 
4416 
42017 
4418 


4a19 


4a20 
4421 
4422 
4423 
£424 
#425 
4826 
4427 
4428 


12 


SOURCE STATEMENT 


LOLS st 
st 


oc 
oc 
oc 
oc 
oc 
LoLsoe2 os 
oc 
oc 
oc 
oc 
oc 


cul 
BNH 


sic 
ALC 
8 

* 


LOLSX1 LA 


LDOLSX 8 
* 
* 
* 
soL_s st 
st 
= 
8 
* 


sbL.s01 ta 
a 
st 


8 
oc 
oc 
oc 
oc 
oc 
ac 
oe 
oc 
oc 

SDLSO2 oc 
oc 
oc 


cur 
BMH 


sic 
ALC 


SOL SKI LA 
SDLSX 8 


LOL SX+#3eARR 
LOL SKX143eXRi 


HroP 


DLS XR 
DLSARe RRS 


LDLSO2 eXRi 


sve 
XL2°aoce2* 
AL 2 (KREG?) 
XL2*OOCcas 
AL2COLSAR) 
xL2*00CcB* 
AL2 
xL2*oosc® 
XL2*O028F* 
xL2°*0?8D* 
xL2°*O0G£2* 
AL2C( KREG) 


LENGTHel 
LoL Sxi 


LCENGTH(1 2612 
OLSARC1).11 
LOLSol 


%~—*K— XL1 
xot 


SENSE DATA LOCAL STORAGE 


SDLSXK43¢ ARR 
SOL $X1$3eXR1 


HIOP 


OLSINsXR1 
DLSAReXR1 
SOLSO2eXR1 


svpP 
xL2*a8SC2* 
AL2 (KREG) 
XL2*O0CAS 
AL2 (OLS AR) 
xt 2° 008Cc*® 
XL2°OSser* 
XL2*O38F ° 
xi 2°0085* 
XL2*00480! 
AL 2¢%-4%) 
xXL2* OOE2* 
AL2 (KREG) 


LENGTHe? 
SDLSX1 


LENGTHE 1 Dott 
OLSARTLD oFi 
sua soi 


t—-Be FRI 
km? 





deinen: eaters ert 


PART NOs 4247607 
PAGE ac 


SAVE RETURN AODRESS 
SAVE UNDEX REGISTER 2 


HALT MICROPROCESSOR 


LOCATE VALUE TO SE 
LOADED INTO OLS 


MOVE CATA ADDR TO SYP STRING 


EXECUTE SVP CONTROL STRING 

SET K2 - SERVICE MODE AND KO 
cK STOP OF RIDE 

DLS ADDR --> OP REG CR 


DLS DATA --> GP REG Y 


R2-R7 ~-> DLSAR 

OP REG Y --> A REG -~> DREG 
D REG --> DLS 

RESET SERVICE MODE 


EXIT IF ALL NECESSARY ; 
LOCATIONS HAVE BEEN LOADED i 

DECREMENT CATA LENGTH BYTE 

INCREMENT ADDRESS POINTER 

GO TG LOAD NEXT LOCATION 


RESTORE INDEX REGISTER 1 
RETURN TO CALLING ROUTINE 


SAVE RETURN ADDRESS 
SAVE INDEX REGISTER 1 


HALT MICROPROCESSOR : 


LOCATE ADDRESS TO SE 
LOADED FROM OLS 
MOVE DATA ADDR TO SVP STRING ' 


EXECUTE SVP CONTROL STRING 
SEY K2 - SERVICE MODE. KO - cK | 
STP OFRIDE & K4 — STOP roe 
DLS ADDR <--> OP REG CR ' 


R2 - RTF -> DLSAR 
OLS <-> A~REG 
A-REG <-> D-REG 
D-REG ~> K-REG 
READ X-REG ' 
INTO OLS AREA 
RESET SERVICE MODE 


EXIT IF ALL NECESSARY 
LOCATIONS HAVE BEEN LOADED 


DECREMENT DATA LENGTH BYTE ' 
INCREMENT ADDRESS POINTER 
GO TO LOAD NEXT LOCATION 


RESTORE INDEX REGISTER 1 ! 
RETURN TO CALLING ROUTINE i 
1 


PROG ID c15-10 
PAGE 40 


Cc 


ERR LOC OBJECT CODE 


cr 


™, 


en 


eC 


th 
ney’ 


iy 


» 


% 


18” MAINTENANCE DIAGNOSTIC PROGRAM 


c1s1 


2044 
2048 


2D4Cc 
2050 
2054 


2ps8 
2D0sc 
2062 


2067 
2066 


206F 
2073 


2077 
2070 
2083 
2086 


206A 
206E 


2092 
2096 


_ 209A 
2D09E 
2Da2 
2DA6 


2Da9s 
20a0 


2061 
2085 
2089 
2DBE 
20c2 
2o0cs 


20c8 
20cc 


2000 
2004 
2008 
200c 


DATE 
ec NOe 


34 
34 


c2 
36 
3A 


3c 
oc 
ic 


co 
co 


30 
co 


OE 
o2 
co 


c2 
co 


34 


3c 
3c 
c2 
F2 


34 
34 


3A 
35 
ic 
3A 
d2 
F2 


34 
34 


c2 
Fe 


08 
ot 


ot 
o1 


o3 
00 
oo 


87 
67 


01 
04 


oo 
co 
01 
87 


o% 
87 


es 
o1 


20 
80 
0% 
87 


os 
01 


01 
oo 
80 
01 
87 


20 
aod 
ou 
87 


2091 
?D 8D 


34 AE 
33E9 
33ES 


356F 
2570 
3571 


3173 
3197 


330F 
208A 


33D0F 
B3E9 
03 

2058 


e000 
0000 


2E€63 
2ESF 


330F 
337 
342E 
s2 


2E63 
2& SF 


33CE 
2E 63 
33E7 
33E7 
oi 
33 


2E63 
2€ SF 


330F 
33E7 
346E 
1c 


1SAaUGTS 
e27785 


B3E9 
oo 


3384 
3384 


oo 


3340 ATTACHMENT TESTS - "OD 


ADCR STMT 


429 
8430 
4431 
4432 
4433 
4434 
4435 
4636 
4437 
£438 
£439 
6460 
4441 
4842 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
£451 
4452 
4453 
6454 
4455 
4456 
a457 
4458 
4as9 
4460 
4461 
4662 
4463 
2460 
4465 
4466 
2467 
4458 
4469 
4670 
4471 
4472 
2473 
a474 
aa7s 
44876 
aa77 
4478 
4479 
4480 
aasi 
4482 
4483 
6464 
49e5 
4486 
6497 
4488 
6a89 
4490 
8991 
4a92 
&493 
4494 
4495 
4496 


OSNOv7S 
e27827 


212 


SOURCE STATEMENT 


PART NOs 
PAGE 


4287607 
GOA 


* 
kon weer eee ee ee ae ee OS OS SEO OS ee Oe we OE OO ee SD De OO 
* LOAD ZONE LOCAL STORAGE 
% 
LZ2_s st tL ZL SX+#3eARR SAVE RETURN ADDRESS 
ST L2L.SKX143 XR? SAVE INDEX REGISTER 1 
* 
LA ZLSeXR1 LOCATE VALUE TO BE 
A ZLSAR KRY LOADED INTO 2S 
SBN ZL SAR oX*B0® SETUP INSTRe REQUIREMENT 
* 
uiZ_sol mvt Ceox*O35* BUILD 
svc CRe ZLSARC1) S$Z1% (STORE 2LS UMMEDIATE} 
wVC ¥ 20021 0XR1) INSTRUCTION 
= 
8 Lop LOAD OP REG 
B xcPp EXECUTE MICROINSTRUCTION 
* 
cut LENGTHe i EXIT IF ALL NECESSARY 
6BNH L2tLSxl LOCATIONS HAVE BEEN LUADED 
= 
sic LENGTHS Do Ik DECREMENT DATA LENGTH BYTE 
aALtc ZLSARC1I e TI INCREMENT ADDRESS POINTER 
LA 1€e XR1e XR1 BUMP DATA POINTER 
8 L2ZLSot GO TO LOAD NEXT LOCATION 
* 
LZLSX1 LA eek, XR1 RESTORE INDEX REGISTER i 
LZe_sx 8 +--+ RETURN TO CALL ING ROUT INE 
* 
(csitL eeewiaeecesbaeeaeasSee eer eser Serer ore wwe oe ee ee ewe 
* LOAD ADDRESS LOCAL STORE C(CALSB) 
* 
* ENTER HERE TO SETUP ALL 22 ALSB LOCATIONS 
CALSBi st LAL SX#3eARR SAVE RETURN ADDRESS 
ST LAL SKI+3eXR1I SAVE INDEX REGISTER 1! 
= 
MVE LENG THe 32 SET MAX LENGTH 
uvI ALS AR»X*80* INT¥F ALS LOCATION co 
tA ALSBeXR1 SET POINTER TO ALSB DATA 
J LAL Sol GO TO LOAD ALS 
* 
* ENTER HERE TO SETUP SOME NUMBER OF ALSS LOCATIONS €*LENGTH® ) 
= MUST BE INITIALIZED PRIOR TO ENTRY» DEFAULT IS ONE L1oce 
* 
Lal. ss st LAL SX4#3 0ARR SAVE RETURN ADDRESS 
st LALSX143eXR1 SAVE INDEX REG 1 
* 
SBN IND sSWA SET *BLOCK* SWITCH 
i © ALSX43 eXRI POINT TO PARMS 
Lat. $82 ave ALSAR 0 Of 12KR13 MOVE ALS ADDRESS 
SBN ALS AReX*8O6* SETUP SABI INSTRUCTION 
La $C oXR1) oXRI POINT TO ALS DATA 
J LALSOI CONTINUE 
= 
how ww wo we ee eee ee OO Oe Oe Ne er we wo ne we nN 
* LOAD ADDRESS LOCAL STORE «ALSD) 
= 
* ENTER HERE TO SETUP ALL 32 ALSD LOCATIONS 
LALSDI st LALSX43.eARR SAVE RETURN ADDRESS 
st LALSKX143eXR1 SAVE INDEX REGISTER 1 
= 
MMVI LENGTH. 32 SET MAX LENGTH 
“avi ALSAR»X*A0® INITIALIZE ALS LOCATION oo 
LA AL SDeXRI SET POINTER TO ALSD DATA 
3 LAL SO1 CGNT INVE 
£ 
* ENTER HERE TO SETUP SOME NUMBER CF AL SD LOCATIONS 
+ 


PROG 1D c1$<1 
PAGE SOA 


7 








IBM MAINTENANCE DIAGNOSTIC PROGRAM 


csi 


FRR LOC OBJECT CODE 


200F 
2d0E3 


20E7 
2D€8 
20EF 
2DF 4é 
20F8 


20F8 
20FF 
2—€05 


2E0A 
2 OE 
2€12 


2E16 
2ETA 


2E1E 
2€21 


2€25 
2€29 


2€20 
2E33 
2E39 
2€3c 
2& 40 


2€44 
2E48 
2E4c 


2E€50 
2E54 
2& S86 
2Esc 
2E60 


2E64 
2E 68 


2E6C 
2E70 


ze 73 
2e77 


2€°8 


2€7F 
263 
2€88 
2€ 86 


2E6F 
2&93 
297 
2E99 
2—€98 
2€9D 
2E OF 


DATE 
EC NOs 


3340 ATTACHMENT TESTS ~ OD 


34 
34 


SA 
35 
ic 
3A 
o2 


3c 
oc 
ac 


3A 
co 
co 


39 
co 


02 
34 


3D 
co 


oF 
oe 
02 
39 
co 


38 
co 
co 


368 
3c 
38 
ce 
co 


34 
34 


3¢ 
F2 


34 
24 


3c 


35 
ic 
02 
34 


co 
co 


os 
o1 


G2 
Gt 
08 
AG 
01 


02 
00 
06 


80 
87 
87 


06 
10 


O% 
01 


o1 
06 


00 
oo 
o1 
06 
10 


04 
10 
67 


80 
o1 
06 
01 


87 


os 
01 


o€ 
87 


oe 
01 


OA 


o1 
00 
01 
o2 


87 
a7 


Bec2 
356E 
O00E 
o0£2 
356E 


15 auG7s 
e27765 


263 
2E SF 


33CcE 
2E63 
33E7 
3S3E7 
oi 


356F 
3576 
357i 


356€ 
3173 
3197 


33CE 
2€2s 


oi 
2€63 


330F 
2E50 


330F 
33€7 
01 

33CE 
20F8 


33CE 
2089 
2d€F 


356E 
330F 
33CE 
0000 
0000 


2Ea8 
2EA4& 


2E9C 
2Eas6 
2Eas 
2E9c 
2Ea8 
3570 
01 

2Ea8 


3173 
3289 


oo 


33€7 
00 


3384 
3384 


oo 


ADOR 


2€98 
ZEGA 
2es¢ 
2ESE 
2EAaO 


' OSNOV7S 
827627 


STMT 


4497 
4498 
4499 
4506 
650% 
4502 
850603 
£5048 
4565 
@S506 
4507 
4508 
45609 
4510 
a513 
a512 
4513 
S14 
4515 
4516 
4517 
4516 
8519 
4529 
“S21 
4222 
4523 
a524 
aS25 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4523 
4534 
4535 
4536 
4537 
4536 
4539 
4540 
e541 
4542 
4543 
4544 
asas 
4546 
a547 
4548 
4549 
4550 
4551 
2562 
ass3 
4554 
4s5s5 
45565 
a557 
4658 
4559 
456060 
4561 
4562 
4563 
4564 
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SOURCE STATEMENT 


LALSO st & AL SXG3e ARR 
st LAL SAE $3 eXRE 
e 
SEN §ND-S#B 
& LALSX*¢SeXRI 
LALSO2 MvCc ALSARs OC 1eXR1iE 
SBN ALSARSX* ACP 
LA 2€eXRID OoXRE 


* 


LALSO! eve Cex! G2 


. 


PART NOeo 4247607 
PAGE 41 


SAVE RETURN ADORESS 
SAVE INDEX REG 1 


SET *DISsP* SWITCH 
POINT TO PARMS 

MOVE ALS ADDRESS 

SETUP SADT INSTRUCTION 
POINT TQ ALS DATA 


COMPLETE THE 


MVC = CRe ALSARC 2D SABI ¢ SADIE 
#VC = Ve (2 eXRID INSTRUCT ION 
= 
SON KREG x*80* 7ENHIBIT CK STOP® DURING LOAD 
8 Lop LOAD THE OP REG ANO 
8 xOP EXECUTE THE MICRO- INSTRUCTION 
s 
TAF INOeSwsesuB ARE wE IN "ALL ® LOCATION MODE? 
ey LALSO2 BR IF YES 
= 
LA 3 €oXRIP eXRI ELSE ADVANCE PARM POINTER 
st LALSX# 30 XS 1S RETURN ADDRESS 
2 
LALSOZ CLE LENGTHe! EXIT YF ALL NECESSARY 
BNH LALSX2 LOCATIONS HAVE BEEN LOADED 
s 
SLC LENGTH( 1 Dod 1 DECREMENT DATA BYTE CCUNT 
ALC ALSAR(2D0S2 ADVANCE ALS ADDRESS 
tA 1€ oXR1) oXRI ADVANCE DATA POINTER 
TBF IND. SWA+SWB ARE wE IN *ALL® LOCATION MODE 
8T LaLsoi BR IF YES 
e 
TAN IND.SWA ELSE ARE wE IN *BLOCK® MODE? 
BT LALSe2 BR IF YES 
8 LAL S02 ELSE RETURN TO *OISP*® MOCE 
* 
LALSX2 SBF KREG ex*80° RESET ‘INHIBIT CK STOP ® 
MVE LENGTH? RESTOPE COUNT = ONE 
SBF IND»eSWA+SWB RESET *BLOCK/DISP* MODE SWS 
LALSX? LA #—t oXR1 RESTORE INDEX REGISTER 1 
LALSX 8 t-% RETURN TO CALLING ROUTINE 
e 
Gee wr ee ee re ene ee ee en ee RE OEE OO OO 
* SENSE ALSB OR ALSD INTO LOCATION °IOPIN® 
2 
SALSS st SAL SX+3- ARR SAVE RETURN 
st SALSX14¢3—XR1 SAVE INDEX REG 1 
* 
MVI  RDAL SB. X* OE SETUP "SENSE ALSB®° 
J SALSO1 
s 
SAL SD st SALSX43e ARR 
ST SALSX14¢3oXR1 
2 
MVI  RDALSBeX* OAS "SENSE ALSD® 


SALSOi t SAL SK43eXR1 
wv¥C CRAT1 oXRID 
LA 10 eXR1)eXRI 
st SALSX43eXRi 
* 
8 oP 
8 sSvP 
oc xtL2*B88Cc2¢° 
oc AL2(KREG) 
ROALSB oc XL2Z2* OO0E* 
oc xL2"*O0e2¢ 
o¢ AL2 (KREG) 


seruP 


SETUP PARM POINTER 
MOVE ALS ADDRS INTO STRING 
BUMP RETURN ADDRESS 

ANO PUT INTO RETURN 


GO SETUP *CR® REG 
GO SENSE ALSB GR AL SD 
KOs K2e K3 CALS DISPLAY) 


*OE* = ALSBe 
RESTORE K REG 


*OaA* = atSD 


PROG 1D 
PAGE ais 


TBM MAINTENANCE DEAGNOSTIC PROGRAM 


- C1Si 3346 ATTACHMENT TESTS = MOD 


oy 


ERR LOC CBJECT CODE ADCR STMT 





4565 
2EA1 C2 02 0000 4566 
ee 2EAS CO 87 0C00 “567 
a 4568 
4569 
c 4570 
ZEAQ 34 08 2EE2 4571 
SEAD 34 OL 2EDE 4572 
io 4573 
Ke 2EBi1 35 O01 2EE2 4574 
4575 
e ZEBS 3C 06 356F 4576 
; 2EBS 1C 00 357¢ GO aS77 
2EGE 3C BO 3572 4578 
rm 4579 
Ss 2EC2 CO BF 2373 4580 
ZEC6 CO BF 3197 4581 
fo 4582 
X. 2ECA D2 61 01 4583 
2ECD 7D FF 00 4584 
c 2EDO CoO 01 2685 4585 
\. 4586 
2ED4 02 01 01 2567 
¢ 2ED? 34 O1 2EE2 4588 
x 4839 
2208 c2 03 0000 4590 
‘ 2EOF CO 87 0000 4591 
tee 4592 
4593 
& 4594 
bens a595 
2EE3 34 O08 2F22 6596 
€ 2EE7 34 02 2FIE 4597 
a? 4598 
2EEB 35 01 2F22 4599 
C 2EEF 1€ 01 33ED O1 4600 
: 2EF 4 02 Gi 02 6601 
£602 
C: 2EF7 1C 02 3571 02 4603 
Z 4694 
2EFC CO BF 2F23 4605 
< 4606 
2F00 D2 01 03 4607 
2F03 7D FF 00 2608 
€ 2F06 CO B81 2F14 4609 
‘ 6610 
2FO0A CE 00 23ED 3384 4611 
€ 2F10 CO B87 2EFT 4612 
ass 4613 
2F14 02 O1 O1 4614 
CG 2F17 34 O1 2F22 4615 
4616 
2F1B C2 61 00006 4617 
C: 2FiF Co 87 0000 4618 
ash 4619 
4620 
Q 4621 
= 4622 
2F23 34 06 2F42 4623 
€3 £624 
i 2F27 CO 87 2F a4 4625 
2F28 CO 87 3173 4626 
es ; 4627 
sa? 2F2F CO 87 3289 4628 
2F33 aoc2 2F34 4629 
= 2°35 356€ 2F36 4630 
ae 2F37 AESE 2F38 4631 
2F39 CEBE 2F3A 4632 

DATE 15AUG 75 OSNOV75 

oe NOs 627785 e27e827 


i2 


SOURCE STATEMENT 


* 
SALSXI 
SALSX 


ww rn we ow rn ee a OE 


* 
% 
LMS 


s 


* 
MB IO1 


* 
LMB IX? 
LMBIX 
* 


LA 
8 


ST 
$T 


a 


MYvE 
vy C 
eT 


LA 
cif 
ENE 


La 
ST 


LA 
8 


soko XRI 
oe 


*247607 
41K 


PART NOs 
PAGE 


RESTORE INDEX REG 1 
RETURN 


oe es ED Cw a ele ID ED AD 


LGAD MODE BUFFER CIMMEDIATE = 00} 


LMBIX¢3eARR 
LMUBIXI 43eXR? 


LHBIX¢3eXR1 


CoX*#06! 
CReiilsXRid 
¥ oX*6OF 

Lop 

xoP 

£ CeXRL} oXRI 


OC eXRIBGX*FF ° 
UMBION 


1CeXR13e XRI 
LMBIX4+3S eXRI 


BeBe XRI 
t—-% 


SAVE RETURN ADDRESS 
SAVE INDEX REGISTER 1 


POINT TO PARAMETER LIST 


BUILD 
SMODE 
INSTRUCT TON 


LOAD THE OF REG AND 
EXECUTE THE MICROINSTRUCTION 


ADVANCE PARAMETER PC INTER 
LOOP IF NOT YET ENO OF 
PARAMETER STRING 


BUMP TO RETURN ADDRESS 
ANC SETUP BRANCH INST 


RESTORE INDEX REGISTER 1 
RETURN TO CALLING ROUTINE 


Seachem Sa oes a eh ee oS a ss St ee 


LOAD CONTROL STORAGE CIMMEDIATE) 


* 
* 
ics! 


= 


Lcs 101 
+ 


% 
Lcsi02 


* 
LCSsIxi 

tcsiIx 
* 


Cow em ew ewe Hew ee 


LOAD CONTROL STORAGE 


* 
* 
tcs 
e 


ccse 
LCSR 


st 
st 


Myc 
LA 


MvC 


ta 
cL 


= 
ALC 
8 


La 
st 


LA 
8 


st 


oc 
oc 
oc 
oc 


LCSIX4¢3e¢ ARR 
LCST XI¢3eXR1 


LCSIX43 eXRI 


CSARC2) 610 eo XR1) 


Z2TeXR17 OXR1 


OPREGL3)e 20 eXR1) 


ics 


BCeXRIDSXRE 
OL eXRide K®FF ® 
Lcsio2 


CSARC TITS 
LCSIO8 


2CoXRLDOXRE 
LCSIX43eXRI 


Ts eXRY 
Sok 


LCSX43eARR 


LCSAR 
oe 


sve 

xL2*a0c2* 
AL 2(KREG? 
XL2* AEBE*® 
xi 2 *CE BE 


{> ae ae Am a aD A a eee Hn 


SAVE RETURN ADDRESS 
SAVE INDEX REGISTER 1 


POINT TO PARAMETER STRING 
SETUP CONTROL STG ADDRESS 
ADVANCE POINTER 
MOVE MICROWORD TO OP REG AREA 
LOAD WORD INTO CCNTROL STG 
ADVANCE POINTER 
EXIT IF END 

OF PARAMETER STRING 


ADVANCE CONTROL STG ADORESS 
GO TG LOAD NEXT wORD 


SETUP RETURN 
aDORESS 


RESTORE INDEX REGISTER & 
RETURN TO CALLING ROUTINE 


~~ ee ene ae a MD OD OD Ne YD OK a ADH SAP SY AP AD? EF 


SAVE RETURN ADDRESS 


LGAD CONTROL STG ADDR REG 
LOAD MICROWORD INTO OP REG 


EXECUTE SVP CONTROL STRENG 
SET K2 (SERVICE “ODED AND 
KO (CK STOP OVERRIDE) 
WRITE CONTROL STGRAGE LEFT 
WRITE CONTROL STORAGE RIGHT 


Cis—2 
@1A 


PROG 10 
PAGE 
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1BM MAINTENANCE DIAGNOSTIC PROGRAN PARTY NO> 4247607 PART NOs &247607 
PAGE 42. PAGE 42a 
c1si 3340 ATTACHMENT TESTS =- MOD 12 ¢ C281 3340 ATTACHMENT TESTS - “oD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ; ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
e, 
2F 38 OO0F2 2° 3C 4633 ce¢ xXL2°O00E2* RESET K2 | 3 4701 % 
2F30 356E 2F26 4634 oc AL2(KREG) | 2FRC 3C OA 33ES 4702 Mv T EXTARsFBIOA SETUP EXTERNAL REG ADORESS 
4635 & &: 4703 # 
2F3F CO 87 0000 6626 LCSX e e-% RETURN TO CALLING ROUTINE | Agr 2FCo Co B87 3098 ' 4704 6 SEXT SENSE EXTERNAL REGISTER 
4637 * i 4705 * 
4638 geese cecuseewedsesseme Soe ecace essa set sere eee ese et % 2FC4& co td 00006 4706 SFB I KA 8 oe RETURN TO CALL ING ROUT INE 
4639 SENSE CONTROL STORAGE € 1 LOCATION »y INTO *Cfe*CR® & PV: ©3 4707 *€ 
: 4640 € | 4708 Gee eee e wer nme c eee enn r een re nme eee OO OO OO OO OOO 
. 2F43 34 O68 2F83 4641 SCS st SCSI X4+3e ARR SAVE SETURN ADDRESS ? 2709 * SENSE FBO PEGISTER 
2F 47 324 O1 QF TF 4642 st SCSIXL G7 eXRE SAVE INOEX REG 1 7 é710 * 
4643 4% i 2FC8 34 08 2F07 472i SFBC ST SFAO0X¢3 oe ARR SAVE RETURN ADDRESS 
2eF 4B 35 O1 2F 83 4644 t SCS IX43eXR? POINT TO PARMS €CS ADDRS) aes 4712 2 
2FaF 1C 00 33EC 00 4645 mvc CSAR—1 e002 e XRD MOVE BLOK ADORS C 2Fcc 3C OF 33E€5 &713 wvI t .TAR,FBO SETUP EXTERNAL REG ADDRESS 
2F 54 1¢ OO 33ED O1 4646 MVC CSARC1C1SXKRID MOVE DISP ACDRS 4714 *% 
2FEQ De O1 O02 4647 LA 2C6XRLDCXRI BUMP PAST PARMS c: 2FD0 CO B87 3088 4715 e SEXT SENSE EXTERNAL REGISTER 
2FS5C 34 O2 2F83 4648 st SCSIUX*+3cXRE PUT IN RETURN we &716 & 
2-60 CO 87 2FR4 4649 e ti CSAR LOAD CONTROL STOR ADUORS REG 2FD4 co B87 9000 a?L? SFBOX 8 bm & RETURN TO CALLING ROUTINE 
4650 * go 4718 * 
2F64 CO a7 3289 4651 B svP GET CONTENTS OF cs Se. 4719 picencSeee eeu ead cease nscet eens ase Sess eee Re 
2F 68 AeB2 2°69 4652 pec XL2°asee? KOeK 2eK4 4720 % SENSE FYO REGISTER 
2F6A OESE 2FeEB 4653 oc XLZ*OEBES SERVICE ACCESS CYCLE ~ &721 *# 
2F6C 0048 2F6D 4654 oc xL2¢*00e8° READ *C? € 2F08 34 38 2FET a722 SFTO s¥ SF TOX4 3 ARR SAVE RETURN ADDRESS 
2F6E 356F SF 6F 4655 oc AL2¢C?} 4723 ® 
2F70 OO4A 2F71 4656 oc XL 2° OO@A" READ *CRt C 2FoC 3C 06 33E5 aT2a vvI EXT ARSFTO SETUP EXTERNAL REG ADDRESS 
2F72 3570 2F73 4657 oc AL2C(CR) i's 4725 # 
2F74 0048 2-75 4658 pc +12°0048° READ *y¥*? 2FEQ CO B87 3098 &726 8 SEXT SENSE EXTERNAL REGISTER 
2F76 3571 ZE77 4659 oC AL 2¢¥) r &727 & 
2F 7a COE2 2°79 4660 oc KLZPOCES* RESTORE K REG C. 2FE4 CO 87 C000 4728 SFYOX 8 8 RETURN YO CALLING ROUTINE 
2FTA 356E 2F7B 466% oc AL 2CKREG> 4729 % 
4662 * ; C QT30 fee ene n ne ne nn ne ene cule bath cure esmeiocen see dso se cess ane seesrer= 
2F7C C2 01 0000 4663 SCSIXI La ot XRI a 4731 6 SENSE FTG REGISTER 
2F80 CO 8&7 OGO0O 4666 SCSIX 8 -8 RETURN 4732 
6665 fo we ww wr a ew wom ewes cer ere eer errere co oFES 34 Of OFE7 47323 SFTG st SFYGX43S oARR SAVE RETURN ACDORESS 
2 4666 * LGAD COMTROL STORE ADDRESS REGISTER {CSARS See? 4734 * nee 
4667 * 2@FEC 3c OS 33ES 4735 evI EXTARGFTG SETUP EXTERNAL REG ADDRESS 
OF B84 34 08 2FAT £668 LCSAR st LCS ARX43e ARR SAVE RETURN ADDRESS fi a736 6 
4669 * Sas” 2FFO CO B87 3098 4737 8 SEXT SENSE EXTERNAL REGISTER 
2F 8B CO B87 3265 4670 e HEOP stop 10P EXECUTION 4738 * 
4671 * : 2FFe CO 87 0000 a729 SFTGX 8 t-s RETURN TO CALLING ROUTINE 
2FaC CO B67 3289 4672 8 svP EXECUTE SVP CONTROL STRING i a740 % 
2FSO AOC2 2FS1 4673 oc xL2°a0c2° SET K2 (SERVICE MOCE} AND 27G1 boown----- pew re en eee ween meee ecw en Ree eee te RRS OTe S STS Re ROS OOS OS OS 
2F92 3S6E 2F93 46764 oc AL2C KREG) KO (CK STOP OVERRIDE} c 47a2 : SENSE FTR REGISTER 
2F98 COCA 2FS9S 4675 oc XL 2*00CA? CSAP B VALUE <--> OP REG CR 7 6743 % 
2F96 23EC 2FS7 4676 oc AL2(€CSAR-1} 2FFB 34 O08 3007 S746 SFTR ST SFTRX+SeARR SAVE RETURN ADDRESS 
2F98 O0CB 2F99 4677 oc xi 2° 00cB? CSAR DO VALUE <--> OP FEG Y¥ - 4745 *% 
2F 9A 33E0 2F9B 4678 oc AL 2C(CSAR} w 2FFC 3C OO 33£5 4746 MVE EXTARSFTR SETUP EXTERNAL REG ADDRESS 
2F9C O028F ZFSD 4679 oc xL2°026F°* OP REG Y ~-> A REG --> DO REG a7ar % 
2F9E 0880 2°oF 4680 oc xXL2°O86D* R2-R7 & DO REG --> CSAR € 3000 CO a7 3098 4748 e SEXT SENSE EXTERNAL REGISTER 
2FaO OCE2 2FAL 4681 oc KL2°O00E2* RESET K2 cor a749 
2Fae 356E 2FA3 4682 oc AL 2( KREG) 3004 CO 87 O006 4759 SFTRX & Soe RETURN TO CALLING ROUTINE 
4683 * co : 4751 « 
2Fa4 CO BF 0000 4608 LCSARX 6 +-* RETURN TO CALLING ROUTINE Saas? 6752 gp inwickecas Sledn ewes ase ensaseset stew eae ssr arses erates me 
4685 *# &753 SENSE ADS REGISTER 
4686 ew ow we ee oe ES OO Oe Oe a ee Oe wt OOO ee OO OOO HOOP ODEO a &E7E% & . 
4687 & SENSE FOL REGISTER WITH ADORESS OF *°02° €> 3008 34 08 3017 6755 SAOS st SAD SX4#3eARR SAVE RETURN ADDRESS 
4688 a756 ‘ 
2FaB 34 OG @FB7 46869 SFB! st SFBIX4¢3¢ ARR SAVE RETURN ADDRESS ce B00C 3C OF 33E5 &a757 MVE EXTAReADS SETUP EXTERNAL REG ADDRESS 
4690 * tae 4756 * 
2FAC 3C O2 33€5 4691 MVE EXTAR. FBI SETUP EXTERNAL REG ADDRESS 3010 CO 87 3098 4a7S9 8 SEXT SENSE EXTERNAL REGISTER 
&692 * ‘at, 4760 * 
2FBO CO BY 3098 4693 8 SEKT SENSE EXTERNAL REGISTER & Z014 CO 87 00C5 4763) SADSX 8 b~% RETURN TO CALLING ROUTINE 
4694 * 4762 * 
2F64 CO 87 0000 4695 SFBEX 8 ke HETURN TO CALLING ROUTENE ; BT63 Bone nnn nn ew a ee ee ee wee ene een mee we nw ee nore 
4696 # oo & 4764 * SENSE FTI REGISTER 
BOQT Barman rn ee ne ween <2! 4a7ES * : 
42698 * SENSE FBI REGISTER WITH ADDRESS OF *O0A® : & 3018 34 08 3027 2766 SFT! st SFTIX+30ARR SAVE RETURN ADDRESS 
4699 * i Ss e767 & 
2-88 34 O08 2FC7 4700 SFBIA ST SFBIX AST ARR SAVE RETURN ADDRESS : Boic FC 15 33€5 4& 768 evi EXTARFYE SETUP EXTERNAL REG ADDRESS 
i & : 
CATE 1S AUGTS CS5NOV7S PROG 10 CiS-2. DATE 1SAUGTS OSROV7TS PROG 1D cis\i 
EFC NO. e@27785 82727 PAGE 42 © gEC NDo e27785 es7e27 PAGE 42h 
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@080e0e8600@ ia 
| eee 
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18M MAINTENANCE DIT AGNCSTIC FROGRA® PART NO. 4247607 . 16M MAINTENANCE DIAGNOSTIC PROGRAM PART NOe eee 
: PAGE as lS PAGE 
C151 3340 ATTACHMENT TESTS = MOD 12 - persia 3340 ATTACHMENT TESTS - MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE AODR STMT SOURCE STATEMERT 
6769 * | © 4837 © . 
3020 CO e7 3098 4770 8 SEXT SENSE EXTERNAL REGISTER : 3088 CO 87 0000 4838 SSCAX 8 et RETURN TO CALLING ROUTINE 
4771 # ' 4839 * 
3024 CO 87 0000 av72 SFTIX e tt RETURN TO CALLING ROUTINE BBA0 Bann n nn nn nnn nn nn nn nnn nn nnn nen nnn nnn rrr nnn tern nero nnn e ren nen 
a773 *% i oe . SENSE OXC REGISTER 
a774a few ce mw ew ee ae een we ee EES RE OO OR ~, 
4775 *% SENSE CO2 REGISTER c 3088 34 0&8 3097 4843 SDXC st SOX CX 436 ARR SAVE RETURN ADDRESS 
4776 & j 4844 2 
ane 3028 34 08 3037 4777 SCcO2 st SCO2ZK4 Be ARR SAVE RETURN ADDRESS ’ C3 3oac 3C 13 33€5 4845 MVY EXTARSOXC SETUP EXTERNAL REG ADDRESS 
4778 * Pe 4846 & 
302c 3C 18 32ES 4779 MVE EXTAR eCO2 SETUP EXTERNAL REG ADDRESS i 3090 CO 87 3098 4847 8 SEXT SENSE EXTERNAL REGISTER 
4780 *% amd 4848 * 
3030 CO B67 3098 4781 8 SEXT SENSE EXTERNAL REGISTER s. 3094 CO 67 0000 4849 SDxXCX 8 t-% RETURN TO CALLING ROUTINE 
a782 & 2 48s6 
3034 CO 87 0000 4783 $CO2X 8 t-* RETURN YO CALLING ROUTINE C: BBSL Bee a we nn ew eR Oe OOO OO OO OS 
4784 » tout 4A52 *& SENSE ANY EXTERNAL REGISTER 
4785 Bre ee wr ew oe we a ee OR ERO OO Oe OS 4853 
4786 *& SENSE SBO REGISTER 3098 34 08 30CA 4854 SEXT st SEXTX 430 ARR SAVE RETURN ADDRESS 
a7e7 % a 309C 34 01 30C6 4855 st SEXTX143eXR1 SAVE INDEX REGISTER 1 
3036 34 08 3047 4788 SsBOo st SS8OX4+3e ARR SAVE RETURN ADDRESS pes * eine sa ceteuiat aciedetoneee 
4789 * ce 30A0 CO 87 30CB aas a LEXTA 
303C 3C 1F 33€5. 4790 MvE EXTAR*SBO SETUP EXTERNAL REG ADDRESS eee 4858 4% : sae egceee cee as 
4791 * 30A6 CO 8&7 3289 4859 e sv 
3040 CO 87 3098 4792 e SEXT SENSE EXTERNAL REGISTER 30a8 A0C2 3OA9 4860 oc xL2*a0c2° SET K2 = SERVICE “ODE AND 
4793 ® C 3OAA 356E 30AB 4861 oc AL 2(KREG) KO (CK STOP OVERRIDE) 
3044 CO 8&7 6060 4796 SSBOX 8 sot RETURN TO CALLING ROUTINE 3OAC OB SF 3OAD 4862 pc XL2*°OBR8F* EXT IN BUS ~-> D REG 
2795 © cr 3CAE 0085 3OAF 4863 oc xL2°0085° D REG --> X REG 
4796 $n ee we wre ow Oe rw Ce mw EE OS OOO OR SO kL. 3080 CO00D 3082 *@864 oc XL2"*°000D* SENSE X REG 
a797 © SENSE OST REGISTER 30B2 C0E2 3083 4865 oc XL2 *O0E2* RESET SERVICE MODE 
4798 C 30B4 356E 3085 4866 — pc AL Z(KREG) 
3048 34 08 3057 4799 SOST ST SOSTX43 ARR SAVE RETURN ADDRESS 4867 * CATE: EXTERNAL 
4800 * 3086 C2 01 340E 6868 A EXTINSXRI LOCAT T 
304C 3¢ 03 33€5 @801 “Vt 8 EXTARSDST SETUP EXTERNAL REG ADURESS C 30BA 36 O1 33E5 4869 A EXTARSXRE REGISTER INPUT AREA 
4802 * a 4870 * 
0 sg. 3050 CO 87 3098 4803 ; 8 SEXT SENSE EXTERNAL REGISTER 308E &C 00 00 330E 4873 MVC =: OC 2 XRI DC TOPIN MOVE VALUE SENSED TO INPUT AREA 
4804 *# 4872 * 
30€& CC 87 C000 4605 SDSTX 8 ses RETURN TO CALLING ROUTINE G 30c3 C2 01 0000 4872 SEXTXi LA $—* oXRi RESTORE INDEX REGISTER 1 
aacé * z0C7 CO 87 0000 487% SEXTX B $= RETURN TO CALLING ROUTINE 
4607 fon ee wn wm ow wo oe we rw 0 we ow ow 8 8 Oe ROS BEERS OOO OOO OL OOS Oh “a875 *€ 
4808 * SENSE FHF REGISTER ; ae) BET Bae aw a we a rw a ORO OO Oe OO COS 
4809 * : 4877 * LOAD EXTERNAL ADDPESS REGISTERS 
3058 34 08 3067 4810 SFHFE st SFHFX43. ARR SAVE RETURN ADDRESS 1 gt 4878 * . 
4611 * C 30C8 34 08 30FO0 4879 LEXTAR St LXTARX+3eARR SAVE RETURN ADDRESS 
305C 3C 07 33€5 4812 ave EXTAR oF HF SETUP EXTERNAL REG ADDRESS 4880 * en A 
4813 © 2, 30CF CO 387 3265 4881 8 HEOP HALT MICROPROCES 
3060 CO 87 3096 4614 8 SEXY SENSE EXTERNAL REGISTER c 4882 
4615 © 3003 CO 87 3289 4883 e svP EXECUTE SVP CONTROL STRING 
30€4 CO B7 0000 4816 SFHFX 8 a-* RETURN TO CALLING ROUTINE C 3007 aoc2 3008 #884 pc Ree nee SET “e see ice eatery 
a6i7 * ; 3009 356€ 300A 4865 oC AL 2(KREG 
BBG Bem ew er ew 2 a EO OO 3008 $0886 200C 4886 é oc XL2°00868* K*°00% <-> OF REG C 
4819 * SENSE HES REGISTER tC 300D OOCA 20DE 4887 oc XL2*O0CA® EXT ZONE VALUE ~-> OP REG CR 
4820 * 1 Beet 300F 33€3 30£0 28388 oc AL2CEXT ZN) 
3068 34 08 3077 : 4821 SHES St SHESX 432 ARR SAVE RETURN ADDRESS 30Ei 018C¢ 30E2 4889 Dc xL2°018C° R&=-R7 ~-> te pet ice as 
le 4822 * : 1 gt 30E3 20CA 3CE& 4899 oc XL2*20CA® EXT ADDR VALUE <--> 
30FC 3C O08 33E5 4823 Mavi EXTAR oHES SETUP EXTERNAL REG ADDRESS { © 20E5 33€5 30E6 4891 oc AL2 CEXTAR) base 
‘ 4824 *% 30E7 Goac 30EB 4892 oc xL2* 008ce R3-RT <--> EXT ADDR R XT AR 
3070 CO 87 3098 4825 8 SEXT . SENSE EXTERNAL REGISTER | C 30E9 OCE2 20EA 48692 Oc XL2*00E2° RESET SERVICE MODE 
a * a 6 BOEC 4694 oc AL2 (KREG) 
3074 CGO 8&7 0000 hes SHE SX 8 —e | RETURN TQ CALLING ROUTINE | Pee sree 48S5 * 
43829 © ; | ts 30ED CO 87 0000 4896 LXTARX 8 +*—* RETURN TO CALLING ROUTINE 
8B29 Bown weer eK RE a a i A ae ae an om an on am am en ewan 0 Oe eae x 4897 «* 
4830 * SENSE SCN REGISTER 4898 B-------- === oan anne nen ae wren enn eae re eee rotor err er 
e831 * | 4899 * SENSE DIAGNOSTIC SENSE BYTE 0 
3078 34 O08 3087 4832 SSCN st. SSCNX43- ARR SAVE RETURN ADORESS & 4900 * 
4835 * | 30F1 34 08 30FE ; 4901 SDSO ST SOSOX+4+3e ARR SAVE RETURN ADORESS 
307C 3C OF 33ES 4834 Mvi EXTAR «SCN SETUP EXTERNAL REG ADDRESS | © . 4902 * 
4835 * a 30FS CO 87 3289 4903 8 SwP EXECUTE S¥P CONTROL STRING 
2060 CO 87 3098 £836 a SEXT SENSE EXTERNAL REGISTER | 30F9 0020 3OFA 42908 oc xL2*0020° SENSE IDLE SENSE BYTE 
DATE 1S AUGTS OSNOV7S PROG ID C1S-1) DATE 25 AUG75 OSKCVTS ; PROG 10 Ci5-1 
EC NOw €277658 827827 PAGE 43 | EC NGe #827785 827827 PAGE &3Aa 
{ 





TAM MAINTENANCE DIAGNOSTIC PROGRAM 


cist 


EPR LOC 


30F86 


3OFF 


3103 
3107 


3109 


3100 


3131 
3185 


3117 


3218 


31iLF 
3123 


3125 


3129 
3220 
312% 
2135 
3137 
31339 
~.38 


3130 


3341 
2145 


3149 


3140 


OATE 
EC NOe 


3340 ATTACHMENT TESTS - MOD 


OBJECT CODE 


co 87 0000 


34 08 310C 


co 87 
eo2i 


3289 


co 87 0000 


34 O08 311A 


co e7 3289 
e022 


co 87 9000 


34 08 3126 


co 87 
0023 


3289 


co 87 0000 


34 08 3140 


co S87 32E6£ 
co e7 
20c2 
3S6E 
oo0es 
0020 


3289 


co 87 0060 


34 68 3172 
34 OF 3I6E 
35 01 3172 
ic 62 3571 


TSAUGTS 
e27765 


02 


AoOcR 


3108 


3100 


3116 


3116 


3124 


3136 
3136 
213A 
333¢ 


OSNOV7S 


827827 


STMT 


4905 
4906 
4907 
4908 
4909 
4910 
agi1 
a9i2 
4913 
4934 
4915 
4916 
agi? 
4918 
4919 
4520 
ag92i 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
£936 
4937 
49238 
4939 
4940 
49a} 
a9a2 
4943 
4946 
4945 
4946 
4967 
4948 
4949 
4ss0 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
4564 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4ag72 


12 


PART NOe 
PAGE 


a4 


t 


4247607. 


SOURCE STATEMENT 
2s 
SOSOX e *-* RETURN TO CALLING ROUTINE 
* 
Pee wwe em we oe oe we oo ce eo te ee OE OR SOO OE EO OO OS 
= SENSE DIAGNOSTIC SENSE BYTE 1 i 
* i 
sos i st SOS 1X43. ARR SAVE RETURN ADDRESS 
* 7 
8 svP EXECUTE SVP CONTROL STRING 
oc xL2¢0028° SENSE IOLE SENSE BYTE 
s i 
$OS1Xx 8 t-8 RETURN TO CALLING ROUTINE 
s 
Pew ee ewe me ee ee ee ee ee RO OS 
* SENSE IOLE SENSE BYTE (OIAGNOSTIC SENSE BYTE 2) 
* 
SIOLE EQU * 
= 
Be ew eww wwe we wm om ow a were ewer ew nore eee. 
* SENSE DIAGNOSTIC SENSE BYTE 2 (TDLE SENSE BYTE) 
& 
sos2 st SOS2X+3cARR SAVE RETURN ADDRESS 
s 
6 sve EXECUTE SVP CONTROL STRING 
oc xL 2° 0022? SENSE IOLE SENSE BYTE 
& 
SOS2x 8 s-6 RETURN TO CALLING ROUTINE 
s 
bh ee ww ow rn ow a en 
* SENSE IOP CHECK BYTE (DIAGNOSTIC SENSE BYTE 3) 
s 
STOPCK €ou * 
* 
$e en wn ow we mw enn we a i 
* SENSE DIAGNOSTIC SENSE BYTE 3 €10P GHECK BYTE) 
s 
5083 st SOS 3X436 ARR SAVE RETURN ADDRESS 
* 
8 svP EXECUTE SVP CONTROL STRING 
pc XL2°0023¢ GET "CHECK® SENSE BYTE 
s 
SOS 3x 8 e-6 RETURN TO CALLING ROUTINE 
* 
Ben we ro we oe wo ene oo er ee oe ee Re Oe OO OO OO OS 
+ SENSE D-REG 
s 
SOREG ST SDREGX+3eARR SAVE RETURN ADORESS 
* ; 
8 HOP : 
* ; 
8 svP EXECUTE SVP CONTROL STRING 
oc xL 2° 20C2° SET K2 (SERVICE MODE? : 
oc AL2 (KREG) 
oc xt2*0085* D-REG -> X-REG 
oc xL2°002D° READ X-REG 
* { 
SDREGX 8 *—n RETURN TO CALLING ROUT INE 
* 
gee erence eee seen emcee omen ne ewes wenn Meme re ne enn earn en eee mee ee ene ---) 
* LOAD OP REG AND EXECUTE MICRO-INSTPUCTION CIMMEDLATE) 
* | 
LxXCPL ST LKOPIX+4+3¢ ARR SAVE RETURN ADDRESS ! 
ST LXOPL14¢3eXR1 SaVE INDEX REGISTER 1 
* i 
t LXGOPEX43¢XRE POINT TO PARAMETER LIST | 
* i 
LXOPIA wvc OPREG(3)e20eXR1) MOVE PARAMETER TO OP FIELD i 
* ' 


PROG 10 CLS—i 
PAGE ae 


o 





or, 


ga * 
eo @ 9ee0ede0e0e0ee0ed@eedede0<e8t8eoeeseeeedeoeegeee eee 8 


€ cisi 3340 ATTACHMENT TESTS 
ERR LOC OBJECT CODE ADDR 
ot 
& 3152 CO 87 3173 
3156 CO 87 3101 
Ness 318A 02 O01 03 
gn 3150 70 FF 00 
Me 3160 CO 01 3140 
“ 3164 02 Of O21 
Le! 3167 34 O01 3172 
co 3168 C2 03 0000 
Ne 316F CO 87 0000 
C 
fs 3173 34 08 3196 
\. * 
3177 CO 87 3265 
\ 3178 Co 87 3289 
317F a20C2 3180 
e 3181 35¢€€ 2182 
u 3183 00Ccs 3164 
3185 356F 3186 
4 3187 OOCA 2188 
2 3189 3570 Z1iBA 
3186 OocB 318C 
23: 318D 3571 318E 
S 318F OOF2 3190 
3191 356 2192 
~~ 
te 3193 CO 87 0000 
O 
. 3197 34 08 31A6 
3198 CO 87 3289 
C: 319F sas2 3iao 
32A1 OOAF 33 a2 
aia 
Xe 3143 CO 87 0000 
i 31a7 34 08 3100 
C2 31AB 3C 14 33£2 
- 31a€ CO 87 3265 
3183 CO 87 3289 
*, 3187 10C2 2168 
icf 3189 356€ Z1BA 
318B 00c2 318C 
318D 356E 31 BE 
Sb 31BF AOCc2 31C0 
31C1 356E 31c2 
my, 31C3 0ocB 3sc4 
E> 3105 33€2 31C6 
31c7 o2eF 318 
& 31c9 SBS8E 3ica 
31CB O8AE 31CC 
DATE 15AUG75 OSNOV7S 
EC NO. €27785 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


~- 400 


STMT 


4973 
ag7s 
4975 
4976 
agT7 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
a98s7 
4988 
a9&9 
4990 
4991 
43992 
4993 
4994 
4995 
a996 
4997 
4938 
a3go9s 
5000 
5001 
$002 
5003 
5004 
s005s 
5006 
5007 
5008 
5009 
5010 
§011 
s012 
$013 
5014 
5015 
S016 
5017 
5018 
$019 
5020 
$021 
5022 
$023 
S024 
$025 
59 26 
S027 
s028 
5029 
S030 
5031 
5032 
S033 
5034 
§035 
$036 
5037 
5038 
5039 
5040 


12 


SOURCE STATEMERT 


LA 


CLE 
BNE 


LA 
st 
* 
LxXOPT: La 
xcPIRX 8 
e 


Lop 
TOPRUN 


3BCoXRLDe MRI 


OC eXRIDPOKTFFS 
CXOP TA 


Co XRI PO XRI 
LXOPIX4¢3¢XR1I 


e-%&eXR1 
t oF 


PART NOs 
PAGE 


4247607 
G4A 


LOAD OP REG AND 
EXECUTE MICROINSTRUCTION 


ADVANCE PARAMETER POINTER 


BRANCH IF MORE MICRO- 
INSTRUCTIONS TO BE PROCESSED 


SETUP ADDRESS FOR 
RETURN TO CALLING ROUTINE 


PESTORE INDEX REGISTER 3 
RETURN TO CALLING ROUTINE 


ww ww we nn ww a we a OO OO 


s 
s 


LOAD OP REGISTER 


Lor st LCPX43¢ ARR SAVE RETURN ADDRESS 
& 
B HICP HALT MICROPROCESSOR 
* 
e svP EXECUTE SVP CONTROL STRING 
oc xL2* a0dc2* SET K2 (SERVICE MODE) AND 
o¢ AL2 (KREG) KO (CK STOP OVERRIDE) 
oc xL2*0o0cs* C FIELD --> OP REG C 
oc AL2(Ch 
pc KXL2* 00CA® CR FIELD --> OP REG CR 
Dc AL2¢CR)} 
oc xL2*oocet ¥Y FIELD --> OP REG ¥ 
oc AL2(Y) 
oc XL2°O00E2* RESET SERVICE MOOE 
oc AL2C KREG) 
¢ 
LOPXx 8 sos RETURN TO CALLING ROUTINE owe se 
( 
Bw we wee wee wn wwe oe ee meen ere rerrn cee ee ae ae ee a eS EEE RO 
s EXECUTE MICRC-INSTRUCT ION FROM OP REG 
s 
xoP st X CPX 430 ARR SAVE RETURN ADDRESS 
* 
8 svpPp EXECUTE SVP CONTROL STRING 
oc KL2°e582° xO (CK STOP OVERRIDE) AND 
& K& (STOP AFTER ONE cYcLe? 
oc KL2*OOAF® START rOoP *PROCESS® CYCLE 
= 
xOP xX 8 ts RETURN YO CALLING ROUTINE 
x 
Bee wee we ww ew we we re ee een meen oe et ae ww eo we nw ee OOOO OS 
* RESET 10P CLOCK AND INITIALIZE INDEX REGISTER 
* 
CLKRST ST CLKRSX4#3eARR SAVE RETURN AODPESS 


MVE 
s 
8 
* 
8 
oc 
oc 
oc 
oc 
oc 
oc 
oc 
DC 
oc 
oc 
oc 


FNDEXeX 914? 


HIOP 


svP 
xL2*10C2° 
AL2 (KREG) 
xL2°o00c2* 
AL2 (KREG) 
xt2*aoc2* 
AL 2( KREG? 
XL2*00CcB* 
AL2CTNDEX) 
XL2*O028F* 
xXL2°eB8E* 
XL2*O8AE * 


TaITIAL INDEX ¢€ PTR O00 J 
HALT MECROPROCESSOR 


EXECUTE SVP CONTROL STRING 
SET K3 (CLOCK RESET) 


RESET «3 


SET K2 (SERVICE MODE? AND 
KO (CK STOP OVERRIDE) 
INDEX VALUE --> OPREG ¥ 


DP REG Y --> A REG --> D REG 
0 REG ~-~> INDEX REG 
SERVICE ACCESS CYCLE 


cis-1 
SOA 


PROG 10 
PAGE 











@ @ @ , $ } 
é 
. t° 7 , : 3 
. " . 3 | ‘ ‘ 
: & 
i @ & & 


| 





TOM MAINTENANCE of AGNOSsT 1C¢ PROGRAM PART NOe 4247607 - 186M MAINTENANCE Df AGNOSTIC PROGRAM PART NOe 4247607 
PAGE 45 Ree PAGE aSA 
C151 3340 ATTACHMENT TESTS - MOD 32 cc 3340 ATTACHMENT TESTS - mao 12 
ERR LGC OBJECT CcooE ACCR STMT SCURCE ST ATEMENT ; : ERR tac OBJECT COOE - ADDR STMT SOURCE STATEMENT 
31C0 Co 87 0000 $041 CLKRSK 8 t-e RETURN TO CALLING ROUT INE @ 5109 ¢ : 
5042 * 323€ 38 04 356E€ 5110 1asTP SBF  KREGoX*08? RESET *ADOR STOP* CONTROL SIT 
$044 + START MICRO-PRGGRAM EXECUTION © 3242 34 08 3240 $112 aStTFroi st AST PX43e ARR SAVE RETURN ADDRESS 
: ; $045 *& ; $113 * a> e ae 
. : w : . 5046 * ENTER *1OPRUN® TO START 10P ¢€ 1 PROCESS/ ACCESS CYCLE OMLY 3 / e 3246 CO 87 3279 5114 e « LOAL K REGISTER 
5047 ¢ ENTER *10PG0°. TO SETUP INOEX PRIorF TO ® START /RUN® a. . 6115 ¢ . 
, 5046 2 ; 324A CO 87 900090 5116 ASTPX 8 ss RETURN TO CALLING ROUTINE 
i 31D1 34 08 3204 5049 IOPRUN st 1 OPGOX4 3eARR SAVE RETURN ADDRESS : Q 5117 * 
3109 Co 87 31F7 s051. 6 10PG02 GO *START TOP® $119 © ENABLE / INHIBIT 1OP CHECK STOP 
0 5052 * rm. $120 © 
3100 34 of 3204 5053 tOoPGco st I CPGOX 432 ARR SAVE RETURN ADDRESS © 324€ 38 80 356E $121 CKSsTP SBF KREG eX*80° RESET "CK INHIBST® CONTROL BIT 
/ 5054 *# 3252 F2 87 04 $122 J CKSTPA GO TO LOAD K REG 
31€1 co 87 3289 5055 : 8 svp EXECUTE SVP CONTROL STRING _ 5123 * 
31E5 aoce 31€6 SOS6 oc xLzZe AOC2° SET K2 (SERVICE MODE) AND CS 3255 3a 60 356E 6124 1CKsTP SBN KREG oe X* 80° SET *CK INHEBIT® CONTROL SIT 
-BIET 3S6E 31€8 S057 : oc AL 2( KREG) KO (CK STOP OVERRIDES $125 * : - 
313E€9 oocsB 31€a° 5056 oc xL2°o00cee INDEX VALUE <--> OPREG ¥ e: 3259 34 08 3264 £126 CKSTPA st CKSTPX43 cARR SAVE RETURN AODRESS 
31€8 33E2 31€C 5059 : oc. - AL2CE NDEX) " 5127 * 
31€0 o2eF 31€E 5060 oc XL 2° O28F* OP REG Y <--> A REG -=-> D REG 3220 CO &7 3279 5128 8 «x LOAD K REGISTER 
31€F seBeEe 31FO 5061 ec xtL2*SBsE* D REG -=-> INDEX REG - $129 © : 
BiFi OB AE 31F2 5062 oc xi 2° OBAE ° CERVICE ACCESS CYCLE : Cc 3261 CO 87 CO000 $130 CKSTPX 6 t—-% RETURN TO CALLING ROUTE NE 
- $063 * ; $131 * 
33F3 268 08 356E S064 ssF KREG eX*08* RESET *HALT® CONTROL SIT ' oS 5132 Sp stseasestccsel nesta ast Rea a ase eeee erent et 
5065 ¢ : é 5133 @ HALT MICROPROCESSOR 
31F7 CO 87 3289 §066 1O0FGO2 e sve EXECUTE SVP CONTROL STRING : : 5134 ¢ 
31°68 OC0Cc2 3S1FC 5067 oc xi2° 00C2* SET K-REG OQ 3265 34 08 3278 5335 HIGP st HIOPX4+3eARR SAVE RETURN ADDRESS 
3iFO 356E 31€E S068 oc AL 2(KREG) a eS ; ie $136 * ; 
BiFEe OCOAE 3200 5069 oc xt2* GOAE® START. f0P PROCESS/ACCESS CYCcLe 3269 3A 08 3SC6E 5137 SBN KREG oX*O8* SET HALT SIT IN « REG VALUE 
£070 ¢ ia ts 5138 * . 
3201 co 87 GO000 5071 YOrGOX e s-t RETURN TO CALLING ROUTI NE i G 326D CG 87 3289 5239 8 sve EXECUTE SVP CONTROL STRING 
: 5072 * : : : 3271 OOE2 32272 5140 oc xL2* OOE2* LOAD K REG 
sov73 Dn cicerieee wetness ey 3273 3S56E 3274 S14f oc AL2(KREG) 
2 a 5074 * EXECUTE ACCESS-PROCESS CYCLE(S) 1 5142 © 
5075 *@# : ; 3275 co 87 0000 5143 HIOPX 8 s-s RETURN TO CALL ING ROUTINE 
3206 34 08 3232 5076 ANICP st RANI OPXEZe ARR SAVE RETURN AODRESS : GQ 5144 & 
3209 CO 87 3289 5078 8 sve EXECUTE SVP CONTROL STRING S146 * LOAD K REGISTER 
320D COAE 320€ 5079 oc XL2° OOAE® START ACCESS<—PROCESS CYCLEC(S) : C: . $147 8 
: §080 ¢ ; i Z 3279 34 06 3288 5148 LK st LKX+3eARR SAVE RETURN AODRESS 
320F CO 87 0000 5081 RNIOPX 2 t-& RETURN TO CALLING ROUTINE : 6189 : 
$082 * : " 3270 CO 87 3289 £150 : e sve EXECUTE SVP CONTROL STRING 
§083 © ood bac se case eeaedestee acon €; 3281 ooe2 3282 6151 oc xL 2°O00E2* Loao « REGISTER 
 §0ea & LOAD ADDRESS COMPARE REGISTER : 3263 3S5éE 3284 $152 oc AL2 (KREG) 
5085 * gm $153 * 
3213 34 O08 3236 5086 LACR st L ACRXS3e ARR SAVE RETURN adDDRESS © 3265 CO 87 cC00 $154 CK 8 tt RETURN TO CALLING ROUTINE 
50e7 * 
3217 CO 87 3265 S088 8 ‘410P HALT MECROPROCESSOR : 
so0e9 « : : ¢ 
2216 .CcoO 87 3289 s0S0 Bs SVP EXECUTE SVP CONTROL STRING : 
321F aoc2 .3220 S091 oc xL2°eaoc2¢ SET K2 (SERVICE “@0DE)? AND ' 
32221 356€ 3222 5092 oc AL2 (KREG) «KO (CK STOP OVERRIDE) : € 
3223 OOCA 3224 5093 oc XL 2° OOCA* COMPARE ADDR B --> ore REG CR i 
3225 33€0 ‘3226 5094 ' pc ‘aL2cacesd o, yo « * ‘ -- 
=°27 OO0Cce 3228 S095 oc xXL2 *ooCcB* COMPARE ADDR D --> oP REG V¥ : G 
3229 33€1 3B22A $096 oc PL2ZCACROD i 
2228 o2eF 3222¢c S097 oc x_z*o26F* OP REG Y --> A REG --> D REG | 
322D 04ad 222€ 5098 oc XL2* O4A0* R2-R7 & D REG <--> ADDR COMP REG. te) 
322F O0E2 3220 £099 oc xL2°00E2* ACTIVATE AODR COMPARE . { 
# 3231 356€ 3232 5100 oc AL2 (KREG) 
PEED 3 : s$191 * : , @ 
3 3233 CO e7 3000 S102 LACRPX 8 sot RETURN TO CALLING ROUTINE t 
po» ¢ ; 6 . $103 * 
Tiga : 5104 Oona nner een renee ment eennerenensacenenneeenmnanacmannamans| oo . 
S105 * ENABLE / INHIGIT AOORESSS COMPARE STOP | 
$106 * 
3227 3A O04 356E 52.07 Aste SAN KREG eX* 048 SET *aODR STOP® CONTROL BIT 4 Se] 
3238 F2 67 04 5108 J. AS5TPO} GO TC LOAD K REG | 
. . !@ id 
Date 15AaUuG75 OSNOVTS PpRoGc 10 c1i5-1° DATE . 15AUuG7S OSNOV7TS PRAG 10 cis-1 
EC NO. 827765 e27027 PAGE a5 oe NOe #827765 e27827 PAGE aSa 
' 
’ 


r 
9 @ 9 


[GM MAINTENANCE OLAGNOSTIC FROGRAM 


C153 


ERR LOC OBJECT CODE 


3269 
3260 


3291 
3295 
3299 
3299 
32at 


32 a6 
3248 


32aF 


3282 
3286 


3289 
3280 


320 
32CS 
32cB 
32cF 


3202 
3206 


32209 
32005 


32€1 
32€5 


32€8 
32E0 


32F3 


32F6 
J2FA 


32FE 
3302 
3306 
330A 


330€ 
33:2 


DATE 
Ec NOs 


i 


1 


24 
34 


30 
3D 
co 
35 
ic 


ac 


b2 


38 
Fe 


38 
F2 


ic 
3A 
b2 


33 
2 


33 
30 


38 
F2 


ic 
oc 


b2 


36 
co 


30 
co 


c2 
co 


oe 
03 


00 
82 
e3 
02 
00 


01 
FO 


03 


80 
$0 


40 
90 


o1 
oo 
oo 
01 


cs 
67 


Cc? 
cv? 


40 
90 


01 
00 


0% 


20 
90 


03 
00 
83 
81 


ot 
87 


3325 
3322 


3300 
33CcFr 
2ats 
3315 
3302 


330¢ 
330c 


02 


3302 
20 


3302 
i2 


32CA 
32cc 
3308 
o2 


330¢ 
10 


330C 
330E 


3302 
oe 


32F0 
0000 


02 


3302 
32 Ai 


3315 
3300 
32Ccr 
2AE6 


0000 
0000 


1SAUG7S 
e27765 


0% 


0% 


o1 


0000 


o1 
330E 


3340 ATTACHMENT TESTS = OO 


ADDR STMT 


5156 
$157 
5158 
5159 
5140 
5161 

$162 
$163 
5164 
5165 
$166 
5167 
$168 
$169 
5370 
$172 
5172 
5173 
5176 
S175 
S176 
Si7? 
5178 
5179 
£180 
5181 

5162 
5183 
5184 
518s 
5186 
5187 
5198 
$5189 
5190 
5191 

$192 

5193 
5196 
5195 
5196 
5197 
5198 
$199 
$200 
5201 

$202 
5203 
5204 
5205 
5206 
$207 
5208 


$209 - 


$210 
S211 
$212 
$213 
S2%4 
S215 
5216 
$217 
$218 
$219 
$220 


OSNCV7S 
e27827 


SOURCE STATEMENT 


PARY NOe 
PAGE 


4247607 


a6 


COMMON SVP INTERFACE CONTROL SUBROUTINE 


#@#epeeaenataa 


svp 


s 


COATROL (C@ITS O-3 OF 2ND BYTE. EACH WORD) 


st 
st 


SNS 
cur 
eE 


6IT 0 - ON = SvP 


*CONTROL® CCMMAND 


OFF = SVP *SENSE® COMMAND 


Bry 1 - ON © *EXTENDED® DATA FIELO 
BIT 2 - ON # *END® OF STRING 
Be 8 8S Bh OO BOO © OS OOOO © OO OOS OE OOOO OSS OF OE OBES BS OBS BBB OEODODOOO ODS 
SVPX4+3¢ ARR SAVE RETURN ADDRESS 
SVPX2¢3eXR1I SAVE INDEX REGISTER 1 
SwSed * amMOoP © SENSE DATA SWS 
LINKIDs X*62° *® LINK © ANDO GO TO AMOP IF 
AMOPLK * *B2° & Sus 1 & 2 CONTAIN *82° 
SVPX¢3eXR?1 POINT TO SVP STRING 


* 


* 
SVPCTL 


* 
SVPSNS 


s 


e 
SVPX1 
SVPX 
s 


u 
avec 


avc 
seF 


ta 


TEN 
JF 


TBN 
JF 


“vc 


wvc 
SBN 


ure 
10 
sus 


TEN 
JF 


mvc 
vc 


LA 


‘TEN 
eF 


st 
SNS 
cul 
8E 


LA 


WORK 1.1€2eXR1) 


TOPOUT( 2) 03 € eXR1) 
IGPOUT eX*FO® 


]2Ce XRILDe XA 


WORK 2eX* 60° 
SVPSNS 


WORK 1-X*40° 
SVP CTL 


#410C][D 010» MRI} 
*47(1 DQ tot 
1OPOUT-16%—-8 
2CoXR1id oXRI 


TOPOUT oX*CS* 
sveo02 


TOPOUT oX*C7® 
IOP INS X*C7e 


WORK1 oX*40° 
_ svP02 


#40802) 61 C eXR15 


t—- #( 1} 0 LOPIN 


20 e KR1I9D oe XRY 


WORKE oX*20¢ 


BRANCH 


SAVE SVP ROUTINE CONTROL SITS 


SETUP SvP LINK 
CONTROL BSYTES 


ADVANCE CONTROL STRING POINTER 


BRANCH IF 


SVP SENSE OPERATION 


BRANCH IF SVP DATA IS 


CONTAINED IN CONTROL STRING 


SE TUP 
sve 
DATA 


ADVANCE CONTROL STRING POINTER 


DIAGNOSTIC LIO-1 (SVP CONTROL) 


OTAGNOSTIC LIO-2 (SNS SETUP) 
OLAGNOSTIC SENSE 


IF NO OATA MOVE REQUIRED 


MOVE SENSED DATA FROM 


IOPIN TO ADDRESS IN CONTROL STRG 


BRANCH IF NOT 


ADVANCE CONTROL STRING POINTER 


VET END OF CONTROL STRING 


ADORESS 


svPoi 

SVP X¢3eXRi SETUP RETURN 

SwSe0 * AMOP © SENSE DATA SWS 
LINKIO.xX*83¢ * LINK © AND GO TO AMOP IF 
AMOPLK * *¢g3¢ « 

so o XR1 RESTORE INDEX 


tt 


REG 1 


SwS 1 6 2 CONTAIN *°83° 


RETURN TO TEST RTN GR SUBRTN 


PROG 1D 
PAGE 


cis-1 
46 


, BM MAINTENANCE OIAGNOSTIC PROGRAM 


Me 


es 
ERR LOC OBJECT CODE 


a) 


i 


i 


ne ee re re ce ee ewes mee ee ee 
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SOURCE STATEMENT 


RRKSEKEREEREEEEEEEESESEEEEKESEEESEEEEEES EEEEEEES SEE SSSESESTS SSESSEHKESSEEHESES 
* & 
* PRINT MESSAGES * 
s s 
C4600 84EEHEESEEE EEE EE EEE EEEEEEEEEEEREES © ORES EREREREE £E OEEEESEEE EERE EE 
* ; 


MSG Eou = VARIABLE MESSAGE AREA 
MSGN Ds cL30 
oc cure ¢ 
* 
MSGO1 Fou * 
MSGOIN OC CL28°ERR V1 V2 V3 V4 VS V6 V7 vee 
* 
MSG 02 —Eou * 
MSGO2N OC CL26* ##e TEST 1S LOOPING se#s° 
* 
MSGO3 cou 8 
MSGO3N OC CLEO*LOADING SECTION Ci9* 
s 
MSGO04 Eou 
MSGO&N 0C CLI7*°SECTION C19 READY®. 
s 
MSGOS fou + : 
MSGOSN 0¢ CLAO*LOADING SECTION C17° 
s 
MSG06 ecu 
MSGO6N OC CLI8* SECTION RE-STARTED® 
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16M MAENTENANCE OF AGNOSTIC PROGRAM PARY NO« 4247607? TBM MAINTENANCE DLTAGNCSTIC FROGRAM PARY NOo 4247607 
PAGE a7 «. PAGE ava 
c152 3340 ATTACWMENT TESTS ~ #00 32 g C251 3340 ATTACHMENT TESTS - MOO 12 
ERR LOC OBJECT CODE ADDR STMY SOURCE STATEPERT ERR LOC OBJECT COCE ADOR STMT SOURCE STATEMENT 
§251 SSKEEKSSSASHHESCKE SR HSRESRA ESSE SERS SES EAL SFKKE FAKLATKESEE KKH Kat SS ESLESASE KS > S276 PKEKESSISRSESSHAEKECHARESERBKER SEEKERS SE SHEER ESOT AER ERASE AAAS HS SSS 
S262 % * $279 * 
5253 # PROGRAM CONSTANTS s =, S280 * RESERVED STGRAGE AREAS * 
S258 a '3 5281 ¢ * 
5265 ESTER HRH SATS SHRKS GRACE SAAGS SSE ARALHK HECK HESSH SSPE TSR ES EER SEEKS SSE RAAK ST 652682 EKSESRARHSERE TH GARKESRAEKKRSEORESHSHESHHS ASHSKHE SH AFAESESRASGRESRKSSSSASHA SSS 
6256 # ro S283 % 
BIB4 Of 3254 S257 f4 o¢ Yaz eae &, BSCE 96 33CE $284 EINE oC MLE FOG? PROGRAM INDECATORS 
3388 060602 3336 S256 12 oc IL]|Ve Ve 5285 2 
SEB? OCOS 3368 $259 13 pe Lees fe": 33CF 3300 S286 SWS os xL2 DATA SWS SENSE AREA 
S389 34 S2as $266 14 o¢ FLREtae a? BacFr S287 LINKIS EOw Swse-! 
3284 26 S3GA S261 £32 ac Li t22a4 S2e5 2 
S262 # f- 3301 2202 5289 wORKI os xXL2 USED BY COMMON COMMON 
3388 Fi 2268 S262 0% o¢ casas ‘. 3303 3304 5290 WORK? DS XL2 SUBROUTINES PROGRAM 
336C Fe SSBC 5264 D2 oc CLitaF 529% ¢ ORK 
$265 * ee 3308 3306 5292 WORK3 Ds KL2 FGR uSt BY TEST AREAS 
33BO 1234 322BE €266 Kiet oe ML 28 123e% . BZ3s07 2308 5293 wORkKS os “KE? SGUT ENES 
33BF oa8C SBS S26P XGO4EC oc KLS°G4Bc * 3306 SADA 5294 WORKS os xe &e¢ 
£268 6 A 5295 & 
23ci1 0000 B3Cz S26E ZERO oc XL2°00* ne 3308 33DC 5296 FOPCUT os xXLE | COMMON TOP OUTPLUY AREA 
23c3 ii 32C3 S278 ELEVEN oc mLperge 3300 330E S297 IOPIN 9S KL2 COMMON TOP INPUT AREA 
B4Ce& OGOS 34CS S272 MASE oc RL 2* GOSS? o 5298 * STORING 
B2c6& 90008 RPC? S272 UNMASK ec xL2e°90ge° &, 3S3GF 230F 5299 LENGTH oS KER DATA LENGTH - SUL TIBYTE £6458 
33c8 370¢C 33Cc9 S272 ODOFA oc AL 2d ODGF } DCOF aborPess S*06 ¢ 
Z3Cca 3701 23C8 S27a DOCFAL oc A_LOC TCDD od} DDDFet AGDRESS FODG DATA? ake 33E% $301 Ace EGU wey ADDRESS COMPARE STOP YALUE 
33cc 2646 S3cCD 5275 INTAOR oc AL2 € BGNENT } 3326 INF ROUTINE ACORESS i 32EO Z3E0 5202 ACRB cS KLE 
3276 $ 33€1 BS3Ei S203 ache os xLi 
g S204@ 8 
S 33e2 S3E2 8705 INDEX os ALY INTTEAL ALS TNDEX VALUE 
33€3 23E3 £306 EXTtZn os Kei EXTERNAL ZONE VALUE 
wa 23E4 33ES S3GF EXTAR os XL2 EXTERNAL RESISTER ADDRESS 
fe BSE6 BSE? S2C8 ALSAR os KLZ ADDR LOCAL STORE aAdDOrESS 
33E8 BSZESG S3G9 ZLSAR os XL2 ZONE LOCAL STORE ADOPESS 
co S3ta , 33EB S310 DLSAR os XL2 DATA LOCAL STGRE ADDRESS 
mesieee oe ye 33eCc 3B3ED S3Li CSAR os Kis CONTROL STORAGE ADDRESS SO pe 
S312 ¢ 
C: S3EE 3313 EXT Eau 2 EXTERNAL REGISTER LOAD AREA 
oo B3EE 3400 $314 os XL 32 
$315 © : 
Cc 240E S316 EXTIN EGU = EXVERNAL REGISTER SENSE AREA 
- 34C0E 2420 S317 os XL32 
§3i18 # 
” Zace $319 ALss 3 €ou s ACDR LOCAL STORE (BY LOAD AREA 
x. 342E 3¢40 $320 es xL32 
S32i * 
C° 348E 5322 ALSBIN EQu ¢ ADOR LOCAL STORE 18? SENSE AREA 
“ 34aE 34860 5323 os KL 22 
S324 # 
c BaGE S325 arisd €ou = ACOR LOCAL STORE (0) LOAD AREA 
, 3a6E 3480 5326 os XL32 
E327 & 
[hy 348E S328 ALSDIN ecu € ADDR LCCAL STORE (0) SENSE APEA 
348€ 34a0 5329 os XU32 
S230 # 
C Z484E S331 7LS EU * JONE LOCAL STORE LOAD AREA 
Fe Bae 2acd 5332 os xL32 
$333 ¢ 
B&4ce 5334 ZLSIN EQU * ZONE LOCAL STORE SENSE ARES 
ee 34CE 26ED 52235 cs XL32 
$336 * 
#5 BEE S32? OLS €Qu t DATA LOCAL STORE &£O0ad AREA 
eS 34EE 3620 $238 os KLEE 
5339 * 
352E 5240 OLSIN €Qu * DATA LOCAL STORE SENSE AREA 
© 352E 3ESé0 5341 os X64 
S742 
ats, 356E 3S6E 5343 KREG os XLi K REGISTER LOAD AREA 
a 5344 * 
32571 5345 OPEEG EOU Se GP REGISTER LOACO AREA 
CATE ISAUGTS OSNOV7S PROG IO cis—-1 OaATE 1S5aUG75 OSNOW7S PROG 1G C1is-§ 
EC NOo &27785 e27e27 PAGE 47 °° NO. &27785 827627 PAGE a7R 
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INDEX REGISTER 1 
INDEX REGISTER 2 


PROGRAM STATUS REGISTER 


CURRENT LEVEL 


CURRENT LEVEL 
PROGRAM LEVEL 


CURRENT LEVEL. 


SECTION SENSE SWITCHES 


xeore 


PROGRAM MOCE REGISTER 


ACDORESS RECALL REG 
ADORESS RECALL PEG 


INSTRUCTION ADDR REG 


EXIT TO AMOP IF IN STG 


MESSAGE / HALT IOENTIFIERS 


xesis 
x*s52¢ 
xes 3° 
x*c1900° 


cen ecewe ne oe ne ee ae ae 0 ee A ED A Ee AD DO AD SY AD ED DA ED AD EP ED SD DD 


SOLID ERROR DETECTED 
INTERMIEITTANT ERROR CETECTED 
ERROR OCCURRED ONLY ONCE 


DUMMY HALT 


FOR 


*PRINT*® CALL 


3340 COMMUNICATION AREA (COM) INDICATORS 


x*B0* 
x*ioF® 
x*o1f 


x*80* 
xeage 
x*20° 
x*30* 
x*os° 
xeoae 
x*oe* 
x*o1° 


IO? EXTERNAL REGISTER ADDRESSES 


x*ore 
xeo2* 
x*o3¢ 
xeose 
x*06¢ 
x*o7e 
xeoge 
X*OAe 
x*oet 
x*0b8 
x*oEF 
xtore 
xeaae 


MICROPROCESSOR ADDR STOP SET 


LOAD SECTION FAO ONLY 


AMOP IN EXECUTION INDICATOR 


TEST STARTED 
TEST ENDED NORMALLY 


TEST ENDED wITH ERROR CONOITION 
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GENERAL 
PURPOSE 


( musY BE RESET 
Ay USER) 


PROGRAM INDICATORS 
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18M MAINTENANCE OLAGNOSTIC PROGRAM : PART NOo 4267607 + IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247607 
PAGE a9 fe PAGE aoa 
c1si 2240 ATTACHMENT TESTS - MoD 22 Cc 2340 ATTACHMENT TESTS - MOD 12 
EPR LOC OBJECT COOE aopR STMT SOURCE STATEMENT CROSSREF ERENCE 
0013 $425 Oxc €au x* 43° Co eyws0L T LEN VALUE DEFN REFERENCES 
0015 5426 FTI EoU xeqas* 
0016 5427 FCT EGU x®Z68 < ACR a oo? 33€1 §301 
0017 54628 S61 eau x?378 , ; Co aces A 001 33E0 $302 $094 
0019 5429 B00 €£Qu xe1e* ACRD a 001 33€1 §303 5096 
0018 5430 Cc2 £au xeage po BOROUN A004 t0:1C 0733 o713 
Oo1F 5431 SBO EQU xeiFe . ADRERR & 004 3008 0724 0710 
: 0000 5432 MIARO EQU x®00% ALS ADDR FGR MI1aR FOR FROG 000 ADRSTP C O01 0080 63¢3 
0004 5433 TAR EQU xe oa? ALS ADOR FOR MIAR FoR PROG 00% : g7 AOS ¢ 001 coco 65418 a757 
OOIE 5434 OSi EQU x*iE¢ ALS aDOR FOR OS ADDR OF PROG 7 €CHNL) <=. ADSOS & 006 1FOS 2658 2669 
COOA 5435 OS2 EGU x*0a° ALS aDOR FOR OS ADOR OF PROG 2 (FILE) acsos a cO4& 1FFO 2674 2669 
0008 5436 OS3 EGU x*oBe ALS ADOR FOR CHNL TRAP INDEX . ~~ a0so6 A 004 200A 2680 2675 
0600 $437 OODFI EOQU x*#06C00" ODOF FIELO IN CONTROL STOR . £CSO07 A 004 2017 2€86 2681 
5438 & aosos A 004 2024 2692 2687 
542329 O goeicheleiceeeleicaineesseee sana tase eee eer ere rere as ee 2 ALSAR A 002 2357 5208 4666% 4478% 6479% &491% aS502% 4503% 4507 45242 
§440 & - pcP SECTION REFERENCE TABLE ' & ALSB & O01 3a2E $319 4467 
544i & ALSBIN & O02 zaeE $322 ‘ 
02290 5482 SWOD EQu x#9200* SYSTEM AGDEL pene A cdi 346E 532 2429" 21304 2131 2132* 2133*% 21913 2192* 23937 21948 2195" 3ea7e* 3879% 
Saas & 7 3BB80% 3881% £492 
o2n2 5444 SIZE . €oOuU x*®o0202° MAIN STORAGE STZE ALSDIN A 003 34e€ $38 
0204 $445 CPU eau x*O20488 CPU OPTIONAL FEATURES - ALSERS A 004 2048 2714 2703 2709 
5466 & \. sl SOK a 008 2029 2699 2666 
0200 5447 S3YTES Eau xe¢oz20De SECTION SENSE SwITCHES 28-2F awcP c oo2 4000 £468 4108 4230 
5468 * ~~ AWOPGE A 004 2828 2130 #109 
o212 54489 TEST EQuU x90242° TEST CONSOLE SWITCHES . aMOPID a O02 OATE 0030 4105 
0216 5450 LIK eau x*o216¢ LINK YO NEXT ROUTINE OR SECTION AMOPLD A 006 2813 4ii21 4106 
O21A 5451 PRINT €Qu xeo2 tae PRINT A MESSAGE f AMOPLK A 00O& 2AE8 4095 3807 3928 S172 S216 
021€ 5452 UNPACK Eou x*021€ * UNPACK DATA ~- HEX TO £BCOIC ~. amopsw c 00% 9001 §395 3806 
0222 5453 HALT EQu x70222° HALT AND OLSPLAY HALT IDENTIFIER AMOPS? & 004 2840 4133 41008 
0226 5454 PACK EQU x°Q0226* PACK CATA - EBCDIC TO HEX yp AMOP S2 A 004 2832C 4132 4101 4112 
o22a0 5455 LOAC Eau x*Q22A* LOAD NEXT SECTION OR RECORD L_ AMOPX A 008 26 44 4134 a0gs= 4098 
O22 5456 EXIT eau K*O22E* : SECTION TERMINATE MESSAGE ARR Cc 003% cocs $372 3608 3795 3921 3946S 3989 4095 4144 4165 4182 6193 4203 4214 
S457 * 4225 4236 8247 4258 4269 a289 «64291 4302 4313 4328 6335 436i 
14 ee gett 0232 5458 UTAE eoU x*20232° OCP UNIT DEFINITION TABLE ENTRIES @ 4397 6433 4462 £472 4487 4897 4562 4548 4571 4596 4623 4641 
5459 * J 2668 4689 4700 471i a722 4733 47448 4755 4766 4777 4788 4799 ae sone ee ee 
5460 Pri iuetiieee em eeuatet geamenaseeeis seeeaee ase se es ee n 4810 4823 4832 4883 4854 3879 a901 4911 4926 4941 “951 4966 
5461 * OTHER REFERENCES EXTERNAL TG THIS SECTION © 4990 soit 6023 S049 50€3 5076 5086 Sit2 5126 5135 5148 5167 
6462 * asTP A 604 3237 5107 
0800 S462 LPIMAG EQu xeoeoc® 5203 PRINT IMAGE FIELD go ASTOR A 004 324aAa Size 5112% 
0878 5464 CHNFLG €oau x*o878* CHAIN IMAGE FLAG %~ ASTPOL A O04 3242 5122 $108 
0879 5465 CRYFLG eau x*o0a79° 3277 MICROCCDE FLAG BasSsR A O02 28 67 4155 4145 4147 
CB7C 5466 LPDATA £au x*os7c® 5203 PRINT DATA FIELD BEGIN A 004 288e5s 37958 0053 0:66 0272 0406 Carte 0542 0610 0678 C762 0870 0910 0982 
S467 & € 2102 1317 1503 1655 1830 2350 2583 2744 3022 3204 3637 
82000 S468 AMOP eou x*a000° ADAPTER MANUAL OPERATIONS PROGRAM BEGINX A 004 2995 3909 3795% 
6C00 S469 LOR eou x*6co0o0* MICRO- CODE LOADER PROGRAM Cae A 004 2894 3806 3798 
5a70 * . BEGIN] A O06 28DF 3833 38190 
3700 5471 OODF equ x*3700* OCISK DRIVE OATA FIELD BEGIN2 A 004 2980 3905 
5472 ' BGNINT A 004 2Rea8g 4144 i7ss 1757 3970 2972 a072 4074 4363 $275 
S472 i ( sentst A 004 2995S 3921 o066 0114 0168 0185 0212 0237 o274 o2e9 © 60308 0323 0342 0255 
5473 peanuanssnencenseesestshSSeeeseeeG ste Ee Meee GS ESS SESE SS EERE ESSE ESS O SS 0371 o8ce 042% 0433 0443 0476 0489 osot o511 0544 0557 0869 
S474 ¢ ey 0579 0612 0625 0637 0647 e690 «(0791 0840 o8s72 0890 0931 0955 
S475 * PATCH AREA FOLLOWS ( END CF CODE } B: o98eé 10€1 1203 1122 3141 1197 1214 1256 1318 1363 1383 1393 
5476 *¢€ : *' 1410 1435 1446 150¢& 1550 1587 1656 1688 1712 1793 1834 2020 
6477 * cceeccnces CeCeeeCeeaeeeOCGEeseeeKeeeseEeeeeEdse EES ES SEES TESTES SSES ES . : 208% 2128 2237 2296 2436 2639 2760 2843 2904 2937 2971 3068 
3578 S478 PATCH Fou i ™W 3261 3382 3472 36&54 3717 
S479 © : BCPARI A 004 1107 o931 0925 
FFFF 5480 END : Coe aA 008 21368 0939 0933 
| Xs @cPaR3 A 004 11F9 0947 0941 
| Bc0 c¢ 001 0019 5429 4326 
‘ ec a 001 356F 5346 44408 45066 4576% 4655 a998 
\ ta CCH c col 000% sate 4293 
\ cce c oof ooil $424 4282 
CDPOLY A 004 271€ 3€08 3295 3402 3491 357% 3735 
; S“CDPOL1 A 006 2726 3610 3612 
! copor2 A 004 2734 3614 36088 
‘ gx COPOA A 004 2476 3279 3276 
wCOPOO0 A 0048 2400 3233 3466 3640 
coPpoi A 006 24123 3234 3240 
CATE 15AUG75 OSNOVTS PROG 10 cis. DATE TSAUGTS OsSNOV7TS PROG 10 cis-1 
EC NO. 827785 s27827 PAGE 493 Cc NO o a277e5 e27e27 PAGE &9A 
; . Bo 
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18M WAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247607 1BM MAINTENANCE OFTAGNOSTIC PROGRAM 
PAGE so PAGE SOA 
C151 3340 ATTACHMENT TESTS ~- MOD 12 gets 3340 ATTACHMENT TESTS - MOOD 12 
CROSS-REFERENCE / a ; CROSS-REF ERENCE 
. | , 
SYMBOL YT LEN VALUE DFFN REFERENCES , Ce eneon. T LEN VALUE OEFFN REFERENCES 
| 
cOPO2 A 001 2418 3235 3233* 3234 3238* 3239 i pp CC22 & 004 2146 2859 2953 
CCPO3 A COL 243A 3236 32348 ' "+ C0221 A 004 2388 3143 3129 
COP08 A 004 2469 3275 3476 CO222 a 004 238C 3146 3167 3170 
COP09 A 006) 2470) 3278 3286 | y- €C223 A 004 23A2 3158 3153 
COP1O A 002 2478 3280 3275¢ 3278¢ 3283 , \» C0224 aA 004 239€ 3152 3093 
COP16 A 004 24a8 3302 3608 3496 3576 C0225 A O08 23913 3147 3024 3092 3143% 3160 3163 3166% 3169% 
: COP17 A004 2480 2305 3200 | ¢ C0227 & 004 2380 3169 3164 
COP17A A 004 248C 3322 3306 , %. CO23 A 004 2148 2862 2°57 
CCPIVE A 004 24C8 3315 3538 ' CC27 fh 00% 2165 2873 2864 
COP18 4 004 28aCO 3318 3313 ' C029 A 004 2187 2886 2877 
COP18E A 004 2405 3321 3541 ' \ ¢€¢035 A004 219€ 2893 2887 
COP 20 A 004 240A 2324 3219 co4s A 004 2238 2964 2955 
COP21 A O01 24E1 3326 3332 _ gt O87 A 00% 2282 2999 2985 
coP22 A 004 24F1 3335 3328 / ® CPU € 001 0204 5S4a4s 
CCP23 A O0O% 24F8a 3237 3343 CR A 001 3570 5347 1981 1997 2049 3327 3333 3338 3344 33469 3355 3509 441% 45078 
CDP24 A 004 2508 3346. 3339 Lym 4554% 45776 4657 5000 
COP25 A 001 250F 3348 3354 | \ CRYFLG C 001 0879 5465 
COP26 A OcOl 2520 3357 3363 | CSAR A 002 33€0 S311 4600% £6318 46458 4646% 4676 4678 
COP27 & 004 251F 3358 3350 ‘oe C15 A 001 0000 0006 
COP28 A 004 2520 3369 3359 > & C1? A 002 28D6 3828 3612 3815 
CoP29 A 004 253E 3375 3552 C19. A 002 2820 4122 410& 410€ 
COP33 a 004 2500 3417 2412 C DDOF C 001 3700 S47: 3083*% 3084 3084" 3119 31275 2152 3237% 3248 32498 3305 33858 3386 
COP34 A 001 25AE 3419 3425 1M 3386% 3428 3434 3436 3442 3446 3450 3452 3458 3579 3588 5273 
CDP35 A 006 2586 3428 3421 3433 ' 5276 
COP38 A 094% 25C7 3436 3429 3443 | + DODFA & 002 339 5273 3081 3263 3388 3719 
CCP40 &€ 004 2508 3444 3437 2449 |. 9porFal A 002 32C8 S274 3476 3563 3685 3594 
COP42 A 004 25€9 3452 3445 3457 ODOF1 C 001 0600 $437 2404 
COP50 A 004 25FA 3460 3453 1 = OTFFOA & 004 286€ 3767 3762 
CDP51 A 00% 2606 3468 3257 | \. DIFFOL A 004 2760 3642 3243 
COPS3 A 004 2614 3474 CYFFO2 A 002 2775 3652 3éa3e 3737 3757% 
CCP55 A 004 261C 3478 3287 1 ¢ DIFFOS A 004 280A 3717 3758 
Le «= COPSB A OO) =6264A) «63500 3506 | \ DIFFO7T A 00% 2845 3748 3743 7 
COP59 A 0046 265A 3505 3502 DIFFOS A 004 2858 3760 3738 eee ee aye ea ge yy tt 
COP60 A004 2667 3516 3510 | fr os A 001 34EFE 5337 4366 
COP61 A OO 266E 2618 3524 ' \ orsark a 002 33668 5310 2874" 4367 42375 42688 4403 44610 44242 
CO0P6S A 004 267EF 3527 3520 DLSIN A 003 352€ 5340 2876 2883 2884 4402 
COP66 A004 268E€ 3536 3530 gst C 0OL 0003 5414 1222% 1328* 13648 1395% 1405 1412% 1425 1437% 1448% 14818 1589% 24276 
COP68 A 004 2684 3554 33681 1 Mae 2648% 38518 4271 4801 
COP7TO A001 26F4 3578 3¢e4 , DSTAA2 A 004 1575 1356 1352 
CDP71 A OOl 26FS 3587 3593 / ¢ CSTAAS A 004 1586 1377 1372 
COP72 &£ 004 76F4 3588 2580 | & DSTAAS A 004 15AE 1380 1377 
CCP7S £004 2705 3596 3589 OSTA2 A 004 1576 1362 1356 
COP76 A 004 .2716 3603 3598 / a DSTOL & 003 155A 1346 1338 
CHNFLG €C 001 O878 S4Eé4 ;  OS1 C 001 COLE 5434 3073 3077 3103 3265 3269 3391 3394 3418 3479 3482 3557 3560 
CKSTP £004 32846 $121 3710 3722 
CKSTPA A 004 2259 5126 5122 i am OS2 C 001 O00A $425 1052 1857 12895 1920 1945 1970 2023 2234 2244 2299 2379 2642 
CKSTPX A 004 3261 £120 51268 Cc 2646 2700 2706 3714 3726 
CLKRST A 008 31A7 5023 3826 3860 : 0S3 C 001 0008 5436 3146 
CLERSX A 004 31CD S041 502 3* 1 er ONC C001 0013 5425 O171® O0188% 04098 0417 0422" 0430 0440 04448 0453 0688* 0731 2430% 
CLR A001 3575 5354 3833 3823 GS 4260 4845 
com A 0O1 OA19 0026 3806 3824 3830* 4103 ; Dt aA 00% 2388 5263 4019 
cor A001 208 2768 2759*% 2773 2778 2791 279% 2797% 2800 gon O2 A GO1 338C 5264 
Coot A004 2070 2760 2798 2801 | ks ELEVEN A 003 33C3 5270 19054 2797 
co07 & 004 2004 2781 2774 : ERRHLT A 002 2a08 4079 40694 
coos 4004 2084 2789 2784 1 om ERRO A 004 2A9E 4053 3964 4044 
co10 A 004 2000 2800 2795 : Se FRRPRT A 004 2007 3989 0084 00S2 o130 O17@ 0195 O207 0220 0232 0245 0282 O301 0316 
cn2 © oci 0018 £430 4779 1 0335 0352 0366 0380 0415 0428 0438 0451 0483 0496 0506 0519 
cc2o & 004 2008 2806 2792 | 0551 0564 0574 0587 O619 ©0632 0642 0655 0724 0805 0857 0884 
CO201 A 004 22F2 3068 3127 3150 | 0894 0926 0634 0942 0950 0965 1000 1020 1030 1064 1080 1117 
C0207 A OC1 2303 3080 3025" 712e@ 3135* ; 1132 1163 31169 2189 21222 #1233 41250 1274 #12293 134C #1353 1358 
co2} A 004 2131 2849 2891 | 1374 1380 1368 1403 1423 1442 1463 21477 1487 1516 1523 1532 
C0210 A 00% 2332 3102 3097 | @ 1544 1662 1£74 1582 1602 1618 1630 1637 1663 1700 1727 1733 
C0212 A OO1l 2345 3310 302E" F13260 ' 1742 1749 1766 £775 «321786 «1802 18611 1883 1901. 1925 1950 1975 
CO2Z13 A 0O& 2344 3111 3195 | 1991 2000 2007 2012 2055 2101 2116 2274 21806 2262 2313 2465 
C0217 A&A 004 2355 3119 3114 i © 2479 2493 2505 2511. 2671 2677 2683 2689 2692 2714 2776 2786 
COZ19 A004 2366 3127 3120 2859 2865 2879 2918 2957 2999 3099 3107 3116 3122 3156 3302 
bs. 
DATE 1SAUG7S OSNOV7S PROG ID Cis-t, DATE 15 aUG7S5 OSNOV7S PROG 10 ciS—1 
€27027 PAGE SOA 
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TBM MAENTENANCE OFAGNOSTIC PROGRAM ; PART NOs 2247607 - 16K MAINTENANCE OTAGNOSTIC PROGRAM PART NOc 4247607 
PAGE Si, PAGE Sia 
{ 


c181 3340 ATTACHMENT TESTS — MOD 122 grate 2240 ATTACHMENT TESTS - MOOD 12 


hai 


CROSS-REF ERENCE CROSS-REF ERENCE 


‘ 
| 
; [ e 
SYMBOL T LEN VALUE DEFN REFERENCES Ene SYMBOL YT LEN VALUE CEFN REFERENCES 
3308 3315 3321 3330 3341 3352 3361 3414 3423 3431 3439 3487 | &3 2123*% 1126 L2778 LL7Ge L215* 12378 125688 1277% 1283* 1795% 2088% 2094% 
3455 3504 3812 2822 3532 3562 3591 3600 3745 3767 | ee 2140% 2147*% 217% 2177 29738 2987* 29G1i* 3635e* Sb4Ie 4216 &746 
ERPPX A O64 Z2ATO £039 a2Q074% : FTRAPA A 004 IB7F 2104 2099 
ERRPXL A 008 2A75 4036 399% ove FTRAPG A004 1890 235139 2114 
ERRPOO A O0O& 2A0F 3992 , \ FTRAPC A GO& 19013 1885 1681 
ERRPOL A 002 ZA35 4609 389% 6017 ‘ FTRAPL A 004 ASA 3953 1948 
- ERRPOZ A 006 2A4SA 4019 403% i, FYRAP1 A 0O# = 1A71 1976 1973 
ERRPOS A002 2A61 4027 4023% _ FYRAP2 k 004 1086 1987 
ERRPPO& A 002 2A63 4026 015% 4030% FRAPS AOO& 1A95 1994 1989 
ERFPPOS A 003 Z2A6E 4023 2020 : 2 FTRAPS & 006 IAAF 2002 iss8 
EerRSw € 001 0020 S402 3963 4646 :  €YRAPS & 004 2AB7 2010 2005 . 
EXT ¢ 0©of G22E S456 FYRAP6 & OOL 1AC3 2016 203% 
EXT A O01 33E€F S323 0169% O171% C180 186% C148" 0:97 O2138 6222 0238# 6287 62508 c27Se _ FRAP? A OO 613 2058 2053 
028% 02904 0296% 02968 0293 0309% 9316 0324" O328# O336* O337 0343% FTRAPB A&A CO4 39EC 1904 1899 
G3256e O372% 0385% 0409% 0417 O422" 0430 C0460 044688 0453 O477% 0485 FTRAPO A 004 AIG 1926 i923 
0450 0498 6508 6512# O82! 0545% O555 o55ae 0566 O576 O580* 0589 i. €TRPX1 A OO& GARZ 2006 1982 1985 i 
0613* 0621 0626" 0634 0686 O648*% 0657 GC6BCS C681 O682% CEB3* O686* . . FYRPEx2 a 664 280C 2055 2050 
O68S* 068E% C6B7# OCEPE* OF70Y 06738% D739 O739% 08732 O912* 0914 O9I6% FYRP12 & 001 I68DF 2146 2236" 2383% 2186% 
0986 0968* 0983 0985S" 09892 0991% 0997 1002 10078 L622" 1022 1032 , FTRE14 A OOS IBCE 2140 2286 
1037* 1086 1651* 1054*% 1062% 1065% 1068 1104 3106 1108% L123e 11364 [ \ FYRPLS #2 O6& 2€20 «2177 2169 
L143" 2157 11728 11778 LI7Ge FBIs 12154 1217s 3222% 21240% 1268% 1261% FTRPi7 a 004 iC2C 2383 2172 
1.266% 12778 1261* 1296" 1322% 13268 1366*% 13952 1405 14128 18625 1437* » FTRPI8 4 96% 1C38 2366 2178 
14468% 1481% 150€* i155€8 15894 16208 1657* 1666% 1795* 1859% 1870* 1873% . FYRP19 &£ 601 131CD6 2258 2264 
1923 1953% 2636% 2088*% 2096 2140% 21a7%% 2171 2177 22276 2230" 22398 é FTRP20 A O0& CEG 2267 2260 
2290* 2369 2421% 2424* 2427% 24308 24284 2445% 2455% 246738 2987* 29918 vy FTRP25 & OCL 1030 2309 2215 
2994" 3332 3318 3537 3549 3838% 3e4te 364¢8e 3BS5is 3854% 3857*% 4167 _\ FIRP27 & 004 1N4D 2318 2311 
4167* 61688 4340 HALT C601 O222 5453 4078 
ExTacR 4001 o810 O741 0054 010 og HES ¢ Gor soos 5420 3312 3318 3537 3540 48235 
EXTADO A 005 OASE 0055 9039  \ rep A 004 3265 5Si35 1780 4364 4400 4676 4881 4953 4992 S026 5088 
EXTAD1 A 006 COAST O0&B oo76 HIOPX A CO& 3275 5343 $1354 
EXTAD2 A 004 CAAT 0095 0090 yp WLTIO A GO2 ZAK &057 3958% 4041% 051% £069 
EXTADZ A 004 CABS 0103 0097 -& wtLTOO € GOI C1GO 5388 3e08 3822 4118 4128 ta hel 
EXTAD@ A O04 OfO2 O124 o124 HLTS1 ¢€ GO1 O051 S385 4053 
EXTADS A 004 0826 0153 0137 ef WLTS2 c 001 0052 S386 4041 
EXTAD6 A 005 OASO 0106 0139 “ HLTS3 C€ OO 6053 5387 3958 
EXTAP & 002 33ES $307 0080# 0083* 0066 0126% 0129*% 0132 41738 &21B84% 41958 4205% 42168 4227% TAR c coi 0010 5375 
4238% 4289% 42608 42718 4282% 4293% 4304* SALSe A3B26e 4345 46919 47024 ¢ YTASTP & 008 323E $7220 
47127 4724% 4735% &746% 4757% S768% &779% 4790% 4801% 4612% 4823% 4634% \ $CKSTP A O0O# 3255 Si2s 
48450 48€9 4891 IND & OO1 33CE 5264 O712 0714% 0O733* 3797 3834 3634% 3923% 42951 3954 39578 3963 3966 
EXTIN A 001 340& 5316 0699% 0700 0700* 0709 0726 O727 O728 0729 0730 O731 4868 Qo 3992 4038 60843 40466¥ 4£076% 46768 45008 4516 4526 64529 4535% 
EXTZN A COL 33£3 5306 43688 LcaNDEX & 001 3362 5305 024% 5036 5059 
FAOID A 002 Ga20 0031 INTAOR A 002 33CD S275 
FAOFLG C COL C010 5394 32820 ( INTRIN A GOS 265€ 4152 4144% 
FBI C001 0002 5433 09F5* 0997 1002 1022 1032 1046 1054% 1062¢ 11068 1870% 2036*% 2399% 10PGG A CO# 3100 5053 0074 Gi20 O7S7 0846 1433 1536 1686 1717 1889 1916 1941 1961 
4167 41723 4691 2062 2110 2164 2255 2306 2473 2486 2653 2766 2853 2911 2947 
FAIOA C 001 OCCA 5439 4702 c 2980 3090 3293 3403 3489 7569 3733 
FBI0S A£ 004 I134E 1144 1173 » YCPGOX A 008 3201 SO71 S$049% SOEIF 
FEI0S A 004 1308 1166 21258 YOPGO2 A G04 31F7 S066 505% 
FRI06 A 004 13€4 1172 1187 v TOPIN A 002 330€ S297 OCT? 008S 0123 0175 0183 O192 0198 0204 0217 0223 G22¢9 O242 
FBLCT A OOS 136C 1177 1167 MY 0268 0279 0285 0298 0304 0313 0319 90332 03538 0250 06363 0277 
FeF0B A 004 1410 1192 2161 0413 0418 0426 04312 0436 044% C449 0454 04681 0485 0464 0499 . 
FRI10 A O00& 147F 1240 2231 At, 0504 0509 0517 0522 0545 0554 0562 0567 oS72 O577 OS585 0590 
FBI1S & 004 1404 1277 1272 Sa , 0617 0622 0630 0635 0649 0645 0653 0658 o802 o854 OC8B2 GB8Bé 
FREI17 & 004 L4FF 1253 1289 0892 0924 0932 0940 0948 0963 0997 2002 1012 1023 3027 1035 
FBO € 001 O00E 5422 0545* 0£€3 0558% 0566 0576 0580 O5E9 OF€86% 0729 O91 4% 2438% 41678 r, 1042 1067 1075 1112 1129 1160 1156 1186 4208 1229% 1226 1235 
4184 47133 7 1207 1271 1288 i335* 1336 1342 1350 2372 1385 1399 1400 1406 
FcY Cc 001 OCLE 5427 4204 1419% 1420 142€ 1455* 1460 1466 127% 2146864 15133 1520 3560 1579 
FFFF A002 2876 3778 3124 ! Ps, 1611 1627 1634 1660 1669 1695 1724 1746 1772 #1783 #41799 «+1608 
FHF Cc 00% OO0O7 5417 1240% 1322 1873% 22398 2455* 3854* 3657* 4315 4812 o 1880 1858 1922 1987 1972 1968 2004 2010 2098 2113 2168 2259 
FYG c 00% O008 S4t5 0477% 0485 0490" 0498 0508 0512" 6521 0683%* O726 0916* 0968* 1007*% ; 2265 22310 2216 2462 2667 247€ 2489% 2490 2496 2665 2668 2674 
10124 1037* 1066* 1068* 130e6* 1143% LES7 1172% 1L131#* 1264* 1296*# 2230* ‘ 2680 2686 2702 2708 2773 2779 2763 2856 2950 2984 3096 3104 
: 2421" 2424" 4168% 4205 4735 : © 3299 3407 341% 3420 3426 3495 3575 3597 3742 3762 486871 5199% 
ryt c 0601 0015 $426 4768 5205 
FTO c 001 0006 S416 0613* 0621 0626* 0634 0644 0648% 0657 0684% O727 1261* 4195 4724 a TOPOUT A 002 330€ $296 S5178% 5179* SIi91* 5195 5198 
FTR Cc 001 oO00D $421 0275" 0284 0290% 0294% 0296% 0305 03509* 0318 0324* 0328* 0330* 0357 © y opRUN A004 3101 5049 4974 
0343% 0356% 0385*% 0€85* 0728 O872* 0912* 09568 0983% 0989* 0991% 1104# 1% A 001 3384 5257 2658 2889 2890 3238 3278 3610 3960 4048 4387 43288 4423 4824 
DATE 1SAUG7S OSNOVTS PROG ID cisS-1 DATE 15AUuG75S OSNOV7S PROG ID cis-1% 
EC NOe 627785 e27627 PAGE St E;*° NOs 627783 827827 PAGE Sia 
4 } 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


cisi 2340 ATTACHMENT TESTS - “OD 12 


SYMBOL T LEN VALUE OEFN REFERENCES 


4450 4451 


12 A 002 3386 5258 
13 A002 3388 52£9 4030 
132 A 001 338A $261 
14 A 001 2389 $260 
KREG A001 356E 5343 4247 4352 
: 4661 4674 
5034 S0oSO* 
5141 5152 
Lace & 004 3213 $086 
LACRX A004 3233 5102 50868 
LALSB & 008 2089 4473 1651 2233 
LALSBI A 00& 2092 4862 3875 
LALS82 A 005 2089 4478 4£30 
LALSD A 004 2D0F 44897 0068 0316 
1956 2022 
2469 2482 
3268 3289 
LALSD1 a 004 20C8 4487 213% 2196 
LALSD2 A 005 20EF 4502 4531 
LALSX A 004 2€6€0 4537 4462% 44728 
LALSX! A008 2ESC 4836 A463% 4474% 
LALSX2 & 004 2650 4533 4521 
LALSO1 A 004 2DFB 4506 4468 4483 
LALSO2 A 008 2€25 4520 4515 
LeOO A004 2CSA 4324 
Le0oOox A 00& 2C66 4330 4326 
LCCH & 004 2C2a 42591 
LCCHX A 004 2036 4267 42918 
LCCL A 0084 2C1iA 4280 
LCCLX A 008 2026 42286 42802 
Die Les £004 2F23 4623 4605 
LCSAR A 004 2F84 4668 4625 4649 
LCSARX A 004 2FAS 46864 46682 
ics! A004 2EE3 4595 0057 0106 
2124 2202 
2928 3028 
LCSIX A 004 2FIF 4616 4596* 4599 
LCSIX1 A 006 2F18 4€17 45972 
LCSI01 A 005 2EF7 4603 4612 
LCSIO2 A 003 iF1l4 4614 4609 
LCSL A002 2F38 4671 
LCSR A002 2F3A 4632 
LCSX & 004 2F3F 4636 4623% 
tcLs A004 2C9F 4361 3889 
LDLSX A 004 2CEC 4392 4361 
LOLSX1 A 004 2CEB 43593 4262e 4388 
LOLSO1 A 00& 2CAA 4366 4389 
LDLSO2 A 002 2CCS 4277 43698 
LOR C001 6C00 SaéE9 3781 3835 
LORGO A 006 28D7 3820 2316 
LORTD A 002 OA1IC 0029 3812 
LORLD A£00& 28CO 3818 3813 
LOST A 004 2CO0OA 4269 1223 1329 
3259 3849 
LOSTX A004 2C16 4275 4269% 
LOxC A 004 28FA «258 0:72 0189 
LOxcxX A 004 2C06 4264 42588 
LENGTH A 001 330F 5299 2224" 2395% 
4387" 4420 
LEXT A004 2CEA 4335 4175 4186 
4306. 4317 
LEXTAR A 004 3008 4879 0081 0327 
LEXTX A 064 2C9A 4356 4325 
LEXTX1 A 004 2€96 4355 43268 
LEXTOL A 002 2C8D 4349 34638 
OATE 15AUG75 OSNOV7S 
EC NO. &27785 227827 


Ceoeoeeeeoeeeoeoeeeoeoeeeeeee 


CROSSREF ERENCE 


4523 4824 4611 


4372 4282 6408 4418 4510% 4533% 4561 
4682 4861 4866 4885 4894 4957 4996 
5057 5064* 5068 509% 5100 S1I07* 5110* 


2378 2382 2641 3072 3264 3390 3476 


0793 0842 1430 1535 1682 1714 1856 
2026 2106 2156 2160 2243 2251 2296 
2645 2649 2762 2849 2907 2°43 2976 
3393 3397 3481 3485 3559 3565 3721 
3ee2 


4477 4£487% 4497% 4501 451584 
44682 44968 


4492 4227 


0764 0812 1677 1705 1832 1864 1904 
22467 2272 2354 28663 2448 2587 2625 
3054 3131 3208 3279 3372 3468 3548 
4615¢ 


3e21 


1365 2396 3413 1438 14649 1482 1590 
3852 


0410 0423 0445 0697 O716 0740 2431 


2636% 2A72% 2066% 3282% 337E* 3644% 3685" 
423% 4447 4£450* 4465* 4490%* 4520 45235 
4197 4207 4218 4229 4240 4251 4262 
4328 , 

2338 4857 


4564 
S204 
Si2i* 


3556 


1865 
2302 
3076 
3725 


1928 
2748 
3651 


1892 


3845 


388 ae 
4534" 
4273 


PART NOo 
PAGE 

4630 4634 
5030 5032 
5124* 5137¢ 
3709 3713 
1911 1936 
2386 2441 
3086 3145 
3729 

2030 2063 
2806 2900 
3753 3894 
2351 2428 
3934% 4384 
4284 4295 
PeOG 1D 
PAGE 
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16M MAINTENANCE DE AGNOSTIC PROGRAM PaRT NO. 4247607 


PAGE S2a 
oe c1si 3340 ATTACHMENT TESTS ~ “O00 12 
ee 
CRCSS-REFERENCE 
© cyan T LEN VALUE ODEFN REFERENCES 
- LFBI A 004 2668 4165 0987 1063 1107 1871 2037 2400 
oc LEBIX A 004 2886 4177 4165* 
LFeRO £004 288A 4182 0546 OS59 0581 C695 0718 0742 C915 0956 2439 4170 
-LFBOX A 004 2896 41848 4182¢ 
Lect A 004% 2C32A 4302 
LECTX A004 2C€46 4308 43026 
Puoe A 004 2C4A 4313 1241 1323 1874 1915 1940 1960 2041 2104 2152 2240 2486 3855 
. 3858 
LEHFX A 004 2C56 4319 43138 
c LFTG A 004 2B8AA 4203 0478 0491 0513 0692 0721 O745 0917 0969 1008 1013 12066 1069 
1109 1144 1162 1265 1297 2233 2422 2425 3846 4171 
LFIGX A 00% 2886 4209 4203% 
“ LETO & 004 289A 4153 061% 0627 0649 0693 0720 0744 1262 1279 
LFTOX A004 2B8A6 4199 41938 
LFTR A 004 288A 4214 0276 0291 0295 0310 0325 0329 0344 0345 0257 0358 O386 02387 
a, 0694 0719 0743 0874 0913 0957 0984 0990 0992 1105 1124 1139 
{? 1178 1160 1216 1238 1259 1278 1282 1796 2089 2095 2143 2148 
2974 2988 2692 3839 3842 
r LFTRX A004 28C6 4220 £214 
SS. LINK C 001 0216 5450 0039 0153 0252 0258 0388 0394 0456 0462 0524 0530 0592 0598 
0660 0666 0746 0855 0897 0970 1083 1068 2299 1305 1490 1640 
c 1817 2319 2324 251€ 2712 2720 2997 3161 3175 3604 3619 3765 
A 3783 
LINKID A 002 33CF S2e7 3927 £171 5215 
Lk a 00% 3279 5148 5114 $228 
% LEK A 004 3285 5154 51488 
ter A004 269 4571 2183 2862 
c LMBEX A 004 2EDF 4591 4571% 4574 45688% 
\ LMBIX1-A 00% 2€08 4590 45720 
LMBIO1 A004 2E€B5S 4576 ases 
¢ LOAD C 001 022A 5455 3826 4120 
&. LOOP a 003 2980 3933 3956 3961 3993 48049 4086 
Ltocex A 004 2987 3936 3921% Pog eg 
-tLOP & 004 3173 4990 44664 &&11 4556 4560 4626 4973 
- EL CPX A008 3193 S006 ag90t 
LPCNT Aa 001 3572 5350 3905* 3960% 3967 4048% 
c LPDATA €C 001 O87C $466 
\ CPIMAG € 001 0800 5463 
LPSsw C 001 0010 5403 3797 3954 3992 4076 
C LsB0 & 004 280A 4236 1507 3567 $621 2998 
_L~LSBOX A 00& 2BE6 4242 42368 
LSB1i A 004 2B8EA 4247 1658 1667 
LSB1X A 00% 2BF6 4253 42467 
-LSCN A 008 28CA 4225 0170 0187 0214 0239 0251 0373 0696 0717 0741 1052 18660 1909 
1934 1654 2036 2086 2150 2226 2353 2446 3844 
=~ LSCNX A 00& 2B06 4231 42258 
LoL¥xopr A 004 3141 4966 0876 0919 0959 1009 1038 1071 1110 1125 1150 1183 1202 1225 
1243 1267 1264 1325 2331 1346 1367 i415 1470 1509 1607 1623 
Cc 1876 2093 2343 2858 3891 
-LXOPIA a 0C5S 3140 4971 4979 
LXOPIX A 004 316F 4985 4966" 4969 4982% 
-~LXOPETL A 004 3168 4988 &967% 
{ LxTaRx A 004 30Ef 4896 48798 
L2s A 004 2044 44233 2225 2396 2637 3066 3254 3376 3646 3649 3886 
~LZLSKX A004 208E 44566 4433 
‘LZLSK1 & 00& 208A 4455 4424% 4448 
LZLSO1 A 004 2058 4640 4453 
yn, MASK A 002 33C5 5273 
“MYARO C 001 O000C 5432 0069 0117 0794 0800 0843 0849 1431 1536 2683 1715 1866 1912 
1927 1957 2027 2107 2357 2252 2303 2470 2483 2656 2663 2763 
@ 2850 2908 2944 2977 3087 3290 3298 3398 3405 3486 3494 3566 
3574 3730 3741 
MIAR? € 001 0006 5433 2161 2167 , 
ea A OO! 3216 5228 3995 8000 4005 4&012% 4014 4066 
é: MSGN A020 3323 5229 3995 3995 3995* 4056 4066 4067 
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ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2 * LAST CHG 2:C5 20 REH 36 RE AERA EARS ARATE SESE EE EERE ES EEE EE EES EA EE REE ERE SHEA EERE ERE EERE 
3 DECK 4 37 % * 
4 SEQ 0 38 * SECTION ENTRY * 
5 TREP 39 * * 
oo0c 6 C163 START O REh 40 REKERESESEEEREESE EAE EEE SEEKERS ARR STE SERERREEREE EES AEERR EEE EEE ES EE ATE TER 
T $4 GEEKERERSERGE RE REREREERES REST EES RE RE EERE E ERASE ESSERE RES SESE ESTER ESTES GL * 
8 * OAZA 9} OA 34 42 RTNPFC OC XLL*O1' ROUTINE O12 | 
gS SECTION PREFACE * 0A3B 00 OA3B 43 DC XL1*OO* , 
10 *% * OA3C FFFF OA3D 44 DC XL2°*FFFFE ONLY GNE ROUTINE IN SECTION ; 
iY ERKARERERERE SEEKS EEERAES SRSA EERE EERE SESSLER RFS EE EHS ARREARS EELS STREETERS 45 * 
12 * OAZE 38 80 1104 £6 ENTRY TBN IND,EGNSW GO TO INITIALIZATION 
6A0C 13 ORG x*OAG08 OA42 CO GO 1174 47 BF LDAMOP PROCEDURFS IF FIKST ENTRY 
14 * 48 * 
CACO C163 OAOlL 15 PIC DC XL2°CL63° SECTION ID AND REVISTGN LEVEREH Q446 38 OF OAIS 49 TEN COM,AMOPSW BRANCH IF AMOP WAS 
GAO2 00 OAD? ié oc XL 1°06? SECTION FLAGS O&4A& CO 10 6002 50 eT AMOP#2 ABNOKMALLY TERMINATED 
OA03 O01 OA03 17 RIN DC XLIF Ole CURRENT ROUTINE NUb BER 51 * ! 
OA04 0000 OAOS 18 DC xi Z2*0000° RESERVED OAGE OO OC LIOF OF AE Se cic LOLTDO1) -FALTEL+2 BRANCH iF MICRO-DIAGNOSTIC | 
OA0G OCAZA GAOT 19 PFC oC AL2ZCRTNPFC) ADDRESS GF RGUTINE PREFACE OQA5& F2 81 52 53 JE SEARCH MONITOR LOADING IN PROGRESS | 
OAO8S FFFF OA09 20 be XL2°FFFES RESERVED 54 
21 * OAS? CO 87T OZLA 55 RESTRT & PRINT PRINT 
OA0A €14000 O AOC 22 UdTO OC Xi 3*C14C00° 3340 ULT ENTRY OAS5SB %6 0A 5B 56 BC XL1L°46% MECRO DEAGNOSTICS 
CAOD 101006 OA OF 23 vUoTl BC xL3*101000° 5471 UGT FUR AMUP LINK CASC 17 OA5CT 57 DC AL LOMSGO2N-MSGO241 3 READY MESSAGE 
CA1LO OA18 24 0S XLO RESERVED OA5D 1077 CASE 58 DC AL 2(MSGOZN} 
25 * OASF C106 OA6G 59 oC AL2¢(HLTOO} 
OA1S 00 OAI9 26 COM bc KLiftoOos 3340 PLM CUMMUNICATIONS AREA 60 * 
OCALA OAILA 27 DS XL} RESERVED OA6} OC O1 1118 1ODA 61 RYC CSARC2PeNULLS MAIN FAR = 0000 
28 * OA6T 3C 14 1119 - 6Z MV I PTR»X*14* POINTER = 5 
O0A18 0000 OAILC 29 LDRID OC xL2*0000° MICROCGLE LOR (C27) IN STG IND OA46B 3C BF ILIA 63 MVi INDEK,X* BFF INDEX = X*BFS 
OALD OALE 30 AMOPID oS AL2 AMOP (C19) IN STG INC ICATUR 6% * 
OALF 0000 0 A20 31 FAOIC oC xL2*COOOoOo! 3340 MICRO-CGDE (FAO? IN STG OL6F CO 87 OC4B 65 8 GO GO TO START MICRO-PRGGRAM 
; 2 * 66 
OA21 0A39 33 SVPFC DS XL 25 SECTION PREFACE STCRKAGE ARLA. 
34 * . 
DATE 15AUGTS5S OSNOVTS 24MAR76 20MAY76 PROG ID C 16-3DATE 15AUG75 O5NOV75 Z24MART6 20MAY 76 PROG ID C16-3 
EC NOw 827779 827527 827579 571872 PAGE 1 EC NOw 827779 827827 827879 571872 PAGE 1A 
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C163 


ERR LOC OBJECT CODE 


0 ADB 
OADE 
OAE1l 
O AEG 


OAET 
OAEA 


OAEO 
OAF2 


OAF6 
OAF9 


OAFC 
0300 


0B06 
o80B 


OBOF 
OB13 


OB17 
OB1D 


0821 
0B 24 
0628 


08 2B 
OB2F 


0B33 
0837 
0838 
0B39 
0536 


0830 
0841 


0843 


DATE 
eC NO. 


02 
7D 
F2 
75 


70 
F2 


ic 
co 


78 
F2 


co 
OE 


ic 
38 


co 
co 


oD 
co 


79 
39 
F2 


3A 
co 


cc 
cé 
18 


o1 


F2 
01 
01 


Fi 
ol 


Ol 
87 


FO 
10 


87 
00 


02 
EO 


87 
87 


02 
81 


80 
20 
90 


20 
87 


87 


1LO8F 
€101 


03 
00 
03 
02 


00 
09 


ADOR 


1118 02 


OADS 


00 
4B 


OEEE 
1118 


1116 
2114 


OF1L2 
OF 26 


1116 
OADB 


oo 
1114 
08 


1114 
OBOF 


021A 


CO 87 0222 
C101 


CO 87 


OAT3 


LEAUGTS | 
827779 . 


100C 


02 


1lll2 


OB 37 
OB38 
OB3A 
OB 3C 


0B 42 


CSNOV75 
827827 
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4247609 
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PART 
PAGE 
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2163 3340 MICRO-DIAGNOSTIC CONTROL PGM - MOD 12 
STMT SOURCE STATEMENT =RR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
123 FHEREREEE ERATE EEREEE RESALES EEE EE ERAT ERTEREREREEEREEEEEKS SEREEE ACHE ES LVS SEEKERS ER EREREE RET AE SESE ERASE ER SERREEERKE EEEERESESEEEE EERE HEREEESEEEE 
124 # * 176 * * 
125 * LOAD MICROCODE INTO CONTROL STORAGE * 177 * MODIFY CONTROL STGRE WITH PATCH AREA DATA * 
* * 178 * 
ee SKESEKRESRKSHE KS SSHESSEHE SHE SEK SKSKSEKSEHKSEKSKSKHAKKKKSKSSSE SEKEKKKKESEKEKESKESCESRSES 17¢ *& PATCH FORMAT = (PLTCi: AREA 8000 - 80FFI 
128 * 180 * 
129 LOCS LA 30 4XR1) eXR1 ADVANCE 181 # XXVYYYZZZZZZ ce caccaccccccces 
130 cul O(,XR1}sMSADR MAIN STORE 182 #* WHERE X = LOAD ID ¢ 1 BYTE ) 
131 JNE LOCSOL POINTER 183 * Y = CS ADOR ( 2 BYTES ) 
132 b 20 ¢XR1) XR] 184 & Z = DATA ( MULTIPLES OF 3 BYTES 2. 
133 * 185 «& NOTES HE ORDER BIT GF Y HAS FOLLOWING SIGNIFICANCE —- 
134 LOCSO1 CLI O(¢XR1).CSAOR BRANCH IF NOT. 186 @ OFF - INSTRUCTION FOLLOWS, ON ~ DATA LEFT FOLLOWS 
135 JNE tOC S02 CONTROL STORE ADDR WORD 187 * 
136 * 188 * HE GROER BIT OF Z HAS FOLLOWING SIGNIFICANCE — 
137 MVC CSARe 202,XR1) SETUP CONTROL STGRE ADDRESS 18¢ *# OFF - INSTRUCTION, GON — DATA (LEFT GR RIGHT) * 
138 8 LOCS GO TO ADVANCE MAIN STORE PTR 190 FHSS SSESCESEAEAESRESEEEE TEESE SE SREKSEEESESRECEAEEASEEEREREKEEESAEEEKELEEES 
139 * 191 & 
140 LOCSC2 TBN OCeXRLDeX* FOS BRANCH IF CONTROL OB47 C2 O01 7700 192 REPCS LA PATCH,XRI1 POINT TO PATCH AREA 
141 JT REPCS STGRE LOAD IS COMPLETE 193 * 
142 * OB4B8 70 FF OO 194 REPOL Cis Oty XRLIV TERM BRANCH IF PATCH 
143 B LCSAR LOAD CONTROL STOKE ADOR REG OBSE F2 81 D1 195 JE RE PX TERMINATOR BYTE 
144 196 & 
145 ALC CSARD(11 ,.GNE ACVANCE CONTRO. STORE ACORESS O851 40 00 OO LIOF is? cic OF 1-XR1},L010 BRANCH IF 
146 # OB56 F2 8i OD 198 JE REPOS APPLICABLE PATCK FOUND 
147 My¥C OPREGe 203 -XR1) GET CONTROL STORE DATA 199 # 
148 SEF C,X*EOr RESET UNUSED BITS OB59 D2 O01 03 200 REPOZ LA 30—eXRI)2XR1I Loop 
149 # CBSC 7O FF OO 201 cil Of sXR1I,TERM UNTIL NEXT 
150 LOCSO3 B WRCS RRITE CONTROL OBSF CO 01 OB59 202 BNE REPOZ TERMINATOR FOUND 
151 8 RoCS STORE AND READ BACK 203 % 
152 # OB632 F2 87 BC 204 J REPX GG CHECK FOR END OF PATCH AREA 
1535 cic OPREG(3),SYPIN¢2 LOOP BACK IF NO 205 
154 BE LDCS CONTROL STORE ERROR OB66 ic O01 11138 O02 206 REPOS MVE CSAR. 242-XR1} SAVE CONTROL STORE ADDRESS 
i55 * 207 * 
156 TBF OUeXRIISBITO OCB68 D2 G1 G3 208 LA 3(—¢XR1)-XR1L ADVANCE MAIN STORE POINTER 
157 TBF C,BiT2 BRANCH IF ERROR 209 & 
158 JF CSERR TS UNCGRRECTABLE OB6E CO B87 OEEE 210 REPOS 8 LCSAR LOAD CONTROL STGRE ADOR REG 
i159 % 2il * 
160 SB CeBIT2 SET INVERT BIT O&72 %C O62 1116 02 212 MYC OPREGe 21 3¢XR1LI GET CONTROL STORE DATA 
161 B tocso3 AND GO TO RETRY 213 3 
162 * O877 38 80 L114 214 TBN C.BITO BRANCH iF 
163 CSERR 8 PRINT PRINT OB78 F2 90 55 2i5 JF REP12 MICPO--INSTRUCTION PATCH 
164 oC XL1*Cé6* CONTROL STORE 216 % 
165 OC AL LO MSGO3N-MSG60341) ERROR MESSAGE OB7E CO 87 OF26 217 5 ROCS READ CONTROL STORE 
166 oC AL 2(MSGO3N) 218 # 
167 OC AL2(HLTO1) Cp82 38 80 1118 219 TBN CSARD,BITO BRANCH IF 
168 * OB86 F2 90 09 220 JF REPO6 LEFT CON. %OL STORE PATCH 
169 B HALT ERROR HALT O1 221 % 
170 DC AL2(HLTO1) 0889 OC OO 1115 lili 222 MYC CROLL} »SVPING}] RETAIN LEFT DATA BYTE 
117i * . OB8F F2 87 06 223 J REPO? SKIP NEXT INSTRUCTION 
172 8 OVRLAY GO TO RETRY CS LOAD PROCEDURE 22% * 
173 * CB92 OC 00 1116 1112 225 REPOG MVC YCL)sSVPIN¢2 RETAIN RIGHT DATA BYTE 
226 * 
OB98 OC O1 LilC 1126 _227 REPO? MVC WORKEL(2)5¥ DATA BYTES (°CR® & *Y¥*) TO 
228 * WORK AREA 
OB9SE OF OO 11IC ALIC 229 REPOB ALC WORK4+1(1),WORK41 GENERATE 
OBA4 F2 20 06 230 JNOL REPOS RIGHT OATA 
OBAT O€ OO 1114 LODE 231 ALC Ci ld, TwO PARITY BET 
OBAD CO O1 OB9E 232 RE*%O09 BNZ REPC8 
233 * 
OBBl 36 FD 1114 23% SBF C,X*Fp¢t RESET UNUSED BITS 
235 @ 
OBBS OF OO 1118 1118 236 REP1LO ALC WORK (1), WORK GENERATE 
OBBB F2 20 06 237 JNGL REPLI LEFT DATA 
OBBE OE OO 1114 1LOE4S 238 ALC Ct1l),EIGHT PARITY BIT 
OBC4 CO 01 OBBS5 239 REPLI BNZ REP19 
240 * 
OBC8 3B F5 1114 241 SBF C,X*F5* RESET UNUSED BITS 
OBCC 3A 10 1114 242 SBN Cox*10° SET PARITY BIT 
Z4MART6 20°. AY 76 PROG ID C16-33ATE 1SAUG75 OSNOV75 24MAR T6 2 OMAY 76 PROG ID C16-3 
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ERR LOC OBJECT CODE 


OBDO 
OBD3 


OBD9 
OBDF 
OBES 
OBES 


OBED 


OBFL 
OBFS 


OBF9 
OBFF 


0c 02 
O0CO06 


OCOA 
OCOE 


oCl2 
Ocis 


OciB 
OCIE 


OoC22 
OC25 
0C29? 
oc2D 


OC3L 
0c 37 


0c38 
OC 3F 
0Cc43 
OCs? 
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F2 


00 
F2 


39 
co 


3A 
co 


OF 
02 


7c 
co 


D2 
34 
38 
ca 


oD 
co 


3c 
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c 
3C 
3C 


87 


AO 
90 


20 
87 


00 
01 


FF 
01 


01 


08 
96 


00 
81 


OA 
00 
18 
Cl 


1E 
L1IE 


1114 
L1leE 
OBD9 
O8DF 


1114 


OF 12 
OF 26 


1116 
10 


1114 
0833 


1114 
OBF i 


1118 
03 


06 
OBGE 


Ol 

LLIE 
LLid 
OB 4B 


LIOF 
OAST 


E117 
1116 
1119 
LILA 


15AUG75 


827779 


243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 

262 
263 
264 
265 
266 
267 
268 

269 
270 

271 

272 
273 
274 
275 

276 

2zT 
278 

27? 
280 
28: 

282 

283 
284 
285 


1116 


10E9 
LIE 


Llle 


1OOC 


OFAE 


OSNOV75 
827827 


* 
2 


REP 12 
* 


REP13 
REP 14 


e 


% 
REPLS 


* 


REPX 


24MART6 
827879 


MYC 


ALC 
ALC 
BOL 
BN2Z 


S8F 


CLC 
JE 


TBF 
SF 


SBR 
ALC 
LA 


CLE 
BNE 


tA 


TBN 
BF 


CLC 
BE 


MVI 
AVI 
MVE 
MVI 


2OMAYTS 


S71872 


ADDR STMT SOURCE STATEMENT 


REPI5 
WORKN( 3} ,OPREG 


C(1),xX10 
WORKN(3) »RORKN 
REP13 

REP14 


Ce X*E0! 


WRES 
ROCS 


OPREG(39,SVPINEZ 
REP16é 


CeBITOLBIT2 
CSERR 


Ce BIT2 
REPIS 


CSARDC LES ONE 
ZC yXRiPSARL 


Of »XREV, TERM 
REPOS 


LG eXRLPeKRE 
WORKN» ARE 
WORKN-1Le BITS 
REPO! 


LDIDGL}eFALTBLe2 
RESTRI 


CSARE,X* ORF 
CSARO,X*008 
PTReK* LBS 

INDEX, X*CL* 


PART NO. 
PAGE 


C163 


ERR LOC OBJECT CODE 


GO TO WRITE CONTROL STORE 


CONTROL STORE DATA TO ®ORK AREA 


GENERATE ‘ 
MITRO-HKORD OcéB 
PARITY BIT 
OC 4F 
RESET UNUSED BITS 9c55 
WRITE CONTROL ocs9 
STORE AND READ BACKIS 
ocso 
BRANCH IF NO 
CONTROL STORE ERROR océ2 
GO TO ERROR HALT oC 66 
1F UNCORRECTABLE ERRCR OC6A 
OCSE 
SET ENVERT BET 
AND GO TO RETRY ocT2 
ADVANCE CONTROL STORE ADL oc?s 
ADVANCE MAIN STORE POINTER oc7s 
LOOP UNTIL octet 
TERMINATUR FOUND oC 80 
oces 
tOoP OCBA 
UNTEL 
END GF RE OCBE 
PATCH aREA LOC T7FFR RER 
Oc Sz 
BRANCH IF MECRO-DEAGNOSTIC GC 96 
MONITGR WAS JUST LGADED 
ocec 
MAIN TAR = OAOG OCA 
POINTER = 6 OCAS 
INDEX = x*®C1* 
OCAA 
OCAE 
OCB4 
OCBA 
occa 
Occs 
occs 
occc 
coco 
Oc b4 
ocb8 
ococ 
OCDF 
OCcE3 
OceET 
OcEB 
OCEF 
PROG ID C16-3DATE 
PAGE & EC NOe 
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C2 


co 
31 
1c 
co 


34 


31 
31 


38 


oi 
02 
87 
c5 
OL 
87 
cs 
cs 
cs 
02 


FF 
01 


06 
oo 
80 
86 
87 


02 
60 


87 


20 
50 


87 
00 
00 
00 
40 
81 
87 


cs 
c5 


06 


80 
$0 


04 


C5 


c5 


40 
$0 


LOEF 
1116 
OFSE 
10€0 
1116 
OF SE 
LOBE 
10D6 
L0C4& 
02 


06 

OC 4F 
2114 
ELMS 
Liis 
Lis 
OF 36 


ELEG 
1116 


Or36é 


Liis 
LE16 


OF 36 
11i5 
1i} 

Ll 

1LES 
1115 
OF36 


10CE 
iccaA 


10AB 


OALS 
04 


i046 


10 AC 
LOAA 


1104 
OC FF 


LS AUG7T5 
827779 


ADOR STMT SOURCE STATEMENT 
287 
Z88 * 
289 * 
290 # 
291 
292 * 
293 GO LA EXTBL» XRL 
294% * 
10DA 235 GOl MVC GPREG(3},NULLS 
296 * 
297 8 LGP 
298 * 
2399 i.1o LEXTZ,X°C5* 
300 * 
Ol 30i faVC Yol€2eXR1L) 
302 # 
303 GO2 8B LoP 
304 * 
305 Lic LEXTAR,X*C5® 
306 Lio LALUD,X*C5* 
307 Lid LEXT. X*C5° 
208 *# 
309 LA 24_XRL} XR 
310 * 
Zit CLI Of eXRi},TERM 
312 BNE GOi 
313 * : 
314 MVE CeX*06* 
113¢ 31% MYC CROELPePTR 
316 SBN CRyBITO 
3i7 MVI Yox? BOF 
318 © 
319 8 {xoOP 
320 * 
321k RYE Cex * OZ 
Li? 322 MYC ¥¢(1),CSARB 
323 * 
324 8 txoPe 
325 # 
326 SBN CR, BIT2 
Lils 327 MYC ¥C1},CSARD 
328 # 
323 B iLxGP 
330 * 
LLLA 331 AVC CREL}, INDEX 
iL1A 332 MVC ¥ (1), INDEX 
Lis 333 ALC CRELIZCR 
3234 SEF CReBITL 
335 SBN CReBITO+BI 7 
336 * 
337 B LXxOP 
336 * 
339 Lio LINDEX,sX*C5* 
340 Lid INACC,X*C5* 
341 * 
342 MVE KeO 
343 * 
34% TBN COM, ADRSTP 
345 JF Go3 
346 * 
347 SBN K, BITS 
248 * 
349 GO3 Lio KREG,x*C5* 
350 LIo RSPCRX®CS* 
351 * 
352 TBN IND, AMOPIN 
353 BF GO4 
354 * 
OSNOV7TS 24MAR 76 ZOMAY 76 
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ARE RRAEREERERES EE EAEREERERS SES SEARS EER EERE ORES ETE EEE SEER ES EERE EEE ESE 


* 


START MICRO-PROGRAM EXECUTION * 


= 


SERKERERER EER ELEAES FRESE RSREEAASH ESS OREERESARERES THESES KEE SHER EERE LESS 


POINT TO EXT REG ADOR TABLE 
CLEAR UP REG FIELD 

LOAP GP REG 

RG-R7T ~--> EXTERNAL ZONE REG 
EXT ADDR & DATA --> OP CR & Y 
LOAD OP REG 

R3-R7 --> EXT ADDR REG C(EXTAR) 
OP REG Y ~-> A REG --> D REG 
D REG -~> EXTERNAL REG 
ADVANCE EXT ADDR TBL POINTER 


LOOP UNTEL 
END GF AODRESS TABLE 


BUILD 
*SMQDE® 
MICRO- INSTRUCTION 


EXECUTE *SMODE® INSTRUCTION 
BUILD *SABE® 

MICRO- INSTRUCT EON 
EXECUTE *SABI® ENSTRUCTION 
BUILD *SADI® MECRO- INSTRUCTION 

MICRO-INSTRUCT ION 
EXECUTE "SADI*® INSTRUCTION 
BUILD *SABIS® 

OR "SADI® MICRO- 

INSTRUCTION TO 
STORE INDEX VALUE IN ALS 


EXECUTE MICRO-INSTRUCTION 


LOAD INDEX REGISTER 
INITIAL ACCESS CYCLE 


RESET ALL K REG BITS 


SKIP TE NO 
ADDR STOP 1S SET 


SET K REG ADDR STOP BIT 


LOAD K REG FOR RUN MODE 
RESET PCR AND X REG 


BRANCH IF 
AmMOoP NOT ENABLED 
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OcF3 
OCF? 
OCFB 


OCFF 


0003 
OoD07 


oDO8 
ODOF 


DATE 
— NO. 


3340 MICRO-DIAGNOSTIC CONTROL PGM - MOD 12 


00 
81 
81 


30 
3D 
co 
31 C5 
30 
co 


ol 
ol 


co &7 
cio 


110C 
110B 
4002 
10C8 


1118 
0D11 


0222 


15 AUG75 


827779 


ADOR 


0010 


O5NOV75 
827827 


STMT 


355 
356 
357 
3586 * 
359 
360 * 
361 
362 
363 * 
364 
365 
366 * 


24MAR76 
827879 


SNS 
CLI 
BE 


LIo 


CLI 
BNE 


B 
oc 


20MAY76 
571872 


SOURCE STATEMENT 


SWS,0 
LINKIOsX*81* 
AMOP4 2 


RUNMP,X*C5* 


CSARD,X* 01° 
IDLE 


HALT 
AL2CHLTO1) 


PART NO. 
PAGE 


* AMOP * SENSE OATA SWS 
* LINK * AND GO TO AMOP IF 
* 81 x SWS 1 & 2 CONTAIN "el 


START MICRO-PROCE SSOR 


ERANCH IF NO MICRO- 
PROCESSOR HALT ERROR 


ERROR HALT O01 


PROG ID 
PAGE 


C163 


ERR LOC OBJECT CODE 


oDil 
0015 


0D19 
0010 


0020 
0024 
0028 


od2C 
0030 


0D34 
0038 


0038 
OD 3F 


0D43 
0047 


OO4A 
OD4E 


cos2 
0056 
0057 
6058 
ODSA 


oD5C 
o0D60 
0064 
0D68 
006C 


0070 
0074 


0078 
oo7c 


oD8so 


OD86 
OD8A 


ODBE 
0092 


0096 
ODSA 


OD9E 


C16-3 DATE 
5 EC NO. 


co 
3C 


38 
F2 


30 
3D 
co 


31 
30 


38 
F2 


38 
co 


38 
F2 


co 
co 


co 
Ccé 
19 


87 
00 


40 
90 


00 
82 
81 


C7 
C7 


01 
90 


02 
90 


80 
90 


87 
87 


87 


10A8 
C101 


3C 
3c 
co 


30 
co 


31 
30 


31 
31 


30 
co 


30 
co 


co 


08 
01 
18 
Ci 
87 


83 
81 


C7 
C7 


00 


c5 
cs 


FE 
8i 


oo 
81 


87 


0212 
1108 
1104 
110C 
1108 
4002 


LOAE 
111€ 


LL1E 
35 


LLIE 
OD11 


OAIO 
038 


4002 
0011 


O21A 


1117 
1118 
1119 
lLLA 
OC4B 


1108 
4002 


10C2 
LIE 


110F 


1OAA 
10B6 


L1OF 
0011 


1L1OF 
ODAC 


OA73 


15AUGT5 


827779 


4247609 [BM MAINTENANCE DIAGNOSTIC PROGRAM 
2 


3340 MICRO-DIAGNOSTIC CONTROL PGM - MOD 12 


4247609 
5A 


PART NO.’ 
PAGE 


HHERERKECLER KAHLER ESKESEKESEKSES HERR ESSERE SETS KETHESEHKE REET EERAREEERERESEE 


* 


* WAIT FOR ROUTINE LOAD REQUEST FROM MICRO-DI AGNOSTIC MONITOR * 


* 


SHESKSSESEALSESSEKKEKHKKKSESKEERKHEKSEERKKSE SHEL KSEKEKKKSSRSECEKESKKEKES EER EEEERETEE 


* AMOP * 


* LINK * 


* ©g2° 


AL 1(MSGO4N-MSG 0441) 


ADDR STMT SOURCE STATEMENT 
368 
369 * 
376 
371 *# 
372 
373 * 
374 IDLE 8 TEST 
375 * 
376 MVI SWS-1,50 
377 
378 TBN IND, AMOPIN 
379 JF IDLEO 
380 * 
381 SNS SWS,0 
382 Cul LINKID,X*82° 
383 BE AMOP+ 2 
384 ¢ 
385 IDLEO LIO SIDLEsX*C7# 
386 SNS WORKN»X*C7® 
387 * 
388 TBN WORKN,BIT7T 
389 JF PCR 
390 * 
391 TBN WORKN, BIT6 
392 BF IOLE 
393 * 
394 TBN COM, ADRSTP 
395 JF I0LE1 
396 # 
397 8 AMCP4+2 
398 B IDLE 
399 # 
400 IDLE1 8 PRINT 
OD56 401 DC XL1L*Cé* 
ODS? 402 DC 
0059 403 oC AL2 (MSGO4N) 
OD5B 404 oC AL2{(HLTO?) 
405 * 
406 MvVI CSARB»X *OB* 
407 MVI CSARD,X*01* 
408 MVI PTRsX*18* 
409 MVI INDEX ,X*Cl¢ 
410 # 
4il B Go 
412 * 
413 PCR CLI LINKID,X*83° 
414 BE AMOP+ 2 
415 
416 Lio SNSX,X*C7# 
417 SNS WORKN» X*C7® 
418 * 
LILLE 419 MVC LOIOC1 2 sWORKN 
420 * 
421 Lio RSPCR,»X*C5# 
422 LIO SVPReX*C5? 
423 * 
424 CLI LOIO,X*FE* 
425 BE IOLE 
426 * 
427 Cul LDID,0 
428 BE INVALD 
429 *# 
430 B OVRLAY 
431 © 
O5NOV75 24MAR 76 2OMAY76 
827827 827879 571872 


* AMOP 
* LINK 


* 9838 


+ 


* 


ALLOW OPERATOR INTERVENTION 


CLEAR DATA SW SENSE AREA 


BRANCH IF 
“MOP NOT ENABLED 


SENSE DATA SWS 
AND GG TO AMOP IF 
SWS 1 & 2 CONTAIN *82® 


SENSE 
IOLE STATUS 


BRANCH IF 
PCR REQUEST 


LOOP IF MICRO- 
PROCESSOR IS STILL RUNNING 


BRANCH IF NO 
ADDRESS STOP EXPECTED 


EXECUTE AmOP 
RETURN TO IOLE LOOP 


PRINT 
MICRO-PROCESSOR 
HALTED MESSAGE 


MAIN IAR = OBO] 


POINTER = 6 
INDEX = X*C]1* 
GO TO RESTART MICRO-PROCESSOR 


GO TO AMOP IF DATA 


SWS 1 & 2 CONTAIN *83° 


SENSE 
X REG 


SAVE X REG VALUE SENSED 


RESET PCR REQ AND X REG 
SET SVP REQUEST 


LOOP BACK IF 
NOT LOAD ID FROM X REG 


BRANCH IF 
INVALID LOAD ID 


GO TO FIND REQUIRED LOAC 


PROG ID 
PAGE 


ClE-3 
5A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C163 


ERR LOC OBJECT CODE 


OOA2 C2 


ODA6 70 
ODA F2 


ODAC 3C 
ODBO 3C 
d0B4 3C 
oDB8 3c 
COBC CO 
ODCO 1C 
00C5 D2 
o0cs 02 


oDceB 7D 
oBcE CO 


0002 40 
ood? CO 


ooos CO 
ODDF 46 
ODEO 19 


ol 


FF 
ol 


OB 
00 
18 
Cl 
87 
60 
OL 
co | 


FF 
81 


00 
01 


87 


1060 


COE3 €100 


Opes 35 


- ODES CO 
ODED 10 


ODEE OD 
OOF4 F2 
COFT OD 


OOFD F2. 


GEOO C2 


GEO4 3C 
c£as OC 


GEOE BD 
OELL F2 
O€14 BC 


OELT OF 
GELO OF 


OC€Z3 36 
OE27 OE 


ee&20 30 
GESL CO 


OE35 35 
GE39 3D 


GATE 
€c NO. 


3 ' | 
©ee2eoeoeeeneeeneonenaeneneneaeneaeenseoeeoee ee ee 0 08 6 8 ®O 


Ol 
87 
02 


82 
02 


04 


02 


00 
60 


dO 
Ol 
2A 


00 
00 


02 
60 


54 
82 


02 


70 


15AUGT5 
827779 


OFAB 


02 
14 


1117 
1118 
1119 
111A 
OC4B 
1060 O01 
02 

O1 


oo 
ODA 


00 LLOF 
00C 8 


O2TA 


L10E 


U22A 


O8Cca 
09 
OBCA 110A 
35 


1107 


0804 


O£18 
OELE O£18 


00. 
03 
00 


08D4 08D4 
08D4 08D4 


10E€8 
O£18 10DC 


O£18 
O€08 


110€ 


o8al 


ADOR STMT 


ODDF 
ODEO 
ODE2 
QDES 


ODED 


OSNOVTS 


527827 


3340 MICRO-DIAGNOSTIC CONTROL PGM - MOD 12 


PART NO. 
PAGE 
C163 

SOURCE STATEMENT ERR LOC 
433 Seaaenaneeneeesseeceaesenencenngaeesseseceseneceeeseseeeseeeceserecence! O€30 
434 * ; + 
435 * LOAD DIAGNOSTIC MICROCODE SECTION (FAI-FAS) INTO MAIN STG * 0£40 
436 * +} QE44 
437 EEKRERERERERRE ECESRESEEEERESE SESE ESRES ERE ESE RTA EEE RRS E SEE REESE ERTSEE EEE 
438 * 0E47 
439 LDFAX LA IDTBL—-1,XR1 POINT TO LOAD ID TABLES )  OE4B 
440 * 
441 FAXOL CLE 9-1 €yXR1 09 TERM BRANCH IF NOT OE4E 
442 JNE - FAX02 YET END DOF TABLES } 
443 * OE52 
444 INVALD MVI CSARB,X*0B* 0ES6 
445 MVIL  CSARD,X*00° MAIN TAR = 0800 ! 
446 MVI PTR»X*18° POINTER = 6 0ES9 
447 MVI INDEX eX*CL° INDEX = X*Cl®e 
448 % ' GCES5D 
449 B GO GO TG RESTART MICRO-PROCESSOR 063 
450 * 
451 FAXO2 MVC  MSGOLNs1¢1+XR1) SETUP *LOADING FAX" MESSAGE 4 QE67 
452 * OEGB 
453 LA 2 eXR1PeXR1 ADVANCE TABLE POINTER OE 6F 
45% * b 9E72 
455 FAXO3 LA 1 oXR1LD XR ADVANCE TABLE POINTER O£75 
456 * 
457 CLI OleXR1)eTERM BRANCH IF ns 7 
458 BE FAXO1 ENC UF TABLE OETE 
459 * 
460 CLC Ol 1yXR1)¢L DED LOOP IF REQUESTED ogBL 
461 BNE  €AX03 LOAD 1D NOT YET FOUND OE84 
462 * OE87 
463 B PRINT PRINT + OE BB 
464 oc XL1*46° *LOADING SECTION FAX® OEBE 
465 oc ALIUNSGOLN-MSGOL4L! 
G66 DC AL2(MSGOIEND b _ge 92 
467 Dc AL2¢HLTOO? 0E96 
468 * 
469 L MSPTR,XR1 SETUP MAIN STORE POINTER } oof 9A 
470 * 
471 NXREC 8B LOAD Dut OESE 
472 oC XLL®LOF b OOEAS 
473 * 
474 CLC - REC #74039—XFAl CHECK FOR COMPRESSED DJL OEAT 
475 JL CMPRS RECORD, 1F SO CONTINUE DJL? EAA 
416 CLO - REC 4+ 740.32 e XFAS DJL 
417 JNH  CKTYPE DJL OEAF 
478 * UNCOMPRESSED DATA BUST BE HNOLDE 
479 CMPRS LA RECN, XR2 POINT TO MICROCODE RECGRD OEBS 
480 # OEBS 
481 MVE $1410 SETUP BYTE COUNT »  oEBB 
4282 CMPOL MVC S24101),S141 IN ALC INSTRUCTIONS OEBE 
483 # 
484 CLE Ol »XR2)4X*DO8 CHANGE ANY HEX *DO* ) ofC1 
485 JNE Sl BYTE IN MICROCODE OECS 
486 MVE Ol eXR2VeX*2ZAE RECORD TO HEX *2A° 
437 * } OEC9 
488 Sl ALC  RECN(#-*) RECN SHIET OFF TWO UNUSED BITS 
489 $2 ALC = - RECN #-#} RECN FROM EACH BYTE IN RECORD CECD 
690 * + = EDO 
491 A NEG1» XR2 UPDATE RECORD POINTER OED6 
492 * OEDC 
493 ALC S1+*101),ONE UPDATE SHIFT BYTE COUNT } 
494 * OEEO 
495 CLI S141 ,RECN-REC LOOP UNTIL ALL UNUSED EITS HAVE OEE3 
496 BL CMPO1 BEEN SHIFTED OUT OF RECURD | OEE6 
497 * 
498 CKTYPE L MSPTR yXRZ SETUP MAIN STORE POINTER OEEA 
499 #* 
500 CLI REC+2eX*70° BRANCH IF LOAD 

b 

Z4MART6 ZOMAY 76 PROG ID C 16-3 DATE 
227879 571872 PAGE 6 Ee NO. 


4247609 18M MAIENTENANCE DIAGNOSTIC PROGRAM 
'6 


3340 MICRO-DIAGNOSTIC CONTROL PGM - MOD 12 


OBJECT CODE ADOR STMT SOURCE STATEMENT 
F2 81 12 501 JE HOR 
502 * 
3D E3 0981 503 ctl REC+1,C*T® 
F2 81 4B 504 - JE TEXT 
505 * 
30 CS 0881 506 cul REC+1,C°E® 
F2 81 92 507 JE END 
508 © : 
co 87 ODES 509 8 NXREC 
510 * 
30 O1 0886 511 HDR CLE REC+11_-X*OL® 
F2 O1 OF 512 JNE HDROL 
513 * 
3A 20 1104 514 SBN IND,BYPASS 
515 * 
OD OO 110F OFAE 516 cic LDID(1),FALTBLe2 
co 01 ODES 517 BNE NXREC 
518 * 
3B 20 1104 519 HDRO1 SBF IND, BYPASS 
3C FF 1117 520 MVi CSARByX*FF® 
ec FO 00 522 MMVI 0(.XR2),LDADR 
7C FF OO 522 MVE O€eXR1L), TERM 
4C O1 02 0888 523 MVC 2(2,XR1i) »REC+LI 
524 * 
34 01 LLOE 525 ST MSPTR»XR1 
D2 02 00 526 LA GE eXRL) oXR2Z 
527 
D2 01 03 528 LA 3CeXR1L}eXRI 
7D F2 06 529 CLi Of ¢XR1) eMSADR 
co G1 ODE 530 BNE NXREC 
75 Gl O02 531 L 20sXR19—eXR1 
co 87 ODES 532 B NXREC 
533 * 
38 20 1104 534 TEAT TBN IND. BYPASS 
Co 10 ODES 535 BT NXREC 
536 * 
C2 G2 O86A 537 LA RET+109XR2 
538 
OO O1 0889 1218 539 cic REC+9(2) sO SAR 
F2 81 1a 540 JE TXTO? 
541 * 
7c Fi OO 542 MVE Ol »XR1} eCSAOR 
C 01 02 0889 543 MVC 202, XR1),REC+9 
544 * 
oc O1 1116 0889 5465 MYC CSAR(2) »REC+9 
546 * 
D2 O01 03 547 TXTOL LA BE eXRLIOXRI 
7D F2 00 548 CLE O( »XR1) oMSAOR 
F2 91 03 549 JNE TXTOZ 
7 31 C2 550 t 2(XR1}.XR1 
551 * 
3D CO 0886 552 TXTO2 CLE REC+6 90 
CO 81 ODED 553 BE NXREC 
554 * 
6C O2 O02 92 555 MVC 2(39XRLV 920 eXR2) 
556 * 
EZ 02 G3 557 LA 34 eXR299XR2Z 
OE OO 1118 100C 558 Ait CSARD(1),0NE 
OF 00 0886 LOEO 559 SLC REC4+ 6013, THREE 
co 87 OEBS 560 eB TXTOL 
561 * 
BC FO 00 562 END MVE 0€,XR2) 4LDADR 
7c FF 00° 563 MY 1 O(sXR1}— TERM 
34 0) LiOQE 564 ST MSPTRyXRE 
565 * 
CO 87 OAAD 566 B SEARCH 
567 * 
L5AUGTS OSNOV7T5 24MAR 76 Z2OMAY 76 
B27TTS 827627 827879 571872 


PART NG. 4247609 
PAGE 6A 


HEADER RECORD 


BRANCH IF 
MICROCODE TEXT RECORD 


BRANCH IF 
END RECORD 


GO TO READ NEXT RECORD 


SKIP IF NOT MICRO- 
DIAGNOSTIC MONITOR CODE 


DJL 
DJL 


SET MONITOR BYPASS INDICATOR 


BRANCH IF MONITOR 
IS NGT BEING LOADED 


RESET MONITOR BYPASS INDICATOR 
FORCE CS ADDR STG GN IST TEXT 
SET LOAD DELIMITER IN MAIN STG 
MOVE END DELIMITER 

MOVE LGAD ID TO MAIN STORAGE 


UPDATE MAIN 
STORE POINTERS 


ADVANCE 
MAIN STORE 
ADUORESS POINTER 


GO TO READ NEXT iF MONITOR 
BYPASS INDICATOR IS ON 


POINT TO DATA AREA OF RECOKD 


BRANCH IF SEQUENTIAL 
CONTROL STORE ADDRESS 


MOVE DELIMITER AND 
CS ACDR TO MAIN STORE 


SAVE CONTROL STORE ADDR 


ADVANCE 
MAIN STORE 
POINTER 


BRANCH IF 
END GF TEXT RECORD 


MOVE TEXT TO MAIN STORE 


ADVANCE TEXT POTNTER 

ADVANCE CONTROL STORE ADOR 
DECREMENT DATA BYTE COUNT 

GO TO PROCESS NEXT MEICRC#ORD 


STORE LAST LOAD DELIMITER 
STORE END OF STG DELIMITER 
SAVE END OF STG ADDRESS 


GO TO LOAD REQUIRED MICROCODE 


PROG ID c16-3 
PAGE 6A 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NG. 4247609 1BM MAINTENANCE DIAGNUSTIC PROGRAM . PART NOw 4247609 
PAGE 7 PAGE | TA 
C163 3340 MICRO-DIAGNOSTIC CONTROL PGM - MOD 12 C163 3340 MICRO-DIAGNOSTIC CONTROL PGM ~ MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
SOQ SHRKEKERETEKEEKSSHKKESSERESSSAKSEKSE KER SEKSERS KS SHEA TEASE KESKSEKKESHESKKEKAHSAKKEKS OF64 31 C5 LILLE 637 LIOG WORKN,X*®C5* LOAD GP REG C 
570 * * 638 * 
571 * SVP INTERFACE CONTROL SUERUUTINES *  OF68 3A 02 11L1E 639 SBN WORKN,BIT6 BUILD SvP 
572 * ** OF6C OC OO 111D 1L15 640 MVC WORKN-1(1),CR INTERFACE CONTROL 
S73 SEEAERSEKKKSEKREKKKERSEKCKEKAKSSHESSSEAKRHKKFEKTACKEEKEGKKSKRMARSSHKESA KR KH KSA OF72 31 C5 LLIE 64} LiG WORKN,X®C5& LOAD OP REG CR 
574 # 642 * 
575 * LOAD CONTROL STORAGE ADDRESS REGISTER (CSARD + «OF 76 3A OL LLIE 643 SBN WORKN,BIT? BUILD SVP 
576 * OF7A OC 00 1110 1116 644 MVC ==+WORKN-1(1)Y INTERFACE CONTROL 
577 + _  OF8O 31 C5 LILLE 645 LIQ WORKN,X*CS® LOAD OP REG Y 
OEEE 34 08 OFL1 578 LCSAR ST LCSARX4+3,ARR SAVE RETURN ADDRESS , 646 * 
579 * OF84 CO 87 0000 647 LOPX 8 +-* RETURN TO CALLING ROUTINE 
OEF2 3C 00 1114 580 MVI C0 X*00" -—> OP REG C FIELD 648 * 
OEF6 OC 00 1115 1117 581 MVC CRO 1) ,CSARB CSAR(B) VALUE --> OP REG CR FLD) 649 *----~-----~—-------~---~--~----- + ~~~ - +--+ +--+ ++ +--+ +++ + —- 
OEFC OC 00 1116 1118 582 MVC Y¥{1)5CSARD CSAR(D) VALUE --> UP REG Y FLO 650 # SENSE OP REG 
583 © 651 # 
OFO2 CO 87 OF4E 584 B LOP LOAD OP REG + OF 88 34 08 OFAB 652 SOP ST SOP X#3,ARR SAVE RETURN ADDRESS 
585 * 653 © 
OFO6 31 C5 1006 586 LIQ LALUD»xX*C5* OP REG Y --> A REG --> D0 REG = OF BC 31 CT 1088 654 LIG SOPC,Xx*C7# SENSE GP REG C 
OFOA 31 C5 10C6 587 L10 LOCSAR,X*C5° CS ADOR --> CSAR : OF9O 30 C7 LIE 655 SNS WORKN,X®*C7® 
588 * OF9% 31 C7 1LOBA 656 L1G SOPCRs»x*C7* SENSE OP REG CR AND Y¥ 
OFOE CO 87 0000 589 LCSARX 8 s-t RETURN TO CALLING ROUTINE OF98 30 C7 111i 657 SNS SVPIN¢1LsX*C7* 
590 * 658 * 
SQ] Benen nn en ren ma enn ren nnn enn nnn mn em wenn men eee OF9C OC OO L112 1110 659 MVC = SVP IN#201)—SVPIN MOVE VALUES SENSED 
592 * WRITE CONTROL STORAGE , OFA2 OC OO 1110 illeE 660 MVC = SVPIN(1),WORKN TO INPUT WORK AREA 
593 * 661 ® 
OF1L2 34 08 OF25 594 WRCS ST WRCSX#3,ARR SAVE RETURN ADDRESS OFAB CO 87 0000 662 SOPX B +-* RETURN TO CALLING ROUTINE 
595 © 663 * 
OF16 CO 87 OF4E 596 B Lop LOAO OP REG ) 
597 * 
OFLA 31 C5 10D0 598 LIQ WRCSLseX*C5* WRITE CONTROL STORE LEFT 
OF1E 31 C5 1002 599 LIQ WRCSReX*C5* WRITE CONTROL STORE RIGHT ) 
600 * . 
OF22 CO £7 0000 601 WRCSX B e+ RETURN TC CALLING ROUTINE 
602 * , 
603 *--------------~---------------------- ----- wa eens ee +--+ -- 
604 * READ CONTROL STORAGE 
605 * b 
OF26 34 08 OF 35 606 ROCS ST RDCSX43,ARR SAVE RETURN ADDRESS. 
607 * 
OFZA 31 C5 LOCC 608 LiG CSACCex*C5* CONTROL STORE --> OP REG i 
609 * 
OFZE CO 87 OF88 610 B SOP SENSE OP REGISTER 
6ll * 
OF32 CO 87 0000 612 RDCSX B -* RETURN TO CALLING ROUTINE 
613 * 
G14 tna ana ee oe Uitndeeeeince beds eue cee en eces b 
615 * LOAD OP REG AND EXECUTE MICRO-ENSTRUCTION 
616 * 
OF36 34 08 OF 4D 617 LxoP ST LXOPX#¢3,ARR SAVE RETURN ACORESS } 
618 * 
OF3A CO 87 OF4E 619 B Lop LOAD OP REG 
620 * ) 
OF3E 31 CS 1080 621 LIO KO4,X*CS? RESET k2 (SERVICE MUDE) 
OF42 31 C5 10D4 622 © LIQ PROC,X*C5# SERVICE PROCESS CYCLE 
OF46 31 C5 1082 623 LIO KO24,Xx*C5* SET SERVICE MOOE ) 
624 * 
OF4A CO 87 0000 625 LXOPX B +-% RETURN TO CALLING ROUTINE 
626 * , 
627 *--~~~----- +--+ - + $+ + - +--+ + + = = + + +--+ _ 
628 * LOAD OP REGISTER 
629 * , 
CFSE 34 ©8 OFBT 630 LOP ST LOPX+3,ARR SAVE RETURN ADDRESS 
631 * 
OF52 31 C5 1080 632 LIO KO4,x*CS5* HALT MICRO-PROCE SSGR ’ 
OF56 31 C5 1062 633 LIQ KO024,x"C5* SET K4& (SERVICE MODE) 
634 * 
OFSA 3€ 08 LILE 635 MVI =WORKN,X*08* BUILD SVP 9 
OF5E OC OO 1110 1114 636 MVC =>WORKN-1(1) 5C INTERFACE CONTROL 
b 
DATE 15 AUG75 OSNOV7S5 24MAR 76 20MAY 76 PROG ID L16-3 DATE 15AUG75 OSNOV75 24MART76 20MAY76 PROG ID 16-3 
EC NOw 827779 827827 827879 571872 PASE 7 yee NO. 827779 827827 827879 571872 PASE TA 






















































C163 


ERR LOC 


OFAC 
OFAD 
OF AE 
OFB6 
OFBE 
OFC2 


OFC3 
OFCG 
OFCS 
CFCO 
OFDS 
OFDS 
OFEL 
OFES 
OFED 


OFEE 


1004 
1c0c 
1014 
1018 


1019 
IOLA 
101B 
1023 
1028 
102F 


1030 
1031 
1032 
103A 
1042 
1046 
1047 


1048 
1055 
1058 
1060 


1061 
1069 
1071 


1078 


DATE 
EC NO. 


3340 MICRG-DIAGNOSTIC CONTROL PGM - MOD 12 


OBJECT CODE 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


ADDR STMT 


OF AC 
Fl OFAC 
Al OF AD 
01000000000000G60 OFC] 
00C00000000000000 
00000000 
FF OFC2 
F2 OFC3 
A2 GFC4 
ALS B5C5DA2505152 OFDS 
535455565 7A3366'; 
A53734AD 
43444546474 2494A OFEC 
3200000000000000 
00000000 
FF OFES 
F3 OFEE 
A3 OFEF 
AF393A323C303tCA4 L003 
2021222324252627 
2829AE24 
2P2C2D2E2F 533200 1017 
0000000000000000 
00000000 
FF 1018 
Fa 1019 
AS 101A 
AG353331A767A866 1O2E 
686 §6B8B14%84C 6230 
32000000 
FF L02F 
FS 1036 
AS 1031 
ACAGDAABGAB5FBOO2 1045 
B4 B7 32 AC00C00000 
00000000 
FF 1046 
FF 1047 

1048 
E2CSCLOSC3C8C905 1060 
C7400 6D6D940E2C5 
C3E3C 9O6D540CEC1 
E7 

1061 
b4C9C3090660C4SC9 1077 
CIC TDSD6EZELCIC3 
E240NSC5C1C4E8 

1078 
C509D940F 6FOFOFL 1O8F 
15AUG75 OSNOVTS 
827779 827827 


PART 
PAGE 


NO. 








4247609 IBM MAINTENANCE DIAGNOSTIC PROGRAM 
8 


C163 
SOURCE STATEMENT ERR LOC 

665 SESSLER EERE EHO EE EH ERE SRE SE HEESTE TECH SEE KEKE EERE EER ETRE ERASE EEEE 1080 
666 * + 1088 
667 * CONSTANTS AND RESERVED STORAGE AREAS * 

668 ¢ * 

669 SESRESCKERE STEERER HERTS ESE KEKAERESSEAEE ERASE H SHEN REERKRESIARERHERERERE 1090 
670 * 1098 
671 ¢ LOAD IDENTIFIER TABLES 10A0 
672 * 1CA8 
673 IOTBL EQU * 

67% * 

675 FALTBL OC cCLieLe MONITGR ONL Ye 

676 DC ALI* AL? 

677 OC XL20° OLCOONCODDNDOCOOCON0NN HON GOOOONND0N0N0N0DONL ¢ 10AS 
677 

67? 10AB 
678 oc ALI(TERM) 1CA0 
679 ¢ LOAF 
680 FA2ZTBL oC cLiteeé RTN*S Ale A2sA3, A5¢ ADs 32ETMN} LOBE 
681 oc XLE'A2? 1683 
662 DOC ML 20°A158 5C 504250515 25354555657433640A53734AD" 1065 
682 ICR? 
682 

683 OC XL 20° 4344454 647494944 32C0CO0000COO0CCCOOCON00N? ud lOES 
683 

683 1068 
684 DC ALLOTERM) 1080 
68S & , LOGF 
686 FA3TBL pc CLit ge RIN®S AF, AG, AE, B3e 3210CMN}, AE ,O0C} 
687 OC XLIFAZE 30C3 
688 oc ALZO*AF SI3ZAIBIC SD BEA 4202 2223242526272 829REF KR? ed 1ocs 
688 10C 7 
688 ioc? 
689 DC AL2O* 2B 2C202E 2FER3B2CCCOTANCOONSSCOOE lL I000NDGONR? OEt 1Ooc8 
689 10cD 
689 10CF 
690 oc ALIC TERM} 1001 
692 * 1003 
692 FAGTBL DC CLitae RIN®S AG.A7,A8,61,62.329CMN} too5 
693 oc XLEPAGE 

694 oC XL20* AG353332L ATET ABEL OSE AGBBL4B4CB230 320000008 

694 

69% 

695 oc ALL{ITERM) 1007 
696 * 1008 
697 FASTEL boc CLAEYNS*® RIN'S ADAG, AA, AB, BO-34 eB 7 e32KCMNI 1000 
698 OC XLIL®AS?® 1ODF 
699 DC XL2Z0* AOA SAAG0AB5F E002 848732 ACOG00000000000000* OSL 1OQEL 
699 LOE3 
699 1OE5 
700 DC ALLC TERM) 

701 YOTSBLN OC ALI(TERM} 10E9 
702 * LOEA 
TOD Sa rn nn nn ee ee 1LOEC 
704 * PRINT MESSAGES 

705 * 

706 MSGOL EQU = 1lOEF 
TO? MSGOIN DC CL25*SEARCHING FOR SECTION FAX® 1OFL 
107 LOF3 
707 10F5 
707 LOFT 
70s * LOFS 
709 S302 EQU] * 1OFB 
TiO MSGO2N oc CL23*MICRO-~DIAGNOSTICS READY' 10FD 
710 LOFF 
710 1101 
7Vll * 1103 
712 MSGO3 EQU * 

713 MSSO3N DC CL24*°ERR 6001 ~- CONTROL STORE? 1104 
Z24HAR 76 2OMAY 76 PROG ID 16-3 DATE 
827879 571872 PAGE 8 EC NQ. 


OBJECT CODE 


406040C30605£309 
D60 340E 2 3D609C5 


C5D90940F 6FOFOF2 
40604UD4C 9C 309D6 
4007C7D449C8C1D3 
E3 


cool 


0002 
0002 
8802 
4802 
9802 
0003 
0008 


OCO4 


0008 
ooec 
OLOC 
sooo 
6200 
oscp 
QGDE 
OCOE 
OLOE 
88 OE 
AEOE 
CEOE 
OOOF 
O20F 


00000000 
0001 
0002 
0003 
0004 
0008 
FFFFFFFF 


10 
0700 
100000 


2080 
2008 
2F00 
3300 
2500 
238F 
2300 
2780 
2700 
3F 00 
FF 


GO 


L5AUGT5 
827779 


OSNOV7 
827827 


33490 MICRO-DIAGNOSTIC CONTROL PGM - MOD 12 


ADDR STMT SOURCE STATEMENT 


1090 
10A8 


1OAA 
10AB8 
1OAC 
LOAE 
a030 
1062 
L054 
1088 
1088 
ROLES 
10BA4 
LOBA 
108C 
LOBE 
1NCO 
EOC2 
EQOC4S 
LOC6 
10c8 
LOCA 
10CcC 
LOCE 
1006 
10D2 
1004 
lodé 


LODA 
LO0C 
LODE 
1OE0 
10E2 
1OE4 
1OE8 


10ES 
IOEB 
1LOEE 


LOEF 
iOFO 
1OF 2 
ic rs 
LOF6 
1OF8 
LOFA 
1lOFC 
LOFE 
1100 
1102 
1103 


1104 


5 


7113 
713 
714 
715 
716 
116 
716 
716 
717 
718 
719 
720 
721 
122 
723 
724 
725 
726 
727 
728 
729 
730 
731 
#32 
733 


F46 
T&F 
748 
743 
750 
751 
752 
753 
154 
755 
756 
757 
758 
759 
760 
Tél 
762 
763 
T64 
765 
766 
167 
768 
769 
770 
771 
772 
773 
774 
775 
776 


MS G04 
MS GO4N 


NULLS 
ONE 
TWO 
THREE 
FOUR 
EIGHT 
NEG! 
& 

K1iG 
xo700 
PARITY 
re 

EXT BL 
FTR 


SCN 
DXC 
FTG 
DST 


FHF 


S$BO 
EXTBLN 
+ 

IND 


Z24NAR TE 
827879 


CQU 
DC 


oc 
EQU 
OC 
oc 
Oc 
oC 
DC 
oc 
DC 
EQU 
DC 
£QU 
oc 
DC 
OC 
DC 
oC 
oC 
OC 
DC 
OC 
DC 
DC 
oC 
BC 
DC 


DC 


oC 


20MAY76 
571872 


e 


PART NO. 
PAGE 


247609 
8A 


CL25°ERR 6002 - MICRO PGM HALT®* 


SVP INTERFACE 


XL2°O00L® 
Pg 


XLz*ooo2t 
XL2°0002¢ 
ki 2*8802° 
XL2*A802° 
XL2*9802° 
XL Z*0003* 
XL2*0008* 
LOPC 

KLZ*O00A® 
LOPCR 

XL2* OOOBE 
Xi Z*°OOCcC® 
XL2°O10C* 
XL2* 00008 
XL2*020D° 
XL2*O080D? 
XL2°OQOQ0E* 
XL2* OCOE® 
XL2Z*OGEOE® 
XL2*BBOE! 
XL2°AEOE® 
XL2°CEOE® 
XL2*Ooor® 
XL2*°O20F¢ 


CONSTANTS 


&Xt1*00° 
TL2e1°& 
IL2%2¢ 
FL2¢38 
iL2°4é 
IL2°8® 
ILG*~1°* 


XLEPLO® 
xL2*O7008 


CONTROL CONSTANTS 
RESET PCR LATCH AND X REG 


RESET K REG (RUN MUDE}) 
SENSE FOLE STATUS 

SET KO AND K& (HALT IOP) 
SET K2 (SERVICE MODE) 

SET K3 (CLOCK RESET) 

SET SVP REQUEST 

LOAD OP REG C 

SENSE OP REG C 

LOAD OP REG CR 

SENSE GP REG CR 

LOAD OP REG Y 

R3-R7 --> EXT ADOR REG CEXTARI 
R4&-R7 --~> EXTERNAL ZONE REG 
SENSE X REG 

B REG ~-> EXTERNAL REG 

LOAD CSAR 

START MICRO-PROCESSOR 
ENTTIAL ACCESS CYCLE 
CONTROL STORE --> GP REG 
LO4D INDEX REG 

WRITE CONTROL STORE LEFT 
WRITE CONTROL STORE RIGHT 
SERVICE PROCESS CYCLE 

OP REG Y --> A REG --> C REG 


AND RESERVED STORAGE AREAS 


XL3*100000° 


& 
XL2*2080° 
XL2° 20088 
XL2*2F00! 
XL2*3300° 
xL2*25008 
XL2°238F* 
XL2®23008 
XL2"2780° 
XL2*2700¢ 
XL2°3F008 
XLL°FF* 


XL1*O® 


EXTERNAL 
REGISTER 
ADDRESS 
TABLE 


TERMINATOR 


PROGRAM INDICATORS 


PROG ID Cl 
PAGE 3 


asf 
Dw 


* 











PART NO’ 4247609 IBM MAINTENANCE DIAGNUSTIC PROGRAM PART NO. 4247809 


NOSTIC PROGRAM 
16M MAINTENANCE DIAG SicE 7 SeRe ae 
C163 3340 MICRO-DIAGNOSTIC CONTROL PGM — MOD 12 C163 3340 MICRO-DIAGNISTIC CONTROL PGM - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
FF? DJL’ BLO REEKSREREORERERRARSR SRS ESRER GEE EART EERE ASAE EREEET EERE EERES ELS THEATERS 
1165 CeciFl 1107 778 XFAL DC CL3°FAL® MICRG PROG ID DJL 811 * * 
3108 C6ClF5 1108 779 XFAS DC CL3SFAS® LIMITS DJL B12 * MICRO-PROCESSOR AND STORAGE AREA INITIAL EZATION % 
780 @ 813 * * 
L108 0000 110C 7el SWS oc XL 2°00060 614 EREREREEEAHEERE REEESSESSEESS EEO RESETSSOELESSEESHSSSHE REESE OS SELES SE SHRTE RS 
1108 782 LINKED EQU. SwS-I B8L5 ¢ 
783 * «ARSE 02 G1 03 816 CLEAR LA 34 _XR1)e XR1 COMPLETE 
120D LLOE 784 MSPTR DS AL2 MAEN STORAGE AREA POINTER 1162 7¢ GO 00 817 MMVI =O p XR1200 MAIN STORAGE 
785 * 1165 OD 02 1301 13CD 818 CLC C1EN(3)eXFF INITIALIZATION 
LLOF L1OF 786 LDID DS Xi MICRO LOAD IDENTIFIER 116B CO 81 L15F 81¢ BE CLEAR 
787 ¢ 820 * 
1110 788 SVPIN EQU * COMMON IOP SENSE 116F CO 87 OA3E 821 B ENTRY GO TO LOAD MICROCODE 
1110 1113 789 DS XL& DATA STORAGE AREA 822 * 
730 # 823 ha he Ge a RB RH BOF EE EAE SEE EES 
1114 1316 791 GPREG DS XL3 OP REG DATA STURAGE AREA 824 * 
1114 792 C EGU OPREG—2 oP REG C BYTE : 825 # *ksNOTES#* DIAGNOSTIC MICROCCDE STORAGE AREA STARTS HERE’ 
1115 793 CR EQU OPREG-1 OP REG CR BYTE 826 * ALL FOLLOWING CODE IS OVERLAID AFTER EXECUTION] 
1116 794 Y EQU OPREG oP REG Y BYTE 827 * 
795 * 1173 FF 1173 828 STG DC ALL(TERM) 
Lil? 1118 796 CSAR DS XL2 CONTROL STCRE ADDRESS 829 * 
L117 797 CSARB FQU  CSAR-1 CSAR BLOCK BYTE §30 %-------- ee ee ee me re ee ee eR RE OO OE 
L116 798 CSARD EuU CSAR CSAR DISPLACEMENT 5YTE ' 83) * ENABLE AMNOP (SECTION C19) IF REQUIRED 
799 * 832 * 
1119 1119 800 PTR DS Xil TIME SLICE POINTER il OD CO 0232 OA00 @33 LDAMOP CLC UTAB(1)ePID-1 BRANCH IF 3340 
801 * y a2... CO 81 21CC 834 BE CLOEXT IS IPL DEVICE 
LLIA L11A 802 INDEX DS xed ALS INCEX BYTE 835 * 
B03 * L17£ OC 18 OA39 OALB 836 MVC S¥PFC(25),COM-1 SAVE SECTION PREFACE 
111B 804 WORK FEQU# GENERAL PURPOSE ; 837 * 
1118 LL1E 805 WORKN DS XL4& WORK AREA 1184 38 01 6200 838 TBN SBYTE5,SSW2F BRANCH IF SENSE 
806 * 1188 F2 10 09 839 JT AMOPCK SWITCH 2F IS ON 
LLIF 115E 807 DS XL64 PROGRAM PATCH AREA. i B40 * 
808 * 118B OC O01 OAIE 1ODA B41 MVC AMOPTD(2)eNULLS RESET AMOP LOADED INDICATOR 
1L91L F2 87 4D B42 J BGNCO BYPASS AMOP LOADING PROCEDURE 
843 * 
1196 OD O01 OALE 1186 844 AMOPCK CLC AMOPID(2),C19 BRANCH IF SECTION C19 
' 119A F2 01 09 845 JNE  AMOPLO HAS NOT YET BEEN LOADED 
846 * 
119D OD 01 4001 1186 847 CLC AMOP+1(25,C19 BRANCH IF SECTION C19 
11A3 F2 81 18 848 JE AMOPGO IS STILL IN MAIN STORAGE 
’ 849 * 
11A6 CO 87 022A 850 AMOPLD 8 PRINT PRINT 
LLAA 46 LIAA 852 OC XL1"46¢ °LOACING SECTION C19° 
, — 21AB 13 11AB 852 DC AL1(MSGTIN-MSGT141) 
LIAC 13A1 11AD 853 DC AL2(MSG6TIN) 
, LAE C100 LIAF 6854 oc ALZ2{HLTOO) 
855 * 
L1BO CO 87 022A 856 B LOAD LOAD SECTION C19 
: , «2384 04 1184 657 DC XL1°04* 
1185 0C19 1186 858 C19 OC Xt2*0C29¢ 
859 * 
, 1187 CO 87 0214 860 8 PRINT PRINT 
'  —-11BB 46 1188 861 DC XL1"46* "SECTION C19 READY ® 
- 11BC 11 LIBC 862 DC AL 1CMSGT 2N-MSGT 241) 
1180 1382 11BE 863 OC AL2(MSG6T2N) 
11BF C100 11C0 864 DC AL2(HLTOO) 
865 * 
11C1 34 40 1104 866 AMOPGO SBN END, AMOPIN SET AMOP READY INDICATOR 
11C5 3A 40 OA19 867 SBN = COM, NOMPL DISABLE AMOP *MPL® COMMAND 
11C9 F2 87 15 868 J BGNOO START TO INITIALIZE THE IOP DJL 
869 
' 869 
B70 * 
871 * C1OEXT - GET HERE IF 3340 WAS IPL DEVICE TO NOTIFY CE 
872 * THAT THIS TEST CANNOT RUNe THEN TERMINATE 
873. * 
11CC CO 87 O21A 674 C1I9EXT 8B PRINT PRINT MESSAGE 
! 1100 46 1100 875 DC XL1°46* ‘USE ALTERNATE IPL DEVICE® 
1101 15 11D1 876 DC ALL(MSGT3N-NSGT341) 
' 
DATE 15 AUG75 OSNOV75 24MAR 76 20MAY76 PROG ID 16-3 DATE L5AUGT5 OSNOVT5 24MAR 76 20MAY 76 PROG ID c16-3 


EC NOw 827779 827827 827879 571872 PAGE 9 sES NO. 827779 827827 827879 571872 PAGE GA 





IBM MAINTENANCE DIAGNOSTIC PROCRAM PART NO. 4247609 TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOo 4247609 


PAGE 10 PAGE 10A 
€163 3340 MICRO-DIASNOSTIC CONTROL PGM — MOD 12 C163 3340 MICRO-DIAGNOSTIC CONTROL PGM - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ACDR STMT SOURCE STATEMENT 
1102 13C7 11D3 e877 Dc AL2(MSGT3N) 945 ¢ INETIALIZE ADOR 
1104 CLE8 1105 878 DC AL2¢HLTES) 946 * POC er RN Srey a vane meg se 
879 * 125E 3C 02 1114 947 MVI = CoX #028 BUILD *SABI® 
1106 CO 87 0222 880 B HALT HALT E8 1262 3C 80 1115 948 MVE = CRyX*808° MICRU- INSTRUCTION 
LLDA CLES 1108 881 oc AL 2(HLTE8) 1266 3C 00 1116 949 MVE = Y¥30 
862 *% 950 
110C CO 87 022A 883 B LOAD TERMINATE SECTION 126A CO 87 OF 36 951 ALSLD B Lxop EXECUTE *SABI® INSTRUCTION 
1LEO 00 LIEO 884 OC XLL° 008 952 *® 
885 * 126E 3A 20 1215 953 SBN CR,BIT2 BUILD *SADI*® MICRGO-INSTRUCTION 
BBG Br en er rr en ee em me ee ae 1272 CO 87 OF36 954 B LxoP EXECUTE *SADI® INSTRUCTION 
887 * RESET MICROPROCESSCR CLOCK 955 * 
B88 # 1270 3B 20 Lil5 956 SBF CR BI T2 BUILD "SABI® MICRO-INSTRUCTION 
LLEL 3A 10 1104 889 BGNOO SBN  -INDeCDIPL SET "CARD IPL® ENOECATOR 127A OF OO 1115 10DC G57 ALC CROELIeONE ADVANCE ALS ADDRESS 
890 * 958 © 
1LE5 3D 51 0232 891 CLI  UTAB,X*52¢ SKIP EF 1280 38 20 1115 959 TBN «= CR BIT LOOP UNTIL ALL ALS LOCATIONS 
LIES F2 81 12 892 JE BGNOL TPL FROM 1284 CO 90 126A 960 BF ALSLO HAVE BEEN INITIALIZED 
LLiEC 30 FO 0232 893 cil UTABsX® FOF ANY CARD 961 # 
LIFO F2 81 OB 89% JE BGNOL DEVICE 962 t-~---~---- - ++ ne nn re ne en ee ness 
LLF3 3D 40 0232 895 CLI UTAB,x*40° 963 INITIALIZE ZONE LOCAL STORAGE (21383 
LIFT F2 81 04 896 JE BGNO] 964 * 
897 * 1288 3C 03 1114 965 MVE Cs X* 038 BUILD 
LLFA 3B 10 1104 898 SBF = INDyCDIPE RESET *CARD IPL* INDICATOR 128C 3C 80 LLLS 966 MVI  CRex*BO8 *Szie 
B99 * 1290 3C 00 1116 967 MVI = -Y¥«X*00° MICRO-INSTRUCTION 
LIFE F3 C4 TE 900 BGNO] SIG = X# TE® ¢X#C4t RESET AND DISABLE 3340 INTRPS 968 & 
901 * 1294 CO 87 OF36 969 ZLSLD 8 LxoP EXECUTE *SZI* INSTRUCTION 
1201 31 C5 1060 902 LIQ K04,x"C5? SET KO AND K4& (HALT TOP) 970 * 
1205 31 C5 10B4 903 LIQ KO034_,x*C5?® SEF K3 €CLOCK RcStT} 1298 GE OO 1115 100C 971 ALC CROLDGNE ADVANCE ZLS ADDRESS 
204 * 972 * 
20S Sas SSs> SHS She Sree Se Se ee nie eae ee ae ae ine eee ee Sie eee tac L29f 38 20 LILS 973 TEN = CReBET2 LOOP UNTIL ALL ZLS 
206 * RESET EXTERNAL REGISTERS 12Ak2 CO 90 1294 97% BF ZLSLO LOCATIONS HAVE BEEN RESET 
907 # S75 + 
1209 C2 01 1OEF 908 LA EXTBLe XR? POINT TO EXT REG ADDK TABLE 976 #-----~-~-----~~---------~ ------- ~~ + ~~ +--+ + nn ee 
309 * 977 * CLEAR CONTROL STORAGE 
120D 3C 0O 1il4 910 MVE C20 CLEAR uP Ree 978 # 
1211 3C 00 1116 91} MVi ¥eO © ANDO Y FEELDS 12A6 OC OL 1118 1ODA 979 CLRCS RVC  CSAR€2),NULLS INETIALIZE CONTROL STORE ALCOR 
912 * 980 ¢ 
1215 3C 00 1115 G13 EXTRST MVE CRC CLEAR UP REG CR FIELD 12AC CO 87 OEEE 982 CLRCSL 8B LCSAR LOAD CS ADDR REG 
1219 CO 87 OF4E G14 B Lop LGAP OP REG 12BO0 OC 02 L116 1GEE $82 MVE —- OPREG 6.3) pPARETY 
915 & 1266 CO 87 OF12 983 B WRCS WRITE CONTROL STORE 
121D 31 C5 10C0 916 LiQ LEXTZsx*C5§ R4&-R? --> EXTERNAL ZUNE REG 984 % 
917 * i2BA OE OL 1118 1LODC 9385 ALC CSAR(2},ONE ADVANCE CONTROL STORE ACDR 
1221 1C O1 1116 O1 918 MVC =- Yo LE 2eXRLI EXT ADUR & DATA --> GP CRE Y 86 * 
1226 CO 87 OF4E 919 B LoP LGAD OP REG 12C0 38 80 1118 387 TBN  CSARD,BETO LOOP UNTIL 
920 * 2204 CG 90 12AC °88 BF CLRCSE BLOCK IS INITIALIZED 
122A 31 C5 LOBE 921 LIG LEXTAR,X*C5# R3-R7 --> EXT ADDR REG CEXTARS 989 * 
122E 31 C5 10D6 922 LIO LALUDsxX*C5& OP REG ¥ --> & REG --> D REG 1208 3C OG 1128 990 MVE = CSARDeO RESET DESPLACEMENT 
1232 31 C5 10C4 923 LEQ LEXT,X*C5* D REG --> EXTERNAL REG 991 # 
924 * 12CC 3D 3F LLi? 992 CLE  CSARB»X°3F# BRANCH IF ALL BLOCKS 
1236 02 O01 02 925 LA 2UsXRLeXR1 ADVANCE EXT ADDR TBL POINTER 1200 CO B81 L2DE 993 BE CLRSTG HAVE BEEN INITIALIZED 
926 * 994 * 
1239 70 FF OO 927 CLE Ol XR1},X*FEF LOGP UNTIL 1204 OF OG 1117 100C 995 ALC  CSARB(1},ONE INITIALIZE 
123C CO OL 1215 928 BNE  EXTRST END OF ADDRESS TABLE 12DA CO 87 12AC 996 B CLRCSL NEXT BLOCK 
929 * 997 * 
930 #--~--~~--~ - ~~ en nnn nnn nnn nnn nn nee 998 #--~----~-- ~~ ~~ nnn nn nn nn nr rn _ 
931 * RESET MODE BUFFER 999 * INITIALIZE MAIN STGRAGE FOR MICROCODE STORAGE AREA 
932 # 1000 ® 
1240 3C 06 1114 933 MVE C+X* 068 BUILD L2DE C2 02 1173 100i CLRSTG LA STGoXRL INITIALEZE 
1244 3C 8G LEIS 934 AVI CRex* Oe *SMODES 12£2 34 OL LIOE 1002 ST MSPTR,XRL STGRAGE ARER POINTERS 
124E 3C 60 L116 935 HVE = =-Y¥*eX?80° MELRO-INSTRUC TION 1003 # 
936 * 12E6 BZ 01 O3 1004 CLROO LA 3CsXRL}eXR1 OR LENT 
124C CO 87 OF36 937 MBRST B 1 XOP EXECUTE *SMODE® INSTRUCTION 1269 34 CL Lile 1005 ST WORKNe XR1 ON THREE 
938 * L2ED OD OL LILE 2301 1006 CLC WORKN(23,C16N BYTE BOUNDARY 
1250 OF OO 1Li5 L0E2 939 ALC  CR41) 4 FGUR ADVANCE MODE BUFFER ADDRESS 12F3 CO 82 12E6 1007 BL CLROO 
940 * 1008 * 
1256 38 20 i115 941 TBN CR,BIT2 LOOP UNTIL ALL MOOE BUFFER 12F7 OC 02 3FFA 13C0 1009 MVC = AMOP- 60 35 e XFF SETUP LOOP TERMINATOR 
125A CO 90 124 942 BF MBRST LOCATIONS HAVE BEEN RESET 1010 * 
943 * 12FD 7C 00 00 1011 CLROL MVE = OL eXR1940 CLEAR 
944 t-—-—-—-~—— enn ee alana a a Leora ae 1300 D2 02. G3 1012 LA 3 ,XRL)P_XRI STGRAGE 
DATE iSAUGTS OSNOV7S5 24 MARTE 2 OMAY 76 PRUG ID C16-3DATE 154UG75 O5NOV75 24MART6 Z20MAY 76 PROG ID C16-3 
EC NO. 827779 827827 827879 571872 PAGE 10 EC NOw 827779 827827 827879 571872 Tae nee 





TEM MAINTENANCE DIAGNOSTIC PROGRAM 


Ci63 
ERR LOC 


1303 
1309 


1300 
1323 


1317 
L318 


i3LE 
1321 


1325 
1328 


1328 
L3ZE 
1331 
1337 
i338 
1341 


1345 
13468 


134C 
L34&F 


135 
4H 


Dm A 


peo 


a 


1358 


a 


3356 
1362 
1365 
1364 


B36E 
1371 


1375 
1378 


1376 
1381 


1385 
1388 


L38F 
L397 
LA9F 


1342 
13AA 
1362 


13B3 
138B 
13€ 3 


SATE 
FC NO. 


OBJECT CODE 


OD G2 3FFA 13C0 
cO 81 12FD 


OC 02 7ToFA 13C0 
BG OO GALE 


38 40 1104 
F2 90 0D 


D2 02 00 
€2 01 6800 


BC F2 00 
Be O1 O02 


7 280 06 

D2 O01 03 

OD 02 T6FA 13CO0 
CG B81 i328 

OD O1 0203 13CF 
€G 81 1L36E 


D2 02 00 
35 G1 13CF 


BC F2 00 
& O1 02 


5 O2 0203 
6 02 13C9 


6C O2 00 13C0 


mm OG 0G 

D2 01 03 

8G 02 00 13Ch 
CO 81 135F 


DZ G2 O00 
c2 Ci 1173 


BC F2 00 
84 O01 02 


OC OO L1OF GFAE 
3A 80 1104 


oc O02 130i 13CB 
CO 87 L1ISF 


D3D6C1IC4C9D5C 748 
E2C5C3E3C9D60540 
C3F1F9 


E2C5C3E3C9D60540 
C3FLF940D9C5C1iC4 
E8 


ESE ZC540C I D3E3C5 
OF OSCLESCS4&OCODT 
D340C 4C5E5 


I5AUGT5 
827779 


OSNOV7 
827827 


ADDR STHT SOURCE STATEMERT 
LOL2 CLC AMOP-6 (03) @RFF FO BEGINNENG 
L024 BE CLROL OF AMGP SECTION 
1015 % 
2016 BRYCE PAT CH-6 C3) yAFF SETUP TERMINATOR FOR NEXT LOaOPr 
LOL? * 
i618 MV I SMGOP1DeG 13C8 FFFA 
1019 * L3CA FFEFEFFF 
1020 TBN IND -ARMOPIN BRANCH EF AMOP L3CE 8000 
1021 J CLROZ iS NOT ENABLED 2300 i301 
1022 ¥# 
1023 LA Of eXRLEGXR2 SETUP POINTERS 
1024 LA LOR» XRL TO BYPASS AMOP AREA 
1G25 # 
1Gz2Zé MVE O(,XR23 >MSADR STORE MAIN STORE 
1027 ST 2i yXR2} RRL ADDRESS POLNTER 
1928 2 
Le-29 CLARO? MV I Of eXRLILD CLEAR 
C30 LA 30 ,XRE) 2XRi STORAGE FS 
1034 CLO = PATCH~ 60.3}, XFF START OF PATCH AND OCF 
1032 BE CLROEZ STGRAGE AREA 
1933 cic SEZECZ) -X8G0G BRANCH ¥O SET UP WRAP AROUND 
1934 BE CLRB2K PTR JF 32% MACHINE 
1035 # 
1036 LA G{ «XRLELXR2 SETUP POINTERS TO 
1037 b. KBO00, XKRE RYPASS DCP AND PATCH AREAS 
1936 * 
1039 BYE OF -XR2) ,-MSADR STORE MAIN STGRE 
1046 Sf ZigkR25yXRE ADDRESS POINTER 
LO41 * 
L642 u SIZE .XR2 POINT TO END 
L043 & NEGO, KR2 GF MAIN STORAGE 
L044 = 
1045 BYE O€S,KR2) XFF SETUP LOOP TERMINATOR 
1046 ¥ 
1047 CLROG3 KY I Ot SXREECS CLEAR 
10468 LA 3C,XRDT,XRE 7G END 
1049 cic Of 3yXR2) oXFF OF MAIN 
1656 BE CLROZ STORAGE 
105) 4 
2052 CLR 3ZK LA OU ,XRL? XZ SETUP POINTERS TO RRAP 
1053 LA STG,_XRE BACK YO START OF STG AREA 
1654 * 
1658 MYE O€ -XRZ}MSADR STORE MAIN STGRE 
1056 ST 2O_gXRZF, KRE ADDRESS POINTER 
Lost # 
i058 MVC LDID(1L)? ,FALTEL+42 FREPARE FO LOAD 
1059 SEN IND, BGRNSW MYCROU=DIAGNOSTIC MONITOR 
106@ & 
1061 MVC CLONES} oKFF SETUP LOOP TERMINATOR ANB GO 
1062 8 CLEAR TO CLEAR REMAINING STG AREA 
1063 % 
LOGG Ba a mn er a en a ee ee ere er eres 
1065 * OVERLAY AREA PRINT MESSAGES 
1066 * 
L36F 1067 MSGTIL EQU & 
13A1 41068 MSGTIN OC CLIG*LOADING SECTION Cis* 
1068 
1068 
1069 * 
13A2 1070 MSGT2 ECU * 
13B2 1071 MSGT2N OC CLAUS SECTEON C19 READYS 
1072 
1071 
1072 *% 
1383 1073 &S&T3 ECU e 
13C7 1074 MSGT43N Oc CL2Z1*°USE ALTERNATE TPL DEV! 
LO74& 
107% 
5 24HAR 76 ZOMAYT4 PROG ID C16-3DATE 15 AUG75 
827879 S7i87T2 PAGE Ll EC NO. . 827779 
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PAGE ii 


7163 


ERR LOC OBSECT CODE 


13cs 
L3cB 
13CF 
1304 


CSROV7S 


42476091BM MAINTENANCE DIAGNGSTIC PROGRAK 


ADDR STMT 


1075 
1075 
1076 
LOTT 
1078 
LOTS 
10380 
LO8i 
10682 
kOa2 


3340 MICRO-DIAGNOSTIC CONTROL PGH - MOD t2 


SOURCE STATEMENT 


fh cee ae ae ee ee eR ee me mn mee 


OVERLAY AREA CONSTANTS AND WORK AREAS 


& 

% 
NEGE 
XFF 
X8605 
Cish 
& 


244 ARTE 
8278S 


DC 
BC 
oC 
oC 


ZOKAY 76 
571872 


Ei2*-68 
&XLI*FF 
Xi2*8000* 
ALZ(CION} 


PART NOw 4247609 
PAGE 1LA 
32K KACHINE 
END OF OVERLAY AREA 
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PAGE 12 PAGE 128 
C163 3340 MICRO-DIAGNOSTIC CONTROL PGM - MOD 12 C153 3340 MICRO-DIAGNGOSTIC CONTROL PGM - MOD 12 
ERR LOC OSJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OEJECT COCE ADDR STMT SOURCE STATEMENT 
1085 EEERE RES ERE EEE KH TE OTERO RESEER EES ERE ERE EER TOES EOE EE TERETE IESE TERE EEE O24 153 PRINT Eu X*OZ21A8 PRINT A MESSAGE 
1086 * * 0222 1154 HALT EQU = K*0222' HALT ANO DISPLAY HALT IOENTIFIER 
1087 * SYMBOL DEFINITIONS & 0226 1155 PACK ECU =X #02268 PACK DATA - EBCOIC TO HEX 
1088 * & 0228 1156 LOAD EGU x? 0224At LOAD NEXT SECTION OR RECGROD 
1089 ERO EREERERE EER REESE TED EERE H EAE ER SCOT ERSTE RTE REPS RH EH ESHEETS SHAEE TECESE LLS7 % 
1090 * 0232 1158 UTAB EQU =X #62328 DCP UOT ENTRIES € FPL UOT } 
LO9l * LOCAL STORE REGISTERS 1159 * 
1092 * L160 @-——n nn ne on nn ern en en rn ern ern ne cer m nnn om ean meme ome 
0001 1093 XR1 ecu = xX OL INDEX REGISTER 1 Llol * OTHER REFERENCES EXTERNAL TO THIS SECTION 
COO2 1094 XR2 EQU x 02° LNDEX REGISTER 2 1162 # 
0008 1095 ARR Ewu SX" 08* ADDRESS RECALL REG (CURRENT LEVELG 0880 1163 REC EQU xX 08808 LOAD SUBROUTINE INPUT AREA 
1096 * 0804 1Li64 RECN EQU  RECS84 END GF MICRCOCCOE TEXS RECURD 
LOQT Hemera nn en 4165 # 
1098 * SECTION SENSE SWITCHES 4000 1166 AMOP EGU X*40005 ACAPTER MANUAL UPS PGM (C1L9} 
1099 * 6800 Lié7 LDR EGU = x*68008 ATTACHFENT FICRCCOOE LOADER ECIT} 
00G1 i100 SS¥2F £QU =X" OL? ENABLE SECTION C19 (AMCP} 7806 1168 DCP FEQU = -x*78008 DIAGNOSTIC CONTROL PGM (FFF) 
110k & 1169 © 
LLOQ Bama ma werner en V17O Seen en eee ee eee oe ea nae Hesse ser es Tore ames one eee eee 
1103 # MESSAGE / HALT IDENTEFLERS Li7k DIAGNOSTIC MICROCODE PATCH AREA 
L104 & LL72 * 
C100 1105 HLTOO EQU xFC1OCF NO HALT (PRINTGUT GNLY} 7700 2173 ORG xX*7700° 
ClOL 1106 HLTOL EQU K*'CEORE ERROR HALE (AFTER PRINT} LL74 @ 
CLES LIO? HLTES FQU —s K#C LEE USE ALTERNATE PPL Device F700 1175 PATCH EQuU B® 
1108 # 7700 FEEEFFEEEERRFEESFER T7FF LL76 PATCHN OC 259AL LE TERM) 
LL0@ #626 cS ese ase e aha se Se ne enn ee 7708 FFFFFFEFEEFFEEFE Livs 
LLiO * 3340 PROGRAM COMMUNICATION AREA BIT DEFINETIONS 77LO FER FEF FEFREEEFEF LLY 
RELL * 771 SFRRFEPEERFEEEFE 1LVé 
oosoO 1112 ADRSTS Egu = x BOF MICROPROCESSGR ACCOR STOP ENABLED 7726 FRERRREEFEPRFEFEEE LL?S 
0040 LLL3 NOMPL rEQuU =x F4Ge SECTION C19 KPL COMMAND TsHIETT 7728 EREF FERRER ERFFEE LL?¥6 
COOL LLEG AMOPSW EQU = xKFOLE 7730 FEFFRFRREEPFEFFEF L176 
LLLS 2 7738 FREPFR EER RERFEEF Li76 
VLG: Seat ae ae ee ere Aare ae eS 77460 FRRERPEREREEEEFE LL7é 
LLLT * PROGRAM INDICATORS 7748 FRFREFREREREPREFEE L76 
1118 % 7750 FERRER RRRFREFFEF Live 
COSO 1119 BGNSH EQu x#8O° INETIAL ENTRY 2x0TCATOR 7758 FREFEFERFEERFFEE LLT6 
0046 1120 AMOPIN EQU  X#40® AMOP iSECTION cigs KEALY 7760 FERFFEFEFEFESFEF LiT6 
6020 1121 BYPASS EQU = xX*20° BYPASS MICRG MONETUR That 7768 FEFFEREPRRFEFEFE LEG 
ODIO 1122 pune EQU = XP LOE CARD TPi INDICATOR T7TO FEEEERERFEFFEFEE LL?é 
EL23 7778 EFERRRRERFEES FEE EF Li?é 
bod, Rese e ea ee ee ann See ees ee eee enn 7780 FREEERPRREEFEEFFE L1Lve 
1125 * MAIN STORE DELEMITERS F768 FFEFEF REFEREE PREF 1176 
L126 * 7790 FEEFRERERERERFEF LLVe 
OOFO L127 LDADR EGU XS FOF STAR? GF MICRO-LGAD F798 FFEFFFEFFEREEE EF Livé 
OOFL 1128 CSADR FOU OX FAS NEXT CONTROL STORE ADDR FTAO FEEFPEERREEFEFEE LL?6 
OOF2 1129 MSADR EQU xX *F 28 NEXT PAIN STORE ACER 774R FFREEFEPPEEFFEPFE Li76é 
OOFF L130 TERM EQU «=X FFE TERMINATOR 778Q FEFEFRFEFRESERFEE Lis 
1131 % T7568 EFEFEFCEERFEEEEF Li?é 
1132 t----------- igi) 2S Siete teacher Se eee eae Sea Teo 77COQ FERRE FEFEEFEFEFE LL76 
Li33 * BIT PGOSITIGN SYMBOLS T7C8 FRFREFERRFEFFFFEF LLTé 
1134 * 7700 FFRERREFPRRFEEEFEF LLT6 
0080 1135 BETO EQU XP BOE 7708 FEFFFEEFFEFFEFFE LETS 
9040 1136 BITL coy |X ®4OF TVEO FREEERFERFFFEFEFFEFE L176 
0010 1138 8113 EQUUS 10° T7EO FEEFFRFFEFEFFFFEF L176 
0008 1139 BITS FEQUsx#08F TTFES FEFEFEEREERFREE FE 11L76é 
0004 1140 BITS EQU  =-X#704° 1i77 * 
0002 1141 BITé equ x®02% FFFF Li?6 END 
OOOL 1142 BITT FEQU = X FOL 
1143 * 
1) a eee ee ae a ee 
1145 * DCP SECTION REFERENCE TABLE 
L146 * 
0203 1147 SIZE EQU x#02038 MAIN STORAGE SIZE 
1148 # 
020D 1149 SBYTES5 EYU X*020D* SECTION SENSE SWS 28-2F 
1150 * 
6212 1151 TEST EQU = =X#O212° CHECK CE CONSOLE SWITCHES 
0216 1152 LINK EGU = X?0216° LINK TO NEXT ROUTING GR SECTION 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247609 JBM MAINTENANCE DEAGNOSTIC PROGRAM PART NO. 4247609 
PAGE 13 PAGE 13A 
C163 3340 MICRO-OIAGNOSTIC CONTROL PGM ~- MGD 12 C163 3340 MICRO-DIAGNOSTIC CONTROL PGM - MOD 12 
CROSS-REFERENCE CRGSS-REFERENCE 

SYMBOL T LEN VALUE ODEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES 
ADRSTP C 001 oO080 1112 0344 0394 FA2TBL A OOL OFEE 0686 
ALSLD A 004 126A 0951 0960 FASTBL A 001 1019 ©692 
AMOP C001 4000 1166 0050 0357 0383 0397 0414 0847 1009* 1013 FASTBL A O0O1 1030 C697 
AMOPCK A 006 1194 0844 0839 FHF A 002 lLOFE O7721 
AMOPGO A 004 11C1 0866 0848 FOUR & 002 1lO0E2 O755 0939 
AMOPID A OG2 OAIE 0030 0841* 0844 1018*% FTG A 002 10F8 0768 
AMOPIN C OOL 0040 1120 0352 0378 0866 1020 FTR A 002 10FO 0764 
AMOPLD A 004 11LA6 0650 0845 ‘60 A 004 OC4B 0293 0065 0411 0449 
AMOPSW C 001 0001 1114 0049 GOl A 006 OC4F 0295 0312 
ARR C 001 0008 1095 0578 0594 0606 0617 0630 0652 GG2 A 004 OC62 0303 
BGNSW C 001 o080 1119 0046 1059 GO3 A 004 OCE3 0349 0345 
BGNOO A 004 11E1 0889 0842 0868 GU4 A 004 OCFF 0359 0353 
BGNOl A 003 LIFE 0900 0892 0894 0896 HALT C€ 002 0222 1154 0169 0364 0880 
BITO € 001 0080 113% 0082 0156 02214 0219 0261 0316 0335 0987 HDR A 004 OE52 OS5i1 0501 
BIT1 C OO1 0040 1136 0334 HDROL A 004 OE67 0519 0512 
BIT2 C 001 0020 1137 0157 0160 ©6261 0264 0326 0941 0953 0956 0959 0973 HLTES C OOL CLES 1107 O878 O881 
BIT3 C 001 0010 2138 HLTOC C O0OL C100 1105 0059 0467 0854 0864 
BIT4% C 001 0008 1139 0275 HLTOl C 001 C101 1106 0167 0170 0365 0404 
BITS £001 0004 1140 0347 IDLE A004 ODLI 0374 0362 0392 0398 0425 
BIT6 C 001 0002 1141 0391 0639 IDLEG A 004 O0D2C 0385 0379 
BiT7 C OOL 0001 1142 0335 0368 0643 IOLEL A 004 OD52 0400 0395 
BYPASS C 001 0020 1121 0514 0519 0534 IDTBL A&A 001 OFAC 0673 0439 
Cc A 003 1114 0792 0148* 0157 O160* 0214 0231% 0234* 0238 0241* 0242% 0248*% 0253% 0261 IDTBLN A OOl 1047 O7O01 

0264* 0314* 0321* 0580* 0636 0910 0933% C947# 0965*% INACC A 062 10CA O746 03406 
COIPL C 001 0010 1122 0889 0898 IND A 001 1104 O776 0046 0352 0378 0514* 0519* 0534 ©0866* C889* 0898* 1020 1059* 
CKTYPE A 00% O£35 0498 0477 INDEX A OOL LILA 0802 0063* 0284* 0331 0332 0409% 0447% 
CLEAR A 003 115F 0816 0819 1062 INVALD A 00% QDAC 0444 0428 
CLRCS A 006 1246 6979 K A O01 1L0AB 0722 0342* 0347* 
CLRCS1 A 004 12AC 0981 0988 0996 KREG A 002 LOAC 0723 0349 
CLRSTG A 004 12DE 1001 0993 KO24 A 002 1082 0726 0623 0633 
CLROC A 003 12E6 1004 16007 KO34 A 002 10B4 0727 0903 
CLROL A 003 12FD 1011 1014 "KO4 A 002 1080 0725 0621 0632 0902 
CLROZ2 A 003 132B 1029 1021 1032 LALUD A 002 1006 0746 0306 0586 0922 
CLRO3 A 0O3 135F 1047 1050 ‘LCSAR A 004 OEFEE 0578 0076 0143 0210 0981 
CLR32K & 003 136E 1052 1034 LCSARX A 004 OFOE 0589 0578% 
CMPRS & 004 O£00 0479 0475 LDADR C O01 OOFG 1127 C107 0521 0562 
CMPOL A 006 O£08 0482 0496 ,LDAMOP A 006 1174 0833 0047 
COM A 0Ol OA19 0026 0049 0344 0394 0836 0867% "LDCS A 003 OADB 0129 O1l2 0138 0154 
CR A 003 1115 0793 0222* 0315* O316* 0326* 0331% 0333 0333*% 0334* 0335 0581* 0640 0913% LDCSAR A 002 10C@ C738 0587 

0934% 0939* 0941 0948* 0953% 0956* 0957% 0959 0966* O971* 0973 LDCSOl A 003 OAE? 0134 O1L31 
CSACC A 002 10CC 0741 0608 LOCSO2 A 003 OAF6& O140 0135 
CSADR C OO1 OCOFIL 1128 0134 0542 LDCSO3 A004 OBOF 0150 016i 
CSAR A 002 1118 0796 0061* 0074*% 0080* 0137* 0206* 0539 0545* 0797 0798 0979* 0985* LOFAX A 004 ODA2 0439 0114 
CSARB A 002 1117 0797 O087 0090* 0281* 0322 0406* 0444* 0520* 0581 0992 0995% LDID A 001 LIOF 0786 0052 OL110 0197 O278 0419* 0424 0427 0410 0516 1058# 
CSARD A O0O2 1118 0798 0082 0085* 0145* 0219 0267* 0282* 0327 0361 0407* 0445* 0558* 0582 LOR C 001 6800 1167 1024 

0987 09904 LORIO A CO2 OAIC 0029 
CSERR A 004 0833 0163 0158 0262 -LEXT A&A 002 1004 0737 0307 0923 
C16N A 002 1301 1082 0818 1006 1061* 1082 LEXTAR A 002 10BE 0734 C305 0921 
C163 A 001 0000 0006 LEXTZ A 002 10C0 0735 0299 0916 
C19 A 002 1186 0858 0844 0847 LINDEX A 002 1LOCE O742 0339 
CLISEXT A 004% 11CC O874 0834 LINK C OOL O216 1152 
ocP C 001 7800 1168 LINKID A 002 110B 0782 0356 0382 9413 
OST A 002 10FA 0769 LOAD C 001 O22A 1156 0471 0856 0883 
OXxC A 002 10F6 O76T LUuP A 00% OF4E 0630 0297 0303 0584 0596 0619 0914 0919 
EIGHT A 002 1l10E& 0756 0238 LOPC A 002 1088 0729 0730 
END A 003 O&EFO 0562 0507 LOPCR A 002 10BA 0731 0732 
ENTRY A UO4& OA3E 0046 082i LOPX A 004 OF84% 0647 0630* 
EXTBL A OOl lOEF 0763 0293 0908 LOPY A 002 1208C 0733 
EXTELN A 001 1103 O774 LxoP kh C04 OF36 0617 0312? 0324 0329 0337 0937 ©0951 0954 0969 
EXTRST A O00. 1215 0913 0928 LXOPX & 004 OF4A 0625 061 7# 
FAXC1 A 003 ODA6G 0441 0458 MBRST A 004 124€ 0937 0942 
FAXO2 A C75 ODCO 0451 0442 MSADR C 001 OOFZ2 1129 Oll6é 0130 0529 0548 1026 1039 1055 
FAXO3 A 003 ODC8B 0455 0461 MSGT1 A OCO1l 1386 1067 0852 
FAOID A 002 OA20 0031 -MSGTLN A O19 13AR 1068 0852 0853 
FALTBL A OOL OFAC 0675 0052 0278 0516 1058 'MSGT2 A UOl 13A2 1070 0862 
FAZ2TBL A 001 OFC3 0680 MSGT2N A O17? 1382 1071 0862 0863 

} 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247609 LEM MAINTENANCE DIAGNOSTIC PROGRAM PART NQo 4247609 
PAGE 14 PAGE 14A 
C163 3340 MICRO-DIAGNGSTIC CONTROL PGM - MOD 12 C163 3340 MICRO-DIAGNOSTIC CONTROL PGM — MOD 12 
? 
CROSS-REFERENCE CROSS-REFERENCE 
SYMBOL T LEN VALUE DEEN REFERENCES “SYMBOL Y LEN VALUE ODEFN REFERENCES 
MSGT3 A OO} 1383 1073 0876 SNSX A 002 20C2 0736 0416 
MSGT3N A 021 13C7 1074 0876 0877 ‘sap A 00% OF88 0652 6610 
MSGOL A OOl 1948 0706 0465 SGPC A 002 10B8 0730 0654 
MSGOLN A 025 1060 0707 0451* 0465 0466 SOPCR & 002 LOBA 0732 0656 
MSGO2 A O01 i1C6l 0709 0057 "sopx A 004 OFAB 0662 0652 
MSGO2N A 023 1077 0710 0057 0058 SSW2F C 001 0001 11900 0838 
MSGO3 A OOL 1078 O712 0165 §TG A O0O1 1173 0828 1001 1053 
MSGO3N A 024 108F 07123 0165 0166 *SVPFC A C25 O6A39 0033 0836* 
MSGO& AOOlL 1090 0715 0402 SVPIN A OOlL 12110 O788 0153 0222 0225 0258 0657* 0659 0659% 0660% 
MSGO4N A 025 10A8 0716 0402 0403 SVPR A 602 10B6 0728 0422 
MSPTR A 002 110E 0784 0100 0469 0498 0525 056%* 10028 SWS A 002 L10C O781 0355* 0376% 0381 0782 
NEGL A004 10£8 O757 0491 Sl A 006 OFI7 0488 0481* 0482 0485 0493% 0495 
NEG6 & 002 13C€9 1079 1043 $2 A 006 O€1D 0489 0462% 
NOMPL C 001 0040 1113 0867 "TERM € OO OOFF 1130 O113 0194 0201 O2706 O31L1 0441 0457 ©0522 0563 0678 C684 0690 
NULLS A OOl 10DA O75] 0061 0295 0841 92979 0695 0700 O701 O828 1176 
NXREC & 004 ODES 0471 C509 0517 0530 0532 0535 0553 TEST € OOL O212 Li5dL 0374 
ONE A 002 10D0C 0752 0080 0145 6267 0493 0558 O957 O971 0985 0995 ‘TEXT A 004 O£92 0534 0504 
OPREG A 003 1116 0791 OOT7* O147% 0153 0212 0246 0258 0295* 0792 0793 0794 0982¢ THREE A 002 10ED 0754 0559 
OVRLAY A 006 OAT3 0074 “172 0430 Tw A002 10D£ 0753 02321 
OVRLYL A 004 OA79 0076 0083 0091 ‘TxTO1 A 003 OfBS 0547 05606 
PACK € 0OOL 0226 1155 TXTO2 A O0O& OECL 90552 0540 0549 
PARITY A003 1OEE O76l1 0077 0982 uDTO A 003 OAdc 0022 
PATCH A OOL 7700 1175 0192 1016 1031 ‘uoTA A 003 OAOF 09023 
PATCHN A OOL T?FF 1176 UTAB C 00i 0232 1158 0833 C891 0893 90895 
PCR A004 OD70 6413 0389 WORK A OO 1128 O804 O227# 0229 0229* 6236 0236% 
PFC A 002 OAC? 0019 WORKN & 06% iLiE 0605 O246% 0749 0249 0274% O275 0386* O388 C331 9427% 0419 9635 067346% 
PID &4 002 OADL OO15 0833 G627 639% 0640% 0641 0643 0644 C645 0655 O660 1005% 2006 
PRINT C€ OOL O2IA 1153 C055 61532 90400 0#63 0850 0860 oO8f« WRES & 00% OF i2 95946 OG78 O50 0255 0983 
PROC AB 002 {4064 0745 0622 PwRES* A 602 1000 0743 6598 
PIR A 001 i119 ogod OG62*% 0283 0315 O408* 044466 weCSi. A OO2Z2 16D2 074% 9599 
ROCS A 00% OF26 0606 OL52 O27 9256 WRESX & 004 OF 22 O4HOL 05948 
ROCSK A004 OF32 0612 06062 YF AL & 003 L107 oO778 C474 
REC C OOL O88G 1163 0474 O476 0495 050600 0503 6506 O51] 0523 0537 G539 65°3 O565 XE AS & 063 Lida Oa77¢ O476 
0552 0559% 1164 XEE A O01 1305 1086 0818 i069 LOLA 1016 LO3L L065 1049 1061 
RECN C€ OOL O8D4 1164 0479 0488 O0488* 0485 O489* 6495 byRE C O01 GOGOL 1093 O100*" O102 O1G2* O1L06 GIOF CLIC OL1L3 OLES O1L9 O119% O12@ O129% 
REPCS A 00% ORG? 0192 Chal C1320 132 OLAZ® GL36 O137 O140 O147 0156 0192% 019% 0197 O260 
REPX & 003 OC22 0273 6195 6204 ; 82008 6201 ©0206 O208 O0208* 0212 0268 268% 0270 0273 G273* 0274 
REPOL & 003 OB4B 0194 02776 e O293* O30 6309 6309 O314 0439% 044] 045% 0653 04653%* 0455 0455 
REPGZ & 003 OBS5Y 9200 0202 O457 9450 0469 95272 0523 0525 0526 6528 G5278* 65279 G531 05314 
REPOS & COS OBES 0206 0198 0542 0543 547 0547* 0548 0550 9559* C555 0543 O554 O816 CB1L6# 
REPOS A 004 OBEE O210 o27L F OBLF G80 O9L8 0925 O925* 90927 iCO** 1002 1004 1004*% 1005 1011 
REPOS A COG OB9Z 0225 0226 LOL2 LOLZ% £623 1024% 1027 1629 103, 1030* 1036 i1037* 1046 10467 
REPO? A&A OC6 OB698 0227 0223 1048 1048* 1052 1053* 10656 
REPOS A&A 006 OBSE 0229 0232 Ix ae COOL 0002 1094 0479% 0484 0486 0491% 0498 052) 0526% 0537* 9555 O557 6557 0562 
REPOS A 004 OBAD 0232 0230 LO2Z23% 10626 1027 1036 1039 1040 1042% 1043% 1045 1049 1052® 1055 
REPLQ & 006 OBBS 0236 0239 1056 
REPEL A 004 OBC4& 9239 0237 : *x0700 A COZ 10EB 0740 OUTS 
REPL2 A 006 OBD3 0246 o215 X10 A 001 LOES O759 0248 : 
Pp A 006 COBDS 024 0250 ; X8000 A 002 33CF 1081 1633 163 
Sebik A BoE DED boca aoet ty A 003 1Lil6& 0794 0225% 0227 O301% O317* 0322* 0327% 0332% 0582* 0644 O9L1L* O918* 0935% 
REPIS A 004 OB8F] 0255 0244 0265 0949% O967% 
REPLG & 006 OC12 0257 0259 ZLSLD A COG 1294 0969 547% 
RESTRT & 006 OAS? 0055 0279 ; 
RSPCR A CO2 LOAA O721 0350 0422 TOTAL STATEMENTS SLAGGED IN THIS ASSEMBLY = 0 
RTN A 001 0A03 OOLT 
RTNPFC A OOL OAZBA 0042 0019 } 
RUNMP & 002 10C8 0739 0359 
SBYTES € 001 0200 1149 0838. ) 
SBO A 002 1102 0773 
SCHOL A093 CAAD 0102 0105 OLi7 
SCHO2 A 003 OABO 01046 0120 
SCHO3 A003 OAC6 0113 0108 ) 
SCN A 002 LOF& 0766 
SEARCH A 00% OAAD 0100 OO®&> 0088 0566 
SIDLE & 002 i0AE 0724 0385 } 
SIZE C 0OL 0203 1147 1033 1042 
$ 
DATE L5SAUG75 O5NOV7S 24MAR7T6  2O0MAYT76 PROG ID C 16-3 DATE 15AUG75 OSNOVT7S 24MART6 20MAY 76 PROG ID nS 
EC tS. 827779 827827 827879 571872 PAGE 14 pec NO. 827779 827827 827879 571872 PAGE 
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seas oteaaenes 
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T+#-Z4& EC*#"MBS DEL 
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T+-,03} O1 HsP7 


Tt#-ZV GU* JOO &6 
T¢=_-DJL2U -:HAD 
T4+~>$B5X2/#0% JD 


cd 


T+-?0DJQ+ AD*D U3 
T+-0JDUQ+ ADMD+U 
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XL2*OCOE® 
xL2*GEOE® 
XL 2° SE OE F 
XL2°GBBOE* 
XL2*AEGE® 
XL2* CEOE® 
XL2*OOOF® 
XL 2°*O20F © 
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RESET PCR LATCH ANO & REG 
RESET K REG (RUN MODE? 
SENSE IOLE STATUS 

SET KO AND K4& (HALT TOP) 
SET K2 (SERVICE MOCE} 
SET KF (CLOCK RESET) 

SET S¥P REQUEST 

SENSE ACCESS POINTER REG 
LOAD OP REG C 

SENSE OP REG C 

SENSE INDEX REG 

CE DM ENABLE ~-> X REG 
LOAD OP REG CR 

SENSE OP REG CR 

LOAD OP REG Y 


R3B-R7 <--> EXT ADDR REG CEXTAR } 
R4-P7 --> EXTERNAL ZONE REG 
SENSE ALSS 

D REG --> EXTERNAL REG 

LOAD CSAR 


LOAD CSAR AND ADOR COMPARE REG 
STAFT #ICRO-PROACESSOR 

INITIAL ACCESS CYCLE 

CONTROL SIORE --> OP REG 
SERVICE ACCESS CYCLE 

LOAD INDEX "EG 

WRITE CCNTROL STORE LEFT 

WRITE CONTROL STORE RIGHT 
SERVICE PROCESS CYCLE 


OP REG Y --> A REG --> OD REG 
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PAGE 10 PAGE 10A 
civ: 3340 MICROCCDE LCADER - MOO 12 eo CIT 3340 MICROCOCE LOADER - MOO 12 
ERR LOC OBJECT CODE ADDR STMT SCURCE STATEMENT ERR LOC CBJECT CODE ADDR STMT SOURCE STATEMENT 
780 ew aae ean seAOhREeEEREDEEKEEEEEEEEREEEEERES EE EEERESROEHES SEES SESE SEES OLS & 7648 FFEFFEREEFEFFFEE 839 
781 * * 7650 FFFFFFFFEF FEEFFE 839 
762 * CONSTANTS ANO RESERVED STORAGE AREAS ¢ on 7658 FEEEFFFFFFEFFEFE 3839 
763 © s G 7660 FFFFEFFEEFFFFEFE 839 
784 * enaeceeeedeeexeeeeeseeeee Hate OESHAET REESE SESEEEESEESS SEES SS SSIES SESS 7668 FEFFFRFEFEFFFFEFE 839 
785 *# om. 7670 FFEFFFFEFFFEFEFE 839 
72a4 C0000000 T2A7 786 NULLS oc 4xLi*00° C 7678 FFFFFEFEFFEFFEFE 339 
; 72ae 0001 72a9 787 ONE oc wL2e1° 7680 FFFFFFFEFFEFFFFE 839 
: 72AA 0002 72a6 786 TWO oc tL2°2° Cc: 7686 FFFEFFFFFFFFFFEE 839 
72aCc 0003 7240 789 THREE oc ri2¢3° : 7690 FFEFFFFFEFEFFFFE 839 
T2AE 0004 T2aF 730 FOUR oc Ll2e4as 7698 FEEFERFFFEFFFEFE 839 
7280 0008 7281 791 EIGHT oc tL2°6? e 7600 FFRFFFFFFEFFFEFFF 839 
7282 FFFFFFFF 7285 792 NEG} oc TLee—-3° 7eae FFFFEFFEFFEFFFEE B39 
793 * 7680 FFEFFFFFFFEFEFEF 839 
7286 O3FFFF 7288 794 X3FFF oc XL3°O3FFFF® CS DATA AREA TEST PATTERN oe 7688 FFFFEFFFFFFFFFFFE 839 
7289 10 72B9 795 X10 oc xL1*109° w. 76CO FREFFFFEFFFFFEFE 839 
796 * 76C8 FFFFEFFEFFFFEFFF 639 
728A 797 EXTBL equ * EXTERN AL e 7600 FFFFFFFEFFFFFFFE 839 
728A 2080 7288 798 FTR oc xXL2*2060° REGISTER ess 76D8 FEEFFEFFFFFFFFEE 839 
72BC 2000 72eD «799 oc XL2*2D00° ADORESS 76EO FFFFFFEFFFFFFEFF 839 os 
72BE 2F00 726F 800 SCN pc KL2* 2F 00° TABLE o 76E8 FFFFEFFEFEFFEEFF 839 
72C0 3300 — 72C1 B01 OxCc oc XL2°3200° ae 76FO FFEFFFF FFFEFFFFE 639 
7ec2 2500 72C3 802 FTG oc xL2*2500° 76Fe FEEFFFFFEFFFEFFF 839 
72C4& 236F 72CS 803 OST oc XL2°236F * i 7700 FFFFEFFFFFEFFFFE 839 
72C6 2300 72c7 804 9¢c XL2*2300° C 7708 FFFFFFFFFFEFFFFE 639 
72c8 2780 72c9 805 FHF oc xL2*2780°* 7710 FEEFFFFFEFFFEFFF 839 
72Ca 2700 72cB8 806 pc xL2*°2700° 6 7718 FREE FFEEFFEFFEFE 839 
72CC 3F00 72c0 807 SBO oc XL2°3F00° a 7720 FRFFFFFFEFFREFFEFE 839 
T2cE—E B0d00 Tece 808 x6000 oc xi 2*6000° 32k MEMORY 7728 FEFFEFFFFEFFFFFE 839 
7200 OC19 72p1 809 C19 oc XLZ*°0Ci9° aMOoP CALLED INDICATOR a 7730 FRFFFFFEFFFFFFFE a@39 
7202 FF T7202 #810 oc XLV °F FO TERMINATOR C 7738 FEFFFFF FEF FEFFFE 839 
B11 © 7740 FREFFFFFFEFEFFFFF 839 
7203 00 7203. 812 IND oc xLiroe PROGRAM INDICATORS o 7748 FRFFEFFFFFFEFEFFE 829 
vane 3 612 ¢ XL 7750 FFFFFFFFFFEFFFFFF 839 ae 
T2d4 7208 814 PFCSTG os xL8 SECTION PREFACE STORAGE AREA 7758 FFFFFFFFFFEFFEFFFFE a39 
815 * 7760 FFFFEFFFFFFFFEFF 639 
720C 816 IOPIN cou COMMON TOP SENSE Co a768 ERFEFFERFFRFFRFP 839 
720c 72DF 817 os xis DATA STORAGE AREA 7770 FREER RFEFFEFEFFEE 639 
ais * - 7778 FREE EFF FFEFEFFFE 839 
72E0 7T2E2 819 OPRFG os xL3 : , OP REG DATA STORAGE AREA C. 7780 FFFFFFFFEEFFFFEE 839 
72EO0 820 C Eou OPREG=-2 OP REG C BYTE 7788 FFFFEFFFEFFEEFEF a39 
72E1 821 CR eau OPREG=-1 oP REG CR BYTE ; 7790 FEFFFFFFFEFEFFFF 339 
72—E2 822 ¥ EOU GPREG cP REG VY BYTE € 7798 FFFEFFFEFFFFEFFE a39 
623 * , 77A0 FEFFFFFFFFEFFFFFE 839 
72E3 7T2E4 824 CSAR os xL2 CONTROL STORE AODRESS : 7708 FFFFFFFEFEFFEEFE 839 
72E3 625 CSARB Eou CSAR~12 CSAR BLOCK BYTE €- 7780 FEFFFFEFFEFFEFEF 839 
T72E*® 826 CSARO Eau CSAR CSAR DISPLACEMENT BYTE é 7788 FEFFFFEFEFFFFFFF 839 
827 3 77CO FEFFEFEFFFFEFFFE 839 
72ES 828 PATRN €Ov * C 77C8 FFFEFEFFEEFEFFEF 839 
T2E3 72E7 829 os xt3 ERROR PATTERN STORAGE AREA 7700 FFFREFFEFFFFFFFE 839 
830 # ring 7708 FFEFFFFEFEFEFEFE 839 
72E6 831 WORK eau * GENERAL PURPOSE cC 77TEO FFEFFFFFFFFEEFFEF 839 
72E8 : 72EB 832 WORKN os  xLe WORK AREA : 77E8 FREEFFFEEFFEFEFE 839 
833 * Cc 77FO FFEFFFEFFREFEFFE 839 
7500 834 ORG x*7500° > oa7ea EFREF RFR ERFFRFFEE 839 
7500 835 HORSTG €au s HEADER RECORD STORAGE AREA 
B36 * 
7600 37 ORG. x*7600° 
7600 838 PATCH eau * ; MICROCODE PATCH AREA 
7600 FFFFEFE FEF FFFFEF TTIEE 839 oc Si2xKLi*rre 
7608 FFFFFEFFFFFEEFFF @39 
7610 FFEFEFFRFFEFFFFF 829 
761° FF RF FFFFREFFFEFF B39 
7620 FREFFFEFEFFFFEFE 839 
7628 FFFEEEFFFFEFFRFE 839 
7620 FFEFEFFFEFFFFFEE 839 
7638 FFEFFFEFFFEFFFFE 829 
7640 FRFEFFEFEFEFEFFEF 839 
DATE 15 auG7S oSNOV?S PROG ID citie | DATE 1S5AaUG75 OSNCVTS PROG 10 Ci Ti- 
EC NOo 6827779 a27627 ; PAGE 10 EC NOo e2777¢9 e27827 PAGE 208 
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IGM MAINTENANCE DIAGNOSTIC PROGRAM : PARY NOs 4247611 - $84 MAINTENANCE DIAGNOSTIC PRCGRAM PaRT NO. 4247611 
: PAGE a2 © PAGE Taa 
civi 3240 MICROCCDE LCADER ~ MOD 12 gc 3340 MEICROCOCE tCACDER ~- MOO 12 
ERR toc CBJECT CODE ADOR STMT SCURCE STATEMENT CROSS~-REF ERENCE 
B41 FOF O6S5 OR NORE HE EKKECAEESES EASES SHKEKTES SHEE KEKRGE SHEE KEBEEES KE SEAREEEESEESEED CC evient. T LEN VALUE OEFFN REFERENCES 
842 © _ 
643 ¢€ SYMBOL OEF INI TIONS * ALSO A&A 004 6E€60 o321 0338 
BAS & * ‘AWOPTD AOO2 GALE 90232 
B45 SFHSCSES SEKEEAKE SEKS CES SEIHSSEKECSE SEK ESE SRS SSRESKSSTKEHSSEKSEKLSESKKSESVSTSSKLKKEKEES ARR € 001. 00CB 9O85i 0048 0873 0591 0603 0625 0637 0659 0680 0694 
646 * - BITS € 001 6080 0879 Of8S O192 0416 6444 0453 0456 0478 0481 0708 
847 * RCCAL STGRE REGISTERS BIT € 601 0604060 0880 0697 
; 648 « Bite ¢ 6001 9020 96861 0312 0324 0332 O2337 O3514 O4647 04648 0459 0484 0612 ©0613 O616 
o 5 ; 0001 B49 KRi eou X*O38% INOEK REGISTER }% . C617 
6002 650 KR2 EQU x*O2¢ INDEX REGISTER 2 C errs ¢ oo1 ooce 0c8as2 9238 
0008 851 ARR eeu xe ogee ADDRESS RECALL REG {CURRENT LEVEL) BIiT6 Cc 003 9002 ose3 9€45 
852 * BIT? c¢ oo1 ooo! 08s4 0327 OSO? d€45 
CES S28 86 8S e828 os Se Se Sse es 8S ee 8 See SSeS es Se eee See a Seen eee SSeS eer eee = ¢ A 003 72EQ0 06820 0189 02048 02078 0211% 02148 62158 C221* G226% 0281% O0304e 63384 03436 
854 & MESSAGE / HALT IDENTIFIERS O257* OC43E* 0448S 0467% 05757 0612 0616 0642 
° 655 « - CED & 002 7281 6759 05190 
€100 256 HLTOO EaQuv xXeci990¢ NGO HALT (PRINTOUT ONLY 3 C exes A ©O& 6C06 6141 0124 
cio. 857 *TO01 E€ou x*C 1023¢ : ERROR HALT CAFTER PRINT} CLRSTG a 003 6C6C C6094 e093 0098s 
e658 + =- CMPRS A OOS E6CAE 0149 
f 
B59 Seem mmm ewe ewe come cee ere eee wee ewe Oem Se meme ew erw ew moo we mmo mm eroormsern= 5 CMPOG A OC6 G6GCAD 6122 0136 
B60 * PROGRAM INDICATORS , com 29001 ©a19 c028 O0S4* O25E 9256% O260% O5iSs 
661 © eo CR a2 06003 T2E1i 0821 0295 0284¢ 03054 03106 9312 6O349% 0324¢ 0327% 0332¢ 03352 0337 O3442 
0088 862 LINKSW Eou xeaoe SECTION LINK INDICATOR : C 0349% 0351 O25ee OS7Et 0646 
0040 863 LOADS! Eou x¢aoe INITIAL ENTRY INDICATOR CSACC a 002 7297 #«O772 6608 
0020 864 LEL E€ou x*20¢ LAST ERROR LEFT INDICATOR . . CSAR & 002 T72E4 e824 O1SS* 0182% 0410% 0462¢ 0696 0825 0826 
0008 865 MBL eou xeoee CS ERR - MUL TIeRIT LEFT - CSAaRB aoo2 72E3 082s O457% 0459 04828 0484 O876 
0004 866 BR €ou x704° CS ERR ~- MUL TE-BIT RIGHT CSARD A O02 TLE4 6826 G1 92 G64Sis S452 24564 04766 0478 04818 0577 
0002 667 SBL €avu x*o26 CS EPR - SINGLE BIY LEFT CSERR A 008 TOBE O£86 O478 
0001 868 SseR €au x*o.e CS ERR - SINGLE BIT RIGHT - €17 ¢ oo1 OC1i7 6015 0033 0046 
66S « cive A 001 ec0o0g 0006 
671 3380 PROGRAM COMMUNICATION APEA (COM) INDICATORS ‘CECAY A 006 7037 0507 6s08 
a72 & ‘ ost aoo2 72CE of03 
0020 873 MPLFLG eau xe2oe MICRG~PROGRAM LOAD COMPLETE Ox¢ £002 72¢C1 o8oi 
ae 0010 874 FAOFLG EOQU x*10° LOAD SECTION FAO ONLY “EIGHT A 002 7281 0791 6213 
875 ERRHLT A 0OS 7078 oOf£58 05421 0552 
E716 Bem ewe eee cee ow ee Oe Cee & — 6 Oe 8 ee 2 One 8 Oe OO Oe OO SOOO OT Ce Fe er ele wow oe woowes ' EXTBL A COi T26A 0797 0279 
S77 & GIT POSITION SYMBOLS - EXFRST A 0CO& GEC o264 0299 
8768 « : Fao A002 6C85S 0105 0072 0077 O080 0241 0244 0246 | 
0080 879 eITO €ou x*B0° FAFLG C O01 0010 oB8T4s 0255 0256 : 
0040 880 BIT! €ou xeaoe ; - FAOGIOD £002 OAa20 06033 OO7T2 o241% ; 
0020 881 B81T2 fou x*20¢ Fur A 002 72¢9 0805 
oo0o0s 882 BIT4 €ou xeoee FOUR A 002 T2AaFr 079060 0310 
0002 883 BITE €ou xeo2e FTG A002 72C3 0802 
6001 684 BIT7 €0ou xeore FTR A 002 7288 0798 
865 - GENADR A 008 716A 06948 0156 0183 0584 : . ae 
886 DO 6 CO 0 OE OOO OOS OOS OOS OS OOD BOOS OE OS OES BOSE OS BS BOO OOO ODS SHO DO TZee GENALP a 006 7184 O707 o709 : : 7 : 2a mt : 
687 * OCP SECTION REFERENCE TABLE GENAX A OC& 71C6 0733 06948 pa * ; : 3 : 
668 « -GENXXK &£ GO& T71iaC 0703 0701 
0216 889 LINK €ou x°0216* LINK TO NEXT ROUTINE OR SECTION so A 004 7008 0498 
O21A 890 PRINT Eouv K*O2Ra¢ PRINT A MESSAGE : cove & 006 7010 osco 0504 
0222 891 HALT Eou x*0222¢ HALT ANDO CISPLAY HALT IDENTIFIER ‘ GOPRT Acos 7087 0513 osoi 
0226 892 PACK Eov x*O0226° PACK DATA - EBCDIC TO KEX “HALY Cc 00% 0222 0891 os58 . 
Me on a Bes at (022A 893 LOAD =EQUx*0224A8 LOAD NEXT SECTION OR RECORD HORSTG A 001 7500 0825 0107s 
©0203 694 SIZE £ou x20203* ° &° — MAIN STORAGE SIZE 7 : . Co c¢ 00% €Cico 0856 0087 O2E6EE€ O517 
895 & “HETOL C 001 C€1i0% 0857 0539 0550 6589 
897 ¢ CTHER REFERENCES EXTERNAL TO THIS SECTION . ge Ind A 001 7203 0812 0049% 005% 00708 0257 0521 . 
98 * | INVERT A OOS 7162 0éa0 o618 
oeeo 899 REC €ou x*oasoe LOAD SUGROUTINE INPUT AREA : ECPERR A OOM 7061 0535 0381 0390 0258 0401 
a 0804 905 RECN Eou REC+84 ENO OF MICROCODE TEXT RECORD ' errs A oOo1 720C o0816 0424 0432 0441 O471 9562 0503 0613 2617 0664" 0666 O06866¢ 0667% 
nage 90% * i 0683 CESSES CEEGEt 06874 
9000 902 UCODE 2 e€oy x*9000¢ ATTACHMENT MICROCODE i IVRTX &2004 7186 0689 06808 
903 * ; t K024 A 002 7277 o7Ss2 0383 0639 
3c00 904 UCCOE! eau x*3co0o0* FAO LOCATION IN 32K MACHINE ‘ +034 A002 7279 oO7£3 0274 0385 . 
905 * i KOS AOO2 7275 0753 0273 O37: 0629 
f FFFF 906 ENO , : 2 AL UD A 002 72A3 o777 60293 90362 03668 0581 
“2 LCSAOR A 002 7291 0768 0369 
LcsaR Aa 00& 7085 0573 0412 0464 
OatTEe 1SAUGT75 OSNCV7S : PROG 10 cCitiege DATE 1SAUGTS OSNOV75 é “PROG 10 Civrie 
EC NOe 827779 827827 PAGE 11 e*S NO 827779 S27827T PAGE L3A 
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1 ome a ee es cee ett ee te a ee ee ee 


Qeeeiee ee Gt aie 


PART NOe a2a7611 
18” MAINTENANCE DIAGNOSTIC PROGRAM ; dal NOe arerer : 1BM MAINTENANCE OFAGNOSTIC PROGRAM oc con 


. 40 MICROCODE LOADER - MOD 12 
C171 ° 3340 MICROCODE LOADER - MOD 12 co 3340 MIC , 


| 
| 
CROSSREF ERENCE 
CROSS-REFERENCE | 
eS REFERENCES 
SYMBOL T LEN VALUE OEFN REFERENCES : CC syveot T LEN VALUE CEFN 
Sere one: eee" ont ae | Coe = Sek seus sees 0107 0108 0123 0138 01413 O164 0152 0155 0156 0165 0900 
pee ee eee cece. ‘agas | RECN C€ 003 0804 0900 0119 0226 01268 02329 0229% 0135 
LOCSAR A 002 728F 0767 ose2 MeCN ce pee deete (niet Te 
LOCSO!1 A 004 6F41 0412 045% 0460 | C eee Pee. coun eave ote 
LOCSO2 A 00S EF7C 0435 0417 ! Be ee coe. cece ou 
LOCSO3 A 006 6FA7 0453 0442 ! Boren Roos ecole. ine ae 
_ LOCSO4 A 004 6FCD 0464 0479 «0485 oo Rice cea” oper 
LOCSOS A 004 6FE? 0474 0425 0433 0445 Bree Bee ones. “cier at 
Neca’ ak Sha uceE OOs6 aces abe REP06 £005 6048 0198 0193 
LOFAO &€ 004 6C22 0070 0052 0055 i¢ Bee eee eeae, ence ote 
LOMSG A004 6CSi 0083 0073 0079 : Bee, ) eee eGas. aeoE phe 
pe Pees. sane. Beat | ¢ REPROD A 004 6062 0205 0203 
rote sa Gag vecoe. V6bas C REP10 A 006 606A 0209 0212 
Cees Gen: Seta. eoee REP11 A004 6D79 0212 0210 
LORLKX A 00@ 6C1A 0087 0048 0258 0522 | Bere ee eae okie bh 
LD001 A 006 6C4&? 0080 0076 |  eeete Foe ee Oe eens pd 
ne es Sean Seca REPILS A O06 6094 o222 o224 
Dei eve ees ines pace : REP15S A 00S 60A6 0228 0217 
LEXTAR #002 7287 O7E3 o292 : eco Fee eee aaa 
Peare a eas) eden! aes cee RNMODE A 002 7273 0749 0495 0750 
ee cveee “ae ps. Gans Sess , RSPCR A002 7272 0748 0372 
LINK € 001 0216 0889 o£26 i ae Ree ee iene 
LINKSW ¢ 001 0080 0862 0049 0287 0521 pase ee er cee. “pees ss 
LOAD C¢ 0Ot O22A 0893 0103 0110 | healt Bee eee cascs oer 
LCADER A 008 60E7 0255 0078 0081 0245 0561 | Cone er oee tere eae cose 
LOADSW C 001 0040 0863 00S: O70 . ee A OOe eee eee 
Lop A 00% 7108 0637 0285 0290 0360 0366 0579 OS93 0627 as = SON ee ee ees 
LOPC A 002 727F 0756 0605 0757 coe SON eee eae 
LOPCR A 002 7283 o760 0606 O761 | es Acoee tece. oes 
toe! epee eee bse eo | . | » STOLE A002 7273 0750 0377 
LOPY a 002 7285 O762 0607 . ¢ SES eee core grace aes a 
7 txoP A004 70F& 0628 0208 0222 0325 0330 0333 0347 eee eee: ee ee Bes haces saad Jones 
eats a LXOPX & 004 7104 0632 0625¢ : ate 00k 007, cere oore 
ee Secu: oace ieeee © sopc A 002 727F 0757 0661 O788 
ane Fock ates: cone , : sopcR a002 7283 C761 0663 
Sect: woes: “SEOs 0871 a : , ¢-SOPX A 004 7ISE 0669 06598 
MPHLT A 002 G6GEOS 0271 - (cern A 002 7270 oO7§5 0386 
MPLFLG € 001 0020 0873 0260 0819 . Bs Ree eae: corks One. 
Becaasacese sica <gvaac edea | i S¥PFC A 025 0A39 0035 0084 
MSGOIN A O27 T7IE4 0724 0264 0268 | Core: a cee ee ooee 
Daa Gres sieds ores Sone $i A006 6CBB 0128 OL121% 0122 ©0125 O1326 0235 
MSGOZN A 019 VIFF 0727 0085 oCceée 0233 | = ay Le aetna ataee 
Deere ee oes ae gas ane C text a 004 6CE9 0152 0145 
MSGO3N A 029 7224 0730 O52? 05368 | FE ee eee cies os 
MSGO& A OO 7228S 0732 oses SERTOT Oe O08 eer ates aiee 
MSGOAN A 024 722C 0732 0S48 0549 | ae mocpe: tere ore pies 
Wiiegdiacoua ‘sene: 100a6 ia UCODEL € 001 3C00 0904 0077 0089 02468 0699 
cecea a Gols eean! 0758 ng ee | UCODE2 C 001 9000 0902 0080 0092 02448 0702 
Pre tecida ieee Seger: Sohee | \ uoto & 003 oAoc 0024 
Poet nen: Gees“ gres WORK aA 0O1 72Ee O821 0200 0202 O202* 0205 02098 
ec tece Pisce sobs oer aies } | K 004 T2EB 0832 0096" 0097 02198 0222 02228 02378 0238 O37e* 0380 O387¥ 0389 0395* 
MI eek pee eee. severe eves Gees ee ee | or ee O395# 0397 0400 O498* 05008 06418 06429 0643 0645 C646% O64T 06498 
ies? To ooe ies ac cored Ree eae aaee O650% O6Z1 06624 0667 06826 06834 0684% 0686 0687 0696" C697 O697* 
ONE A 002 7289 0787 0133 0335 0349 0453 0457 0476 0482 0498 0500 0507 | Bee Cee cee ee ere eae ori 
OPREG A 003 722 0819 OLE7T= 0219 0228 O419* 0428 0427 0432 0435* 0441 0466 0471 0820 | Ones tana. eee eee te eee oe 
0821 0622 
WRCSL A 002 7290 0774 0595 
Brcik, bGGt e880. Case . =m WRCSR & 002 729F 0775 0596 - 
Eteca ooed see: ones anne | CO WRESK & 004 70BD 0598 osGi« 
Boon eee aaa “OEE XRI C001 0001 0849 O089* 0092% 0094 009% 0095* 0096 0119% 0124 0126 O131" 0160 0162 
bee face eeeel eats | O162* 0195 0198 0228 0230 0230% 0279 0289 0296 0296" 0298 04:4 
bie a bees eat Ort | @ 0416 0435 0464 0447 0466 OS0E* O0507% 0699* 0702# ar0a8 ore eave 
7 Soot coeua cones ae O177%.0179 0182 0185 0165* 618 
PRINT COOL O21A 0890 0082 0262 Of£13 O53£ Oo846 | XR2 € 001 0002 0850 onsee oreo a. pie 2 
PROC A 002 72A1 OT76 0630 7 
ROCS A 004 70C1 0603 0422 0430 0439 0469 | @xro ‘ ee? ae oe ide 
ROCSX £004 70FO 0620 0603# 0614 | ats ; 
| & | 
PROG {0 Cit 
DATE 1SAUG?S OSNOVTS PROG 10 Ci71= | DATE rae’ oaven?? oe 2 
EC NOo 827779 e27827 PAGE 12 @* NO. 62 
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627785 


3240 FRIENDS TEST - MOD 12 


ADDR STMT 


38A0 
3839 

3704 

3791 

2763 

27CB 
0885 
0686 
OB88 
oB8D 
OB8E 
0890 
0891 
OBBS 
0BB5 
0687 
oBBC 
oBBD 
OB8BF 

364F 

36AC 

3683 

36F7 

OS5NOV7T5 

827827 


154 
155 
156 
157 
158 
159 
160 
él 
162 
163 
164 
165 
166 
167 
168 
169 
170 
17k 
172 
173 
174 
175 
176 
177 
178 
i779 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
20k 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
22 





SOURCE STATEMENT 


PART NO. 4247613 
PAGE 2A 


ERESEEEREHARSETERES E4EEEEREESEESER EEE SEED ERERRE ESS SER TES TOES SETHERET ESS 


x 
* 
2 


COMMAND ENTRY 


= 
= 
* 


ERREERAREREERERRRSEEESEESERSERSE SRE EERE SEERRAEEEE SHE RER ELASTASE SES FSS 


* 


= 
ENTCMD 


* 


* 
CLRSTG 


* 
NXCMO2 
* 


& 


mo ee ner ee eee er ere eer ae ear en eo ree ee ne ee ema ene Aon mae 


PROCESS ORV FIELD ENFERY 


24HART6 
827879 


USING CMDTBL?XR21 
USING DRVWKs, XRZ 


LA 
LA 


SBF 
MVI 


Myr 
LA 
ST 
cic 
Bt. 


MVC 


MVC 
MYC 


B 

Dc 
oc 
oc 


8 

oc 
1 
oc 


EQU 
TBN 
BT 

TBN 


' BT 


TBN 
BT 


TBN 
JF 


8 

oc 
OC 
oc 


B 

oC 
oc 
OC 


MVI 
MVC 
MYC 
MVC 


B 
MVC 


CMOTBL »XRL 
DRYWK » XR2 


FLAGS sBITO+BI Tl 
KBSTATs0 


OC» XR29 5X00! 
1(—XR22_XR2 
WORKN¢ XR2 
WORKN(2} 2 IDDCR 
CLRSTG 


MSGN(100) ,MSGN+1 


MSG417(18) oMSG03417 
MSG+35 (18) _»MSGO4N 


PRINT 
XL1°O3° 
ELL®¢36° 

AL 2(MSG435) 


PRINT 

xL1i*o2* 
1L1°13* 

AL2 (MSGOA412) 


* 
KBSTAT,X*80* 
SELECT 
KBSTAT,X*40* 
LINK 
KBSTAT,X*20* 
AMOPRN 


DEVICE,x*80! 
NXCMD2 


PRENT 
XLL°OL® 
TL1°35° 
AL2(MSGO5N) 


PRINT 
XL1L*O1L* 
TLLS47° 

AL 2(MSGO5A} 


DATASW, MULTSW 
CFLGN(2)-10 
INPUTN(40) 5 INPUTN4+1 
INPUT#2(2) eCMOCNT 


KEYIN 
INPUTN(35) (KER 34 





XR1 POINTS TO CMD STORAGE AREA 
XR2 POINTS TO ORIVE WORK AREA 


POINT TO STARF OF CMO STG AREA 
POINT TO START OF WORK AREAS 
RESET PROGRAM INDICATORS 
CLEAR K/B STATUS INDICATOR 
CLEAR 

DRIVE | 

WORK 
AREAS 

CLEAR 


SETUP COMMAND 
ENTRY HEADING LINE 


PRINT 
COMMAND 
ENTRY 
HEADING 


PRINT 7 
ENTER 
COMMAND 


BRANCH IF 

CANCEL REQUESTED 
BRANCH IF 

END REQUESTED 
BRANCH IF 

&AMOP REQUESTED 


BRANCH IF 
NOT 5471 ENTRY 


PRINT 


ENTRY FIELD 
DESCRIPTION LINE 


PRINT 
TMPUT 
FORMAT 
MULTIPLE SWITCH ENTRIES REQD 
CLEAR FLAG FIELDS 
CLEAR INPUT AREA 
SET UP COMMAND COUNTER 


GET KEYBOARD INPUT 


ee ON EN NINE I A A A A GY AR OY LAY AY AD EY EO SE 


PROG ID 
PAGE 


C1b-2° 
2k 





My ee 


i 


we ee ow: 


} 18M MAINTENANCE DIAGNOSTIC PROGRAM 


C182 


ERR LOC OBJECT CODE 


OBEO 
OBES 


eee ceed? Dees 


OBEA 
OBEE 


{ OBFL 
OBFS 


OBF8 
OBFE 


0co2 


ocos 
4 oco9 
ocoo 
0c 10 
0C14 


oci7 
oc1B 
Oc1F 
0C22 
0C26 
6Cc29 
i oc2D 
Oc2E 
oc2F 


oc3l 
0c35 


0c38 


OC 3F 
océ2 


oc4s 


0c 4B 


Oc4E 
0c 54 


ocs7 
.0C58 
Ocse 


0Cé62 
oc6s 


océB 
OCc6F 
ocT3 


oc77 
oc7o 


DATE 
EC nO. 


ADDR STMT SOURCE STATEMENT 
222 * 
OBEO 223 ENTO1 equ * 
OC 63 3790 3791 224 MvC MSGN( 100) » MSGN#3 
3c 00 3668 225 MMVI DATASW,s X*00! 
226 € 
30 Fl 368A 227 CLI INPUT#6,C Plt 
F2 81 14 228 JE ENTOS 
229 & 
30 F2 368A 230 cCLi INPUT+6,C *2* 
f2 Bi 1F 231 ' JE ENTO4 
232 * 
OD 02 3688 2881 233 cic INPUT*+ 713) »MSGOAt4ES 
co 81 OC57 234 BE ENTI0O 
235 * 
F2 87 24 236 J ENTO? 
237 *& 
C2 02 3839 238 ENTOS La ORVWK1, XR2 
3c CO 3819 239 MVI Qex*Co* 
BC 80 16 240 MVvI UCKMSK(,XR2) -X*80! 
38 40 020C 241 TBN SBYTE4eSSW2ZL 
F2 87 28 242 J ENTOS 
243 # 
C2 02 3873 244 ENTO4S ta DRVWK2eXR2 
3c C8 3819 245 “VI Qsx'cae 
Bc 40 18 246 MVI UC KMSK(,¥R295X*408 
38 20 O20C 247 TBN SBYTE4sSSW22 
F2 87 16 248 J ENTOS 
249 * 
CO 87 O21A 250 ENTOT 8 PRINT 
ol oc2b 251 oc xLitol* 
20 OC2E 252 oc IL1*32¢ 
28C2 0c30 253 oc AL2(MSGOCN) 
254 * 
Co 87 LFAD 255 8B KEVIN 
OC O01 368A 3606 256 MVC INPUT46(21,KIN@2 
257 * 
co 87 OBEO 258 8 ENTOL 
259 @ 
260 #- 
261 2 PROCESS CMD FIELD ENTRY 
262 @ 
f2 10 03 263 ENTOB JST ENTOSA 
264 & 
BA 40 CO 265 SBN DFLG(.eXR2),0BIT1 
266 & 
267 
268 ¢ 
0D 01 3683 3632 269 ENTOSA cic CMOCNT,DO} 
F2 81 14 270 JE ENTLL 
271 © 
00 02 368E 288} 272 cic INPUT41043) eMSGOAt+45 
F2 01 OB 273 JNE ENT11 
2t4 & 
3A 40 37E5 275 ENTIO SBN FLAGSeBITL 
276 © 
7 FF 0O 277 KVI OC oXR1} eX" FFP 
278 @ 
CoO 87 133F 279 8 ENT67 
280 # 
OD 04 3690 2867 281 ENTL1 cic INPUT#12 (5) »MSGOAt19 
f2 01 OC 282 JNE ENTL2 
283 * 
3C 80. 37E7 284 MvI CFLG,CBITO 
3C O1 381A 285 KVI R,X*Ol* 
co 87 OE9D 286 8 ENT25 
287 # 
00 03 368F 2660 288 ENT12 cic INPUTS22 (4) »MSGOAC2Z5 
f2 01 10 289 JNE ENTI4 
15AUG75 OSNOV7S 24MARTE 
827785 827827 827879 


3340 FRIENDS TEST - MOO 12 





PART NOW 


4247613 
PAGE 3 


CLEAR MESSAGE AREA 
SINGLE SWITCH ENTRIES REQD 


BRANCH IF 
ORIVE 1 SELECTED 


BRANCH IF 
ORIVE 2 SELECTED 


1S IT ENO COMMAND 
BRANCH IF YES 


GO TO PRINT MESSAGE 


POINT TO ORIVE 1 WORK AREA 

SET ORIVE i ACOR IN SIO Q BYTE 
SETUP UNIT CHK HSK FOR DRIVE 1 
CHECK IF WRITE ALLOWED 

GO TO PROCESS COMMAND ENTRY 


POINT TO ORIVE 2 WORK AREA 
SET ORIVE 2 ADDR IN SIO Q BYTE 
SETUP UNIT CHK MSK FOR ORIVE 2 
CHECK IF WRITE ALLOWED 
GO TG PROCESS COMMAND ENTRY 
PRINT 
SPECIFY ORIVE 
TO SE 
USED 


GET KEVSOARD INPUT 
MOVE TC INPUT AREA 


GO TO PROCESS RESPONSE 


BRANCH IF WRITE NOT ALLOWED 
SET WRITE ALLOWED INDICATOR 


BRANCH IF FIRST 
COMMAND ENTRY 


BRANCH IF NOT 
END COMMAND 


SET CMD ENTRY COMPLETE IND 
END COMMAND 
GO TO PRINT END COMMAND 


BRANCH IF NOT 
RECAL COMMAND 


SET CMD ENTRY CNTRLS FOR RECAL 
SETUP R BYTE FOR RECAL 


BRANCH IF NOT 
SEEK COMMAND 


PROG ID 
PAGE 3 


C182 


@ 
és 


164 MAINTENANCE DIAGNOSTIC PROGRAM 


C182 3360 FRIENDS TEST - MOD 12 
“ERR LOC OBJECT CODE 


0 cree er er ee ren ee a OL LL I <n 


| : $ | S e 2 ¢ e & & @ ® & @ @ @ & : 
| ; ; - _ ee Bee - % - - ; ® & 8 & 
° pe ern, 2 = 2 eee ” 
oat Sst tesa oer eens J : . 5 


PROCESS RD COMMAND SUB-FIELD ENTRY 


ADDR STMT SOURCE STATEMENT 
ey 290 * 
“  9C80 3C 40 3690 291 MVI - INPUT#12,C* © 
_  0C84 3C 00 381A 292 MVI Re X*008 
{  — OC88 3C 40 37E7 293 MVI CFLG,CBITI 
294 + 
. CBC CO 87 OEID 295 6 ENT25 
{7 296 
; 0C90 OD 01 368D 2871 297 ENT14 CLC  INPUT+9(2),MSGOA+29 
_.  0C96 F2 81 56 298 JE  —-ENTLT 
C3 299 * 
0C99 0D 01 368D 2875 300 ENTLS CLC  INPUT+9(2),MSGOA+33 
OC9F F2 O01 18 301 JNE  ENTISA 
€ 302 * 
~ OCA2 BB 40 00 303 TBN = DFLG( »XR2),DB1T2 
OCAS F2 10 FB 304 JT  —-ENTI9 
Cc 305 * 
OCA8 OC 63 3790 3791 306 MVC = MSGN{ 100) »MSGNEL 
_ OCAE GC OF 373C 2920 307 MVC - MSG#15(16)»MSGION 
€  0CB4 OC 18 3758 2839 308 MVC —- MSG#43(28) s MSGOON 
~" OCBA F2 87 1C 309 J ENTL6 
| 310 ¢ 
{*  0CB8D OD O1 3680 2879 311 ENTLSA CLC INPUT+9(2).MSGOA+37 
occ3 CO 81 0E4D 312 . BE  ENT24 
313 * 
€ ocC7 OC 2F 375C 2883 314 MVC =: MSG+47(48} » MSGOAN 
315 * 
OCCD B8 80 CO 316 TEN DFLG(,XR2)sDBITO 
€;  ocoo F2 10 66 317 JT ENT16 
318 * 
O oCO3 OC 1€ 3770 28A2 319 MVC MSG+79(31) »MSGOBN 
— 0 320 * 
0CD9 CO 87 021A 321 ENTL6 = BB PRINT 
OCOD 01 OCDD 322 pC —s« XL. O1* 
€ ocd 50 OCDE 323 pc 8Fs«édTL.2* 808 
CCOF 377¢ OCEO 324 DC =—_—s« AL2.( MSG+799 
325 ¢ 
(> oce1 Co 67 1FAO 326 8 KEYIN 
OCES OC 04 3690 3609 327 MVC «INPUT #125) sKINC4S 
328 © 
€> OCEB Co 87 OBEO 329 8 ENTO2 
330 * 
331 
© 532 * 
333 * 
OCEF CC 63 3790 3791 334 ENT17 MVC MSGN{100)»MSGNE2 
€}  -OCFS 3A 01 3819 335 SBN Q,X*O1* 
336 * 
oO OCF9 3C 20 37E7 337 MVI - CFLG»CBIT2 
338 © 
OCFD 3C Gi 381A 339 MVI | - Re X# OR? 
ODOl OD 02 3690 28F1 340 CLC = INPUT#12(3) »MSGOFe26¢ 
€3 0007 Co 81 OESD 341 BE = ENT25 
342 * 
0008 3C 09 381A 343 MVI Re X#098 
C:  ODGF OD 02 3690 28F6 344% CLC = INPUT #12(39 sMSGOF #29 
. 0015 CO 81 9E9D 345 BE ENT25 
346 + cs 
€} op19 3¢ 10 37E7 347 MVI CFLGeCBIT3 
348 © 
_. 0010 3C 07 381A 349 MVE -RyX*O7e 
C. 0021 0D 02 3690 2913 350 CLC INPUT#121.3) »MSGOF*58 
0027 cO 81 OESD 351 BE ENT25 
352 * 
€* 0028 3C 05 381A 353 MVE =- Ry X05" 
OD2F OD 02 3690 2918 354 CLC INPUT #1213 sMSCOF S66 
_ 0035 CO 81 OESD 355 BE ENT25S 
$e 356 * 
0D39 3C 04 37E7 357 | MVI CFLGsCBITS 
Cour 15AUG75 OSNOV7?5S = 24MART6 
oO” NO. 827785 827827 827879 


PART NO. 


4247613 
PAGE 3A 


CLEAR UNUSED CHARACTER POSITION 
SETUP R BYTE FOR SEEK 
SET CMO ENTRY CNTRLS FOR SEEK 


GO TO PROCESS FLAG ENTRY 


BRANCH IF 
RD COMMAND 


GRANCH IF NOT 
wR COMMAND 


BRANCH IF 
WRETE IS ALLOKED 


CLEAR MESSAGE AREA 
MSG--WRITE INHIBITED 
MSG-~SEE USERS GUIDE 
GO TO DISPLAY MESSAGE 


BRANCH IF 
SCAN COMMAND. 


MSG--ENTER COMMAND 


BRANCH IF NOT 
FIRST COMMAND ON THIS DRIVE 


HSG-—-RECOMMEND SEEK 
PRINT 


EnTER 
COMMAND 


READ RESPONSE 
MOVE TO INPUT AREL 
GO 7O CHECK RESPONSE 


CLEAR MESSAGE AREA 
SETUP Q BYTE N FIELO FOR READ 


SET CHD ENTRY CNTRLS - ROHAE/O 


SETUP R BYTE FOR ROHAE 
BRANCH IF 
RDHAE COMMAND 


SETUP R BYTE FOR ROHAO 
BRANCH IF 
ROHAO COMMAND 


SET CHD ENTRY CNTRLS ROSNS/LOG 
SETUP & BYTE FOR RDSNS 
BRANCH IF 
RDSNS COMMAND 
SETUP R BYTE FOR ROLOG 
BRANCH IF 
RDLOG COMMAND 
SET CHD ENTRY CNTRLS FOR ROCKO 


cls-2" 
3a 


PROG ID 
PAGE 





acaba cae eb brs, irl wane Sheet 6 oe eae ele 85 veer am Ler cam SMT a atin gma Renee eager petra remeron ate nm Mammen in tnt 
¥ 


18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO 4247613 _ IBM MAINTENANCE DIAGNOSTIC PROGRAM oe nee mene 
PAGE 4 &: A 
C182 3340 FRIENDS TEST -— MOD 12 or £382 3340 FRIENDS TEST - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
i ad *.  O€LO0 F2 81 8A 426 JE ENT25 WRCCD COMMAND 
0D3N 3C 02 381A 359 MVE = Ry X#02¢ SETUP R BYTE FOR ROCKD 
0D41 0D 02 3690 2900 360 CLC = INPUT#1213) »MSGOF439 BRANCH IF _.  O€23 3C 03 381A 428 MVI = -R,X*O3e sciur 0 ONie FOR WRREP 
0D47 CO 81 OE9D 361 BE ENT25 ROCKD COMMAND t OEL7 OD 02 3690 2969 429 CLC = INPUT412(3)eMSG11459 BRANCH Sie 
D a 0 ET CHD EN CNTRLS FOR RDROO ery tae 431 * = eee 
0D4B 3C 00 37E7 363 MVI CFLG, s TRY CNTRL a 
OD4F 3C 08 381A 364 MVI Re X* 08° SETUP R BYTE FOR RDROO CE20 3C 02 37E7 432 VI CFLGsCBIT6 a ars Sco WRROO 
0D53 OD 02 3690 28F8 365 CLC = INPUT+#12(3),MSGOF+34 BRANCH IF OE2% 3C 06 381A 433 MVE =- Re X*06 graces ae 
OD89 CO 81 CE9D 366 BE ENT25 ROROO COMMAND OE28 OD 02 3690 2951 434 CLC INPUT4+1203) oMSG1A1 Set dagen 
367 2 OEZE F2 81 6C = . JE ENT25 ! 
OD5D 3C 05 37E7 368 MVI CFLG,CBITS#CBITT SET CMD ENTRY CNTRLS FOR. RDVKD 
OD61 3C 03 381A 369 MVE -ReX*03" SETUP R BYTE FOR ROVKD _ @€31 OC 61 378E 298F 437 MVC MSG4+97(98)e¢MSGLIN MSG--SPECEFY WRITE TYPE 
0065 OD 02 3690 2909 370 CLO INPUT+12(3) eMSGOF+48 BRANCH IF €* 438 © patNt 
0068 CO 81 0£9D 371 BE ENT25 RDVKD COMMAND oeae oF 87 O21A eae oe ENT 23 a Sear cil PEDECLEN Type 
372 © = 
OD6F 3C 06 37E7 373 MVI - CFLG»CBIT5¢CBITE SET CMD ENTRY CNTRLS FOR RDDGN (€: OE3C 64 O£3C 441 DC 1L1°200* OF WRITE 
0073 3C 04 381A 374 MvI Re X*048 SETUP R BYTE FOR RDDGN OE3D 3790 OE3E 442 DC AL2 (MSGR) 
0077 OD 02 3690 290E 375 CLC INPUT+12(3) »MSGOF4¢53 BRANCH IF c ern 5H e ‘ a goin skeeeonce 
0D70.CO 81 OED. 376 BE ENT25 RDOGN COMMAND : OE3F CO 8 
377 © '  QE43 OC 02 3690 36D7 oe i MVC =—s INPUT412¢3) ,KIN®2 MOVE TO INPUT AREA 
0081 OD OL 368F 2904 378 CLC INPUT#11(2) eMSGOF+43 BRANCH IF NOT 
0087 F2 01 10 379 JNE  ENTLS ROKD COMMAND €: 0&9 CO 87 OBEO = Z 8 ENTOL GO TO PROCESS RESPONSE 
380 ® 
ODBA 3C 40 3690 381 MVI INPUT#L2,C*® * CLEAR UNUSED DISPLAY POSITION - EQ Ramm mr nn nr rm ener = 
ODBE 3C 07 37E7 382 MVI CFLG,X*07? SET CMD ENTRY CNTRLS FOR RDKD © ay ; Serie green nnn ae ere tees 
0D92 3C 00 381A 383 MVI «Re X*008¢ SETUP R BYTE FOR RDKD 
3C 05 37E7 452 ENT24 MVI CFLGeCBITS*+CBITT CMD ENTRY CNTRL FOR SCANE/H 
0096 CO 87 OESD zee 2 6 ENT25 GO TO PROCESS FLAG FIELD oC coy =; be eiag aes Sok GS urOse SETUP © BYTE N FIELD FOR SCAN 
OD9A OC 44 3771 2910 386 ENT18B MVC MSG*68(69) eMSGOFN MSG-—-SPECIFY READ TYPE 454 *& 
DAO F2 87 9% 87 NT O TO DISPLAY MESSAGE ; OESS 3C OC 381A 455 HVE =- Re X*0C? SETUP R BYTE FOR SCRE 
oes a6 * ¥ i ° Boe es €: 0€59 00 01 368F 2987 456 CLO IMPUT*#12(2) -MSGL3N-9 BRANCH IF eee 
* i 458 * 
aot * peer e er, eas ee “} O&62 3C OD 381A 459 MVI ReX*OD! SETUP R BYTE FOR SCRHE 
ODA3 3C OA 37E7 392 ENT19 MVI «- CFLG CBIT4+CBITS CMD ENTRY CNTRLS FOR WRHAE/O OE66 OD 02 3690 29B8E 460 CLC INPUT#¢12¢3) »4SG13N-2 BRANCH IF , 
ODA? 3A 02 3819 393 SBN Q»sX*o2* SETUP Q BYTE N FIELD FOR WRITE — e OE6C F2 81 2E = . JE ENT25 SCANH COMMAN 
394 @ 
ODAB 3 01 361A 395 MVI | Rex O18 SETUP R BYTE FOR WRHAE OE6F 3C 00 381A 463 MVE -RyX*06° 5 SET UP R BYTE FSR SCE 
ODAF OD 02 3690 2947 396 CLC INPUT#12(3) »MSG11#25 BRANCH IF .. OE73 3D CS 366E 46% CLE INPUT*1020C°E Fen ana 
ODB5 F2 81 OD 397 JE ENT20 WRHAE COMMAND (;  Oe77 F2 81 23 a? SE OENT25 SCE C” 
‘ ; 
OOB8 3C 09 381A ace MVI «Re X* 098 SETUP R BYTE FOR WRHAG OETA 3C 02 381A 467 HVT = RyX*02¢ | SETUP R BYTE FOR SCHE 
ODBC OD 02 3690 294¢ 400 CLC INPUT#12(3)»4SGi1430 BRANCH IF NOT (2 OE7E OD 01 368F 298A 468 CLC INPUT411(2) >MSGL3N-6 BRANCH Lenn 
ODC2 F2 01 1c 401 JNE  ENT21 WRHAG COMMAND OEB4 F2 BL 16 a : JE ENT25 SCHE CO. 
402 * . 
O0C5 38 80 0206 403 ENT20 BN  SBYTE4»SSW20 BRANCH IF 471 * 
ODC9 F2 90 Dl 404 JF ENT25 WRITE HA IS ALLOWED ocr - 87 O21A ae ai2 a a eu 
405 * ‘ SG 
OOCC OC 63 3790 3791 406 MVC = MSGN(. 100) »MSGNF1 CLEAR MESSAGE AREA €5 OBC 1E CE8C 474 pc 1L1°30* , ae ets 
ODD2 OC 12 373F 29A2 4O7 MVC = MSG18 (193, MSGL2N MSG--WRITE HA INHIBITED OEBD 29C0 OE SE nats ‘ oc ALZ(NSGI3N) 
O0D8 OC 16 3758 2839 408 MVC MSG#46(28) »MSGO6N MSG--SEE USERS GUIDE 
_ £3  O€B8F CO 87 1FAD 477 8 KEYIN READ RESPONSE 
Opn Caren Oe aie * ° ee Soy waaneee enone. Oo 0E93 OC 02 3690 3607 478 MYC  INPUT412¢3) .KINC2 MOVE To INPUT AREA 
ODE! 3C 07 3TET 411 ENT21 MVE CFLG,X*O7® SET CMD ENT CNTRLS WRKD/CKD/REP' . 479 * 
12 €) 0€99 Co 67 OE4D 480 rs) ENT 24 GO TO PROCESS RESPONSE 
ODES OD O1 368F 2961 413 CLC INPUT#1L102)eMSGLI¢51 BRANCH EF NOT act . a 
ODEB F2 O1 08 414 JNE  €NT22 WRKD COMMAND Seen Son Pe re eer ene ee 
ee 415 ; - . me : PROCESS FF FIELD ENTRY . 
ODEE 3C 00 381A 416 MVEI = Ry X*008 SETUP R BYTE FOR WRK 
ODF2 3C 40 3690 617 MVI -INPUT#12,C® * CLEAR UNUSED CHARACTER POSITION  OE9D OD 01 3693 3661 465 ENT25 CLC INPUT+15(2} eBLANKS BRANCH ae ucbe le ene anUe 
OOF6 F2 87 A4 418 J ENT25 GO TO PROCESS FLAG ENTRY (3 O83 F2 O1 18 : SNE  -ENT27 use 
419 @ 
ODFS 3C 02 382la 420 ENT22 MVE =—- Re X#028 SETUP R BYTE FOR WRCKD  OEAG OC 01 3693 3630 488 ENT26 MVC —s INPUT#35(2} -D000 DEFAULT FLAG TO ‘00° 
ODFD OD 02 3690 2950 421 CLC = INPUT#12(3) eMSG11 447 BRANCH IF G sean 55-80 diet ace - ee ore rT GO TO PROCESS CYi ADDR 
& 
OE0O3 F2 81 97 a2: . JE ENT25 WRCKD COMMAND | Been ge co oe ya Oe cece ues nonee cise) 16 FLAG DERAULE 
on, e é 
OE06 3C 08 381A 424 MV «Rex 0B! SETUP R BYTE FOR WRCCD (j 0883 F2 90 55 492 JF -ENTZ9 TD POOR MAS SCORRECY 
OEOA OD 02 3690 2958 425 CLC «= INPUT #1203) 2MSG11¢42 BRANCH IF 493 # 
DATE 1SAUG7S OSNOVTS 24MART6 PROG 1D C18-2 ~~ DATE 15AUGTS OSNOVTS 24MAR TS oe 1D oes 
EC RO 827785 827827 827879 PAGE & oX NO. 827785 827827 827879 E 
. a 


| : 


























C182 
ERR LCC 


OEB6 
OE%38 


OEBE 
OEC2 


Tr te emus sas | teres. ae ee mreatamaane ements: 


OECS 
GECS 


OECC 
QOEDG 


COEDS 
OcoT 


OEDA 
QEDE 


QEEL 
QEET 


OEED 
OEFL 
OEF2 
OEF3 


OEFS 
OEF9 
OEFOD 
OFO3 


oe OFOT 


OFOB 
OFOF 
Grli 
OF13 


OF15 
OF19 


OFIC 
OF20 


OFZ3 
OF29 


OF2C 
OF 30 


OF33 
OF 36 


OF39 
OF 3E 


OF41 
OF 44% 


OF47 
OF4SC 


OF4F 


DATE 
EC NO. 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


3340 FRIENDS TEST - MOD 12 


INPUT#¢15(2) sFFC(, XR2) 
ENT29 


INPUT414,C€ 70° 
ENT2TA 


INPUT#+1L4,C* At 
ENT28 


INPUT4+124 90°F? 
ENT28 


INPUT S15 »CPAt 
ENT28 


INPUT¢25 ,>CtF® 
ENT29 


MSG422123) »MSG14N 
MSGt50128) ¢ MSGO6N 


PRINT 
XLL*O1* 
IL1°518 
AL2 (MSG450} 


DATASW, FFREQD 
KEYIN 

ENPUT415(2) oKING2 
DATASWsFFREQD 


ERT25 


a OE EN LE EY SEER GRE ASR IO I te LO Ay ne A A AP ah he 


PROCESS CC FIELD ENTRY 


* 


CKDEC 

AL 2CINPUT417} 
AL2 (ENT33) 
AL2(ENT323 


CFLGsCBIT1 
ENT32 


CFLGeX*B80° 
ENT30 


INPUT¢1913),D000 
ENT33 


CFLG,CBIT4 
ENT314 


CCL (9 XR2),X* 808 
ENT31 


INPUT4#19(3) ,CCLU,XR2) 
ENT33 


CCP .XR2) 2X* 80" 
ENT32 


INPUT+19(3) CCPL XR2) 
ENT33 


456449(50) 5MSG615449 


OBJECT CODE ADOR STMT SOURCE STATEMENT 

2C Q1 3693 02 494 MYC 

F2 87 40 495 Jd 
496 & 

38 FO 3692 497 ENT27 T8N 

F2 10 O€ £98 JST 
499 & 

3D Ci 3692 500 Cii 

F2 82 15 501 Jt. 
502 * 

3D C& 3692 $03 Cui 

F2 84 OE 504 JH 
505 # 

30 C1 3693 506 ENT27& CL 

F2 82 O07 507 Jk 
508 * 

30 C6 3693 509 CLI 

F2 02 28 519 SNL 
511 * 

OC 16 3743 2907 Si2 ENT28 MVC 

OC 18 375F 2839 513 MYC 
514 * 

€O 87 O2Z1A 515 8 

ol OEFi 56 DC 

33 OEF2 517 pc 

37 SF OEF4 518 oc 
$19 © 

3A 01 3668 520 SBN 

CO 87 1FaD 521 8 

OC O1 3692 36D6 522 MYC 

38 01 3668 §23 S&F 
524 *% 

CoO 87 ESD 525 8 
526 © 
B27 Ree mn ee 
528 « 
529 & 

OFOB 530 ENT29 EQu 

531 # 

CO 87 1EAA 532 ENT2Z9A i 

3695 CFiIG 533 fe 

OF 68 OFl2 534 

OF4F OF14 535 
536 8 

38 40 37€7 537 Les 

Fe 10 33 538 dt 
§39 * 

39 80 37E7 540 TBF 

F2 10 09 §41 JT 
542 © 

OC 02 3697 3630 543 MYC 

F2 87 3F 54% J 
545 & 

38 068 37E7 546 ENT 30 TBN 

F2 10 OE 547 JT 
548 ¢ 

88 80 08 549 T8N 

F2 90 08 550 JF 
551 & 

2C 02 3697 08 552 MVC 

F2 8&7 2A 553 J 
554 © 

88 80 05 555 ENT31 TBN 

F2 90 O08 556 JF 
557 

2C 02 3697 05 558 MVC 

F2 87 1C 559 J 
560 © 

OC 31 375E 2A09 561 ENT32 MVC 

15AuG75 OSNOV75 24HARTE 

827785 827827 827879 


BRANCH 
CHARACTER IN FLAG ENTRY 


ras “@ eee PO Seeet ae ty eget Se |e 


PART NO. 


PAGE 


DEFAULT TO CURRENT FLAG VALUE 
GO TO PROCESS CYL ADOR ENTRY 


BRANCH IF FIRST FLAG 
CHARACTER IS VALID 


BRANCH IF INVALID 
CHARACTER IN FLAG ENTRY 


BRANCH TF INVALID 
CHARACTER IN FLAG ENTRY 


TF INVALIO 


BRANCH IF FLAG ENTRY CONTAINS 
TWG VALEO HEX CHARACTERS 


MSG--ENTER FLAG 
MSG-~SEE USERS GUIDE 


PRINT 


ENTER 
FLAG 
BYTE 


FLAG DATA SWITCH ENTRY REQD 
READ RESPONSE 

MOVE TO INPUT AREA 
RESET DATA SW INDICATOR 


GO TO PROCESS RESPONSE 


CHECK CC FIELD ENTRY 

ADDRESS OF CC FIELD 

VALID ENTRY RETURN ADDRESS 
INVALIO ENTRY RETURN ADORESS 


BRANCH IF 


SEEK COMMAND 


BRANCH IF NOT RECAL, RDHA, 
ROSNSe OR ROLOG COMMAND 


DEFAULT CC TO 000 
GO TO PROCESS HH FIELD 


BRANCH IF 


WRHA COMMAND 


BRANCH IF CURRENT LOGICAL 
CYLINDER ADORESS 1S UNKNOWN 


SET CC = CURRENT LOGICAL Cyt 
GO TO PROCESS HH ENTRY 


BRANCH IF CURRENT PHYSICAL 
CYLINDER ADDRESS IS UNKNOWN 


SET CC = CURRENT PHYSICAL CYL 
GO TO PROCESS HH ENTRY 


MSG--ENTER CYLINDER AODR 


PROG ID 


PAGE 


ee AP AN A gE EUR HO LD RED 


C18-2° 
5 


AOE 


aa 
pee" 


0 0 


7 


ie 


Nea 


..€182 


¢’ 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Cy 
OFS5 
-.  OF59 
('  OFSA 
;  OFSB 
1 oFsp 
7 OF61 
! te, 
1 ore? 
{ 
t 
| © 
bes OF6B 
: ¢  OFGE 
OFT 
GF73 
IO 
"OF 75 
| C OF79 
, oeze 
| Q OF80 
| "orga 
OF89 
1 & 
| C OF BC 
° OFSO 
{ - 
| OF93 
| OF 96 
| ““  oF99 
| OF9SE 
| © OFAL 
| OF AS 
© OFAT 
| OFAC 
OFAF 
| “ -OFBS 
| © OFB9 
| OFBA 
! €) ores 
/  OFBD 
: €> ofc 
| OFCT 
© OFCB 
© OFCE 
| ¢ OFD1 
| OFD3 
| 
, C3 oFns 
C OFO9 
OFDC 
| © OFE2 
| 
© ore 
EC NOW. 
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3340 FRIENDS TEST - MOO 12 


ERR LOC OBJECT CODE 


co 87 
01 
32 
375E 


co a7 
oc 02 


co 87 


Co e7 
3699 
OFCE 
OFAF 


38 40 
F2 10 


39 BO 
F2 16 


oc 02 
F2 87 


38 08 
F2 10 


BB 80 
F2 90 


2c 02 
F2 B87 


88 80 
F2 90 


2c 02 
F2 87 


oc 19 


co 87 
o1 
19 
3745 


Co 87 
oC 02 


CO a7 


co 67 
3690 
1022 
OFES 


38 04 
F2 10 


oc 02 


ADDR 


O21A 
OF59 
OF SA 
OF 5C 


1FAD 
36397 3607 


OF OS 


LEAA 
OFT7O 
OF T2 
OF 74 


3TET 
33 


37E7 
09 


3698 
3F 


3630 


37E7 
OE 


OE 
16 


3698 OE 
2A 


oB 
03 


3696 OB 
ic 
3746 2A63 
O2LA 
OFB9 
OF BA 
OF BC 


LFAG 
3698 3607 


OF68 


1EAA 
oFDO 
OFD2 
OF 04 


STET 
09 


369F 3630 


F2 87 47 


15AUG7 
827785 


5 OSNOVT5S 
827827 
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PRINT 
AL1°OL® 
TL1°50° 
AL2(4S6449) 


KEVIN 
INPUT#+19(3} »KING2 


ENT 29 


= ; eno ays meee aehas 
cen He, Hee a tang ee ia = ne 
ete Be ” ye [eH tn nm seme ay sy at = Attia (ele, ane 
@ @ : @ — & - @ “oOo | o@  € 


PART NO. 4247613 
PAGE 5A 
PRINT 
ENTER 
CYLINOER 
ADDRESS 


READ RESPONSE 
MOVE TO INPUF AREA 


GO TO PROCESS RESPONSE 


Tce ccm eer et nt a mS Es AH BO os esata tm 


Hu ee A Oe IA A Ot RP I aH tS eae a 


PROCESS HH FIELD ENTRY 


CKDEC 
AL2CINPUT+21} 
AL2(ENT37} 
ALZ(ENT36}3 


CFLG,CBIT2 
ENT36 


CFLGsXK*A0" 
ENTS ¢ 


INPUT+23(33 ,DQ00 
ENT37 


CFLG,CBITS 
ENT35 


HHL (,XR2)5X° 80" 
ENT36 


INPUT4+233} gHHL{ 9 XR2) 
ENT37 


HHP is XR2), xX"? 808 
ENT 36 # 


INPUT4¢23(3} pHHP( 4XR2) 
ENT37 


MSG#25(26}¢MSGION 


PRINT 

KLIP OLe 
IL1*258 
AL2(MSG6424) 


KE YIN 
INPUT 423(3).K IN¢2 


ENT33 


PROCESS QAR FIELO ENTRY 


CKDEC 
ALZUINPUT+ 25) 
ALZ(ENT38A) 
AL2(ENT38) 


CFLG,CBITS 
ENT38 


INPUT427( 3) ,DC00 
ENT39 


STMT SQURCE STATEMENT 
562 % 
563 B 
564 oc 
565 oc 
566 oc 
567 
568 8 
569 VC 
570 * 
571 8 
572 * 
573 
574 * 
575 # 
576 ENT33 8 
577? DC 
578 oc 
579 oc 
580 * 
581 TBN 
$82 JT 
583 
584 TBF 
585 JT 
586 > 
587 Myc 
588 d 
58S * 
590 ENT 34 TBN 
591 JT 
592 % 
593 TEN 
594 JF 
595 
596 AVC 
597 a 
598 * 
599 ENT 35 TBN 
600 JF 
601 # 
602 - Myc 
603 J 
604 
605 ENT36 MVC 
606 # 
607 8 
608 oc 
609 oc 
610 oc 
6ll * 
612 8 
613 MYC 
614 * 
615 B 
616 # 
617 
618 & 
619 
620 ENT37 8 
621 oc 
622 oc 
623 oc 
624 @ 
625 TBN 
626 JT 
627 & 
628 MVC 
629 J 
24MART6 
827879 


CHECK HH FIELD ENTRY 
ADDRESS OF HH FIELO 
VALIO ENTRY RETURN ADDRESS 
INVALEO ENTRY RETURN ADDRESS 


BRANCH IF 
SEEX COMMANO 


BRANCH IF NOT RECALL, ROHA? 
ROSNS, OR ROLGG CGMMAND 


DEFAULT HH TO GOO 
GO TG PROCESS RR FIELD 


BRANCH IF 
WRHA COMMAND 


BRANCH IF CURRENT LOGICAL = 
HEAD ADDRESS IS UNKNOWN 


SET HH = CURRENT LOGICAL HEAD 
6G TO PROCESS RR ENTRY 


BRANCH IF CURRENT THYSICAL 
HEAD ADDRESS IS UNKNONN 


SET HH = CURRENT PHYSICAL HEAD 
GO TO PROCESS RR ENTRY 


WMSG--ENTER HEAD ADDRESS 


PRINT 
ENTER 
HEAD 
ADDRESS 





READ RESPONSE 
MOVE TO INPUT AREA 


GG TG PROCESS RESPONSE 





A AAR COND PALI AOL A 





A A 


CHECK RR FIELD ENTRY 
ADDRESS OF RR FIELD 
VALIO ENTRY RETURN ADDRESS 
INVALIO ENTRY RETURN ADORESS 


BRANCH IF RECGRD 
MUMBER ENTRY IS REQUIRED 


BEFAULT RR TQ 000 
GO TO PROCESS Kt ENTRY 


PROG I0 C18-2" 
PAGE SA 








© 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247613 IBM MAINTENANCE OIAGNOSTIC PROGRAM | PART NQe 4247613 
PAGE 6 2 PAGE 6A 
Cl182 3340 FRIENDS TEST — MOD 12 _-.€182 3340 FRIENDS TEST - HOD 12 
& 4 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
630 * C1095 3747 1096 698 DC AL2(MSG426) LENGTH 
NEES OC 63 3790 3791 631 ENT38 MYC  MSGN(100).MSGNt1 CLEAR MESSAGE AREA 699 * 
OFEB OC 1D 374A 2481 632 MVC =—- MSG#29430) eMSGIT7N MSG--ENTER RECORD NUMBER . 1097 CO 87 LFAD 700 a KEYIN READ RESPONSE 
633 * f 109B OC 02 36A3 3607 701 MVC = ENPUT#3103) oKING2 MOVE TO INPUT AREA 
OFFL OD 02 3690 2958 634 CLO INPUT412(3)eMSG11442 BRANCH IF NOT i 702 * 
OFF? F2 O01 12 635 JNE  €N7T388 WRCCD COMMAND = 10A1 CO 87 102C 703 8 ENT39 GO TO PROCESS RESPONSE 
636 * gy 704 * 
OFFA OC 10 3771 3085 637 MVC MSG+68(30),MSG67N BUILD WRCCD 5 LOAS OD 02 36A3 3647 705 ENT42A CLC INPUT+31L(3),D256 BRANCH LF ENTRY 
1000 OC 03 3757 3089 638 MVC =—- MSG#42(4) »MSG68N RR FIELD ENTRY : 10AB CO 02 1089 706 BNE  ENTS2 IS GREATER THAR 255 
1006 OC 06 3748 30CO 639 MVC SG+27(7),MSG6SN PROMPTING MESSAGE éy 707 * 
646 *% pe TQ tenn ww nn ern Mee a ae wn a a ne a a een ren ee 
LOOC CO B87 O21A 641 ENT38B BB PRINT PRINT 709 # PROCESS DL FIELD ENTRY 
1010 Ol 10L0 642 oc xLi°o1® ENTER co 710 2 
LOLL 4D LOLL 643 DC ILL*77? RECORD = LOAF CO 87 LEAA 711i ENT43 B  CKDEC CHECK DL FIELD ENTRY 
10k2 3779 1013 644 oC AL2(MSG+76) NUMBER 1083 36A5 10B4 712 OC AL2( INPUT#33} ADDRESS OF Ot FIELD 
645 * i 10B5 1114 1086 713 OC AL2 (ENT45 } VALID ENTRY RETURN ADDRESS 
1014 CO 87 1FAD 646 8 KEYIN READ RESPONSE : 1087 10F2 10B8 714 DC AL2(ENT4S4} INVALEO ENFRY RETURN ADDRESS 
1616 OC 02 369F 3607 647 MVC TNPUTS2 763) eKING2 MGVE TO INPUT AREA ; Fil5 % 
648 ¢ e 10B9 OC 02 36A7 3630 716 MVC  INPUT+35(3),0000 SET DL ENTRY TG 000 
1OLE CO 87 OFCB 649 8 ENT37 GO TO PROCESS RESPCNSE ial 717 # 
656 * . LOBF 38 02 37E7 718 T8N CFLG,CBIT6 BRANCH IF NO BATA 
1022 GD 02 369F 3647 651 ENT384 CLC INPUT+27(3),0256 BRANCH IF ENYRY (> 10C3 F2 90 4E 719 SF ENTS5 LENGTH ENTRY 2S REQUIRED 
1028 CO 02 OFES 652 BNL ENT38 1S GREATER THAN 255 720 # 
653 * : 10C6 OC 02 3647 3647 722 MVC  INOUT43513) .0256 SET OL ENTRY TO 256 
654 Bowne enn nn eon en ne nen ern wean nnn nnn nnn 722 # 
655 *% PROCESS KEL FIELD ENTRY “-« 4OCe OD G2 3690 2958 723 CLO = INPUT#L2033 eMSGIL442 BRANCH IF 
656 ¢ 1002 FZ 81 3F 724 JE ENT45 WRCCD CORMAND 
102C B8 60 LL 657 ENT39 TEN KLO(¢XR2) xX" 808 BRANCH IF RO KEY LENGTH Cs 725 % 
102F F2 10 OA 658 JT ENT40 WAS PREVIGUSLY INITIALIZED ~"-- 1005 2€ 02 3647 17 726 MVC  - INFUT435033_DL0¢,XR21 SET DL = RECORD O DATA LENGTH 
659 2 727 * 
1032 8C O02 1: 3636 666 MVC = KLO03.XRZ2}, 0600 ENITIALIZE RO KEY LENGTH TO 0 C} 10DA 38 06 37E7 728 TBH  CELC CRITE BRANCH TF NG RA ENTRY 
oo 1037 8C 02 17 3635 661 MVC DLOC3,XR2},D008 INITIALIZE R20 DATA LENGTH TO 8 LODE F2 96 33 729 JE ENT45 HAS REQUIRED er 
662 * 730 & 
103C BS 80 ké 663 ENT40 TBN KLNC»XR2}eX*808 BRANCH IF RECORD N KEY LENGTH  €) LOEL OD C2 369F 3630 731 CLO I NPUT+27431,0000 BRANCH IF RECGRD O 
103F F2 10 OA 664 JT ENT41 WAS PREVIQUSLY INITIALIZED 1OE7 F2 B82 2A 732 JE ENT45 WAS SPECIFIED IN RR FIELD 
665 * 733 + 
1042 8C O02 14 3636 666 HVC KEN{3_XR2),0000 INITIALIZE RECORD N KEY LENGTH € 3 LOEA 2C 02 36A7 LA 734 KVC - ENPUT#35(03} DLN( »XR25 SET DL = RECORD N DATA LENGTH 
1047 8C G2 LA 3667 667 MVC DLN(3,XR2),0256 INITIALIZE REC'O N DATA LENGTH LOEF F2 87 22 735 3 ENT45 GO TO PROCESS NX FIELD 
668 ¢ ; 736 © 
104C CO 87 LEAA 669 ENTS) 8 CKDEC CHECK KL FIELD ENTRY € > OFZ OC 1B 3748 2AB8 737 ENT44 MVC  -MSG427(28} ¢MSGION HSG--ENTER DATA LENGTH 
1050 36AL 1051 670 DC ALZ2UINPUT+29) ADDRESS GF KL FIELD : LOFB OC 25 376E 24DD 738 MVC SG6465(38),MSG20N MSG--KL¢DL MUST NOT EXCEED 256 
1052 10AS 1053 671 oC AL2(ENT42A) VALID ENTRY RETURN ADDRESS 739 * 
1054 1069 1055 672 pc AL2(ENT42} INVALID ENTRY RETURN ADORESS (3) LOFE CO 87 O21A 740 8 PRINT PRINT 
673 % 2102 O1 L102 T4&L oc XLi°OL® ENTER 
1056 OC 02 3683 3630 674 HVC —s ENPUT+3143} ,0000 SET KL ENTRY TO COO : 1103 42 1103 742 Oc TLLt66 DATA 
675 *  €>  Llee 376E 1195 743 pc ALZ(MSG+65} LENGTH 
105C 38 02 3TE? 676 TEN CFLG.CBITS BRANCH IF WO KEY 74% % 
1066 F2 90 46C ot? Jt ENT43 LENGTH ENTRY IS REQUIRED a 1106 CO 8&7 iFAC 745 8 KEY IN READ RESPONSE 
678 *  €) -PLOA OC GZ 36AT 36D7 746 MVC INPUT¢3503} sKINS2 MOVE TO INPUT AREA 
1063 OD 02 3690 2958 679 CLO EFNPUT41203}-HSGLL4+42 BRANCH IF 747 % 
O69 F2 81 43 685 JE ENT43 WRCCD COMRAND . ° 1110 CO 87 LOAF 748 g ENT43 GO YO SROCESS RESPONSE 
&Bi ® F749 & 
106C 2C O02 3643 11 682 MYC INPUT431 039 KLOET eXR2) SET KE = RECORD O KEY LENGTH 75D ewe mE OE LE EC A 
683 ¢ 751 * PROCESS NN FIELD ENTR'? 
1071 38 04 37ET 684 TEN = CFLG»CBITS BRANCH IF NO RR ENTRY ge 752 2 
L075 F2 90 37 685 JF ENT43 WAS REQUIRED 7 L184 CO 87 LEAA 753 ENTS5 8 CKBEC CHECK NN FEELO ENTRY 
666 * LLLS 36A9 1119 754 pe AL2CINPUT#¢37}. ADORESS GF NN FIELD 
LOTS OD G2 369F 3636 687 CLO INPUT¢2703),0000 SRANCH IF RECORD 0 . LLLA LLAB LLIB 755 pe ALZCENTS8} VALIO ENTRY RETURN ADDRESS 
LOTE F2 BL 2E 688 JE ENT43 WAS SPECIFIED IN RR FIELO L11LC i137 LLID 756 oc AL2(ENT4T} INVALID ENTRY RETURN ADORESS 
689 *& 157 ¢ 
1O8L 2C O2 3683 146 690 MVC  INPUT#32 03) eKLNC,XR2} SET KL = RECORD N KEY LENGTH €> -LLIE 0D 62 369F 3630 758 CLC —-« INPUT+#27(3},0600 BRANCH If RR 
1086 F2 87 26 691 3 ENT43 GO TO PROCESS DL FIELD 1124 F2 81 O07 759 JE ENTS6 ENTRY NSS O00 
692 ¢ 760 * 
1089 OC LA 374? 2a9C 693 ENT42 HVC «=- MSG# 2627) oMSGLBN MSG--ENTER KEY LENGTH €: 1127 38 01 37E7 761i THN CFLGsCBIT? BRANCH TF 
; 694 & . 1128 F2 16 0S 762 JT ENTS? NR ETRY IS REQUIRED 
108F CO a? G2ia 695 8 PRINT PRINT 763 # is 
1093 O01 1093 696 pc XLL°OL* ENTER {"}  112E OC 02 36AB 3630 76% ENTS6 MVC =« INPUT+39¢3),0000 SET NN ERTRY TO GOO 
LOS& EB 109% 697 DC TLit2te KEY : 1134 £2.87 95 765 J ENTS2 GO TG PROCESS ODODE ENTAY 
DATE LSAUGT?S OSNGVTS 24 BARTS PROG ID C18-2 Cie 1LSAUGTS OSNOV7S 24HART6 PROG 10 C1e=2° 
EC NO. 827785 827827 82787S PAGE 6 eo NGe 627785 827827 2787S PASE 6A 
= 


eeoeaoeenoaoectseoeneend® 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C182 


ERR LOC CBJECT 


1137 
4430 


1143 
1147 


L14A 
1150 


1153 


Li59 
2250 


1160 
1166 
116C 
LL6OF 
Live 
1176 
L17A 
1180 
1183 
1189 


118c 
1192 


1195 
i199 
119F 
hiA5 


1ias 
RLAE 


1182 


1186 
11BA 
11868 
11BC 


LIBE 
11C2 


11¢€8 


11cc 
1100 
11D6 
110A 
L1LDE 
11E2 
L1E6 
1L1EA 
LI1EE 
L1F2 


L1LF6 


LLEC 
1200 


DATE 
3 EC NO. 


3340 FRIENDS TEST ~ MOD 12 


ec 
ac 


38 
F2 


Oo 
F2 


oc 


30 
F2 


oc 
oD 
F2 
F2 
38 
co 
oc 
F2 
oc 
F2 


00 
Fea 


3c 
oc 
oc 
F2 


ob 
co 


co 
co 


ol 
61 


63 
4&Z 


Ol 
90 


Ol 
Ol 


10 


FF 
8i 


02 
ol 
81 
87 
O01 
90 
02 
87 
02 
87 


02 
Ol 


F3 
02 
10 
87 


02 
02 


87 


87 


3780 


co 
oc 


co 


3c 
oc 
3c 
3c 
3c 
3c 


3c 
3¢ 
3c 
oc 


38 
F2 


87 
02 


87 


40 
01 
40 
40 
40 
40 
40 
40 
40 
40 


2T 


02 
90 


CODE 


3790 
376F 


BTET 
6c 


368F 
39 


378) 


0203 
56 


378A 
0203 
03 
44 
0200 
1183 
378A 
33 
378A 
2A 


3690 
21 


373F 
3743 
3780 
OE 


3EAB 
1137 


11¢¢c 
O21A 


1FAO0 
36A8 


1114 


3684 
3688 
3688 
3691 
3694 
3698 
369C 
36a0 
36A4 
36A8 


3604 


3819 
Ag 


15AUG75 
827785 


ADOR 


3791 


2620 


2904 


264A 


3641 
3650 


3638 


363E 


2958 


363B 
3085 


364T 


L1BA 
4168 
1180 


3607 


3662 


36AB 


OSNOVTS 
827827 





MSGN(100} »MSGN41 
MSG+66167},MSGZ1A 


CFLG,CBIT? 
ENTS 


INPUT 41342) 9MSGOF+43 
ENTSTA 


MSG+96(30),MSG21N 


SIZE sX*FF* 
ENT51 


MSGN~6(3),.D062 
SIZE(2)_X8060 
ENYXX2L 

ENTSE 

SBYTE5,» SSW2F 
ENTXX2 
MSGN-6(3) ,D0L6 
ENT51 

MSGN-6 (33,0054 
ENTS1 


INPUT412(33 ¢MSG11442 
ENT51 , 


MSG+15-C*3* 
MSG4+22 (31,0047 
MSG+96(30) »MSG67N 
ENT51 


INPUTN(3},0256 
ENT4T 


ENTS2 
PRINT 
XLL*OL® 
1L1°97° 
AL2(MSG+96) 


KEYIN 
INPUT 43913) 9K ING2 


ENT45 


PROCESS DOOF FIELO ENTRY 


INPUT,C® # 
INPUT#46 (2) sBLANKS 
INPUT#7,C® ¢ 
INPUT413,C® 
INPUT¢16eC® 
INPUT+#20,C® 
INPUT424,C® 
INPUT4#28eC® 
INPUT#32,C® 
INPUT436,.C* 


INSAVN, INPUTN 


Q,x*02° 
ENT6O 


STMT SOURCE STATEMENT 
766 € 

767 ENT47 MVC 
768 MYC 
769 *% 

770 TEN 
771 JF 
772 % 

773 cLe 
TI4 SNE 
775 * 

T76 RYC 
TT? * 

778 CLi 
T7192 JE 
7a0 # 

78i MVC 
782 CLC 
783 JE 
764 J 
785 ENTXXL TBN 
786 BF 
187 MVC 
788 J 
7389 ENTXX2 MYC 
790 J 
791 © 

792 ENT4&7TA cic 
793 JNE 
794 & 

79s HVI 
796 YC 
197 MVC 
798 J 
799 & 

eco ENT48 cic 
801 BNL 
802 # 

803 8B 
804 * 

805 ENT51 8 
806 oc 
807 oc 
808 oc 
‘809 2 

810 8 
813 MYC 
812 * 

813 8 
814 * 

B15 Semen 
816 * 

8l7 + 

818 EN152 VI 
819 MvC 
820 Avi 
B21 MVI 
622 MMVI 
823 MvI 
824 MVI 
825 MvI 
826 MVI 
827 MVI 
828 * 

829 MvC 
830 * 

831 TBN 
832 JF 
833 ¢ 

24HART6 

@27879 


SE A OAT AEP LD AEDT NO SO I ID 


~ 


PART NOo 
PAGE 


CLEAR MESSAGE AREA 
MSG--ENTER NN VALUE 


BRANCH IF NOT 


MULTI-RECORO COMMANDO 


BRANCH TF NOT 
HR/ROKD COMRAND 


4247613 
7 


HSG--CAUTIGN: SEE USERS GUIDE 


BRANCH IF 
64K OF MAIN STORAGE 


CHANGE NN LEMIT TO 062 


CHANGE 
AN 
LISIT 
DEPENDING 
ON 
CORE 
SIZE & 
SSW 2F 
GG TG DISPLAY MESSAGE 


BRANCH iF NOT 
WRCCOD COMMANDO 


SETUP HwRCCD 
NN FIELD ENTRY 
PROMPTING MESSAGE 
GG TO OISPLAY MESSAGE 


BRANCH IF ENTRY 
IS GREATER THAN 255 


GG TQ PROCESS 


PRINT 
ENTER 
NN 
VALUE 


READ RESPONSE 
MOVE YO INPUT AREA 


GG TO PROCESS RESPONSE 





Oe OD ER Ree ND ee 


CLEAN UP 
FOR PRINTING 


SAVE INPUT 


BRANCH IF NO 


OODF ENTRY 


DODF ENTRY IS REQUIRED 


PROG ID 
PAGE 


C18-2 
7 


a 


Oo00 


") 


o 
Nese 


Ma 2 


16M MAINTENANCE DIAGNOSTIC PROGRAM 


hoe 
_ €182 
"ERR LOC 


f° 
1203 
1207? 
120A 
1210 


1216 

121A 
1248 
i 121€ 


L21E 


1224 
1228 
1229 
122A 


(3 


ao 


122C€ 
1230 
1234 
123A 


223E 


oO 


1242 


1248 


OQ 


1249 


2 


1240 
1250 


o 


1253 
1256 
125C 


O 


1260 
1263 


1266 
1269 


1260 
1270 


1273 
1276 


1279 
127¢ 


7 


L27F 
1282 
1288 


128C 
i28F 


1293 
1296 


1299 


oO oO @ 


1230 


es 


CATE 
EC NO. 


9060 


GOBSECT CODE 


38 
F2 
oc 
oc 


co 
ol 
30 


80 
90 
10 
1E 


87 


375C 


oc 


co 
01 
4F 


4E 


87 


3778 


3A 
co 
oc 
38 
34 
c2 
D2 
3c 


78 
F2 


02 
OF 
co 


7?) 
F2 


D2 
3c 


78 
F2 


7O 
F2 


70 
F2 


02 
OF 
co 


7D 
co 


70 
F2 


co 
35 


20 
87 
27 
20 
01 
ol 
01 
04 


FO 
30 


01 
600 
OL 


ET 
01 


01 
02 


FO 
10 


Ch 
82 


cé 
84 


ol 
00 
OL 


68 
81 


40 
81 


87 


Ol 


365E 
22 

3730 
375C 


O21A 


3778 


O21A 


3668 
1FAD 
36A8 
3668 
37EA 
3683 
01 

38638 


00 
00 


01 
3838 
124D 


00 
37 


0% 
3833 


oo 
oc 


00 
24 


GO 
1E 


Ol 
3838 
126D 


a0 
1246 


00 
oc 


1269 


3T7EA 


L5AUGT5 
827785 


ADDR 
1203 
2658 
287A 
121A 
i218 
1210 
Z28C9 
1228 
1229 
122B 
36FC 
3651 
3651 
OSNOV75S 
827827 
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STMT 


834 
835 
836 
837 
838 
839 2 
840 
B41 
842 
843 
844 & 
845 
846 2 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 *# 
857 
858 & 
859 
860 # 

861 ENTS3 
862 * 

863 
864 
865 
866 
867 & 

868 

8693 

870 

B71 % 

872 ENT538 
873 

874% *% 

875 

876 * 

877 ENT54 
378 2 

879 ENTS4A 
880 

881 @ 

882 

883 

884 * 

885 

886 

887 * 

888 ENT55 
889 

890 

891 & 

892 

893 

894 & 

895 

896 

897 & 

898 

899 ¢ 

900 ENT57? 
901 # 


ENT52A 


Cd 
ENT528 


= 
ENT53A 


24HART6 
827879 


EQU 
TBN 
JF 

MYC 
MVC 


8 
oc 
oc 
oC 
HVC 
8 
oc 
Dc 
oc 
SBN 


MVC 
SBF 


S¥ 
LA 
LA 
4VI 


TBN 
JF 


LA 
SLC 
BNZ 


cul 
JNE 


La 
HVI 


TBN 
JT 


CLi 
Jt 


Cul 
JH 


LA 
SLC 
BNZ 


CLI 
BE 


CLI 
JE 


SOURCE STATEMENT 


* 

DEVICE ,X* 80° 
ENTS52B8 
MSG4+16017},MSG23A 
MSG447 (31) »MSG23B8 


PRINT 

xL1*ci® 

TLit4s* 
AL2(HSG+47? 
MSG*78(79} »4SG23N 
PRINT 

XLEEOUe 

IL k*79° 
AL2(MSG478?} 
DATASWs SCNARG 
KEYIN 

INPUTN(40} ,-KIN@t39 
NA TASH, SCNARG 
LPXR1 oXR1L 
INPUT—1¢-XR1 

10 ¢XR1L) oXRLE 

WORKN 6& 


Ot +XR1},C°0° 
ENTS536 


1€,XR1),XR1 
WORKN(13 511 
ENTS3A 


OU eXRLVs COX! 
ENTST 


10 ,XR1}—XR1 
WORKN: 2 


O1eXR1I,C*O® 
ENT5S 


Ol eXRLieCPA® 
ENTS? 


OQ(yXRII,CoFE 
ENTS? 


11,XR1L},XR1 
WORKN(L) TE 
ENTS4A 


Ol oXRVD Che! 
ENTS3 


GeXR1),C® * 
ENT58 


ENT 54 


LPXR1igXRI 


PART NO. 
PAGE 


DATA Sw ENTRY REQD 
BRANCH IF YES 

MSG-~ENTER WR DATA 
MSG~--SCAN ARGUMENT 


PRINT 
ENTER 
WRITE DATS 
SCAN ARGUMENT 


MSG-FORMAT GF INPUT 
PRINT 


FORRAT 
PARAMETERS 


SET ON SCAN/WRITE IND 
READ RESPONSE 

MOVE TO INPUT AREA 
RESET SCAN/WRITE IND 


SAVE INDEX REG 1 

XRE POINTS TQ OODF ENTRY 
INCREMENT FIELD POINTER 

MAX DECIMAL CHARACTER COUNT 


BRANCH ITF NOT 
DECIMAL CHARACTER 


ADVANCE INPUT FIELD POINTER 
DECREMENT CHARACTER COUNTER 
SCOP IF NOT YET FOURTH CHAR 


BRANCH IF DECIMAL VALUE 


4247613 


Ta 


1S NOT FOLLOWED BY AN *X? 


ADVANCE INPUT POINTER 
CHARACTER COUNT = 2 


BRANCH IF VALIO 
HEX CHARACTERS 0-9 


BRANCH IF NOT 
VALIO HEX CHARACTER 


PRANCH IF NOT 
VALIO HEX CHARACTER 


ADVANCE INPUT POINTER 
DECREMENT CHARACTER COUNT 


BRANCH IF ANOTHER CHAR TO CHECK 


BRANCH IF ANOTHER 
FIELO IS TO BE CHECKED 


BRANCH TF 
ENO OF 


INPUT 
RESTORE INDEX REGISTER 2 


PROG ID 
PAGE 


Cig-2° 


TA 
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3340 FRIENDS TEST - MOD 12 


ERR LOC OBJECT CODE 


12al 


12A5 
12A8 


12AC 


12AaF 
12B3 


12B6 
L2BA 


L280 
122 


12C€6 
12CB8 
12D0 
1205 
1204 
1206 


12E2 
12E6 


E2E9 


12EE 
L2F2 


i2F5 
L2FA 


1°FF 
1303 


1306 
1308 


1310 
1314 


1316 
131C 


131 
1325 


1328 
1320 


1332 


1335 
L33A 


L33F 


DATE 
EC NOe 


: i 
. A 
« 


ADOR STMT SOURCE STATEMENT 
$02 * 
CO 87 1203 903 B ENTS2A 
904 * 
7C 4B 00 905 ENTS@ MVE Of sXRLDeCt.?® 
35 Ol 37EA 906 t LPXR1»XRL 
907 * 
908 ¢-----------—- --~ 
909 * SAVE NEW RESIDUAL VALUES 
910 * 
BA 80 00 911 ENT60 SBN  OFLG(»XR2320B8ITO 
912 * 
38 1C 37E7 913 TBN CFLG,CBIT3 
F2 10 89 914 JT = ENT67 
915 * 
38 80 37E7 916 TBN CFLGeCBITO 
F2 90 20 917 JF = ENT62 
918 =n 
8C 02 OE 3630 919 MVC =—- HHL (39 XR29,0000 
AC OA OB OE 920 MVC =‘ HHP@11eXR2) HHLG »XR2) 
921 
8C 02 11 3630 922 ENT61 MVC  KLO(3,XR29,0000 
BC 02 17 3635 923 MVC =: LO 34 XRZ D008 
8C 02 14 3630 924 MVC =- KLN( 3.9 XR2) 60000 
8C 02 1A 3647 925 MVC =— OLN(.3,XR29,0256 
926 
F2 87 62 927 J ENT67 
928 # ; 
8C 01 02 3630 929 ENT62 HVC FFC(2eXR29,0000 
930 ¢ 
38 40 37E7 931 TBN = CFLG,CBIT2 
F2 10 05 932 JT ENT63 
933 * 
8C Ol 02 3664 934 MVC FFO (29. XR2).4 XXX 
935 © 
39 68 37E7 936 ENT63 TBF CFLG,CBITI+CBIT2+CB1T4 
F2 10 OA 937 JT = ENT64 
938 © 
8C 02 05 3664 939 MVC CC P03 XRZ9-4 XXX 
8C 02 0B 3664 940 MVC =—- HHP (3) XR2) XXX 
941 * 
38 08 37E7 942 ENT64  TBN CFLGCBIT4 
F2 10 OA 943 JST = ENT6S 
944 & ; 
8C 02 08 3664 945 MVC CCL 1.39 XR29 9 XXX 
8C 02 OE 3664 946 MVC =—- HHL 03 XR2) g XXX 
947 © 
38 40 37E7 648 ENT65 TBN  CFLG,CBIT2 
CO 10 12C6 949 BT  ENT6L 
950 
38 04 37E7 951 TEN «- CFLGeCBITS 
F2 90 16 952 JF ENT66 
953 * 
0D 02 36C8 3630 954 CLC INSAVE+27(¢3),0000 
F2 81 0D 955 JE —s ENT66 
956 * 
&C 02 14 3664 957 MVC - KLINE 32 XRZV 9 MAX 
8C 02 1A 3664 958 MVC —- DLN(.3y XRZ}-gXXX 
959 @ 
F2 87 OA 960 J ENT6? 
961 * 
8C 02 il 366% 962 ENT66 MVC KLO(3 9XR2) »XXX 
8C 02 17 3664 963 MVC = DLOL 3 ¢ XR2) o XXX 
964 * 
965 ¢ -— 
566 ¢ PRINT COMMAND AS ENTERED 
967 & 
133F 968 ENT6éT EQU # 
38 40 37E5 969 TBN FLAGS«BITL 
15AUGT5 = OSNOVT7S 24MARTS 
827785 827827 827879 














LP a DL PMC BP ER TEETER ON 
we NR ee sy _ e 


PEE Ee END CHD GD SnD RNY AD AES SNES AUS OP A ES ENTAILED ES SOA tO SC A 


> AS A ON I LS A DY LE I SA A ES A AOD ED I SD RS SIGE AS SND AY AD ENS NY CRIED 


PART NO. 
PAGE 8 


GO TO PROCESS RESPONSE 


TERMINATE FIELD WITH A PERIOD 
RESTORE INDEX REGISTER 1 





re a 


SET *ORIVE IN USE* INDICATOR 


BRANCH IF 
RDSNS OR ROLOG COMMAND 


BRANCH IF NOT 
RECAL COMMAND 


SET CURRENT FF, CC, AND HH 
VALUES ALL TO ZEROS 


INITIALIZE 
DEFAULT KEY 
AND OATA LENGTH 
VALUES 
GO TO PRINT COMMAND ENTRY 
SET CURRENT FF TO 00 


BRANCH IF 
SEEK COMMAND 


SET CURRENT FF TO XX 


BRANCH IF NOT SEEK, 
ROHA, OR WRHA COMMAND 


SET CURRENT PHYSICAL CC TO XXX 
SET CURRENT PHYSICAL HH TO XXX 


BRANCH IF 
WRHA COMMAND 


SET CURRENT LOGICAL CC TO XXX 
SET CURRENT LOGICAL HH TO XXX 


BRANCH IF 
SEEK COMMAND 


BRANCH IF NO 
RR ENTRY WAS REQUIRED 


BRANCH IF 
RR ENTRY WAS 000 


SET RECORD N KEY LENGTH AND 
DATA LENGTH TO XXK wre 


GO TO PRINT COMMAND ENTERED 


SET RECORD O KEY LENGTH AND 
DATA LENGTH TO XXX 





- 


IS IT END COMMAND 


PROG ID 
PAGE 8 


I 
c1e-2 


| 


t 


| 


i 
| 
| 
| 
| 
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“ERR LOC OBJECT CODE 


1343 


1347 
1348 


oO 


134E 
1352 
1353 
1354 


1356 
135C 


ens 
Sad 


1362 
1366 
1369 


o 


136F 
1375 


he 
4 
s 


1376 
137F 
1380 
1381 


C40 


1383 
1387 


138A 
138E 


1391 
1395 
1396 
1398 


139A 
139E 
139F 
13A1 


13A3 
13A7 
13A8 
13AA 


13AC 
1380 
1381 
13B3 


1385 
1389 
13BA 
13B8C 


13BE 
13C2 
13C3 
13C5 


13C7 
13¢€B 
13CC 
13CE 


DATE 
EC NO. 


3340 FRIENDS TEST - MOD 12 


co 


38 
F2 


co 
02 
23 


10 


80 
10 


87 


2T7TEE 


oc 
oc 


38 
F2 
oc 


oc 
oc 


co 
02 
5E 


63 
22 


02 
90 
27 


o9 
ol 


87 


378A 


3D 
F2 


3A 
F2 


co 
02 


E7 
o1 


80 
8T 


87 


36BC 
381F 


co 
00 


87 


3604 
3828 


co 
08 


87 


36D06 
3827 


co 
10 


87 


36CC 
3825 


co 
00 


87 


36C8 
3824 


co 
20 


87 


3u0C4 
3823 


co 
40 


87 


36C0 
382i 


13FC 


365E 
08 


O21A 


3790 
374F 


3819 
3770 


3787 
3788 


O21A 


3686 
O7 


37E& 
09 


0226 


1F19 


1FLg 


1F19 


iF 19 


1F19 


LF 19 


U5 AUGT5 


827785 


3791 
36D4 


36AB 


3108 
3683 


OS5NOV75 
827827 


ADDR STMT 


970 
971 * 
972 
973 
974 *® 
$75 
916 
977 
$78 
979 
980 
981 
982 # 
983 
984 
985 
986 
$87 
988 
989 2 
990 
991 
992 
993 
994 # 
995 
996 * 
997 
998 
999 
1000 * 
1001 
1002 
1003 * 
1004 ENT70 
1005 
1006 
1007 
1008 * 
1009 ENT721 
1010 
2012 
1012 
1613 ¢ . 
1014 
1015 
1016 
1017 
1016 
1019 
1020 
1021 
1022 
1023 # 
1624 
1025 
1026, . bh eaese 
1027 
1028 *% 
1029 
1030 
103i 
1032 
1033 * 
1034 
13CB 1035 
13CD 1036 
13CF 1037 


1352 
1353 
1355 


* 
ENTOTA 


2 
ENT68 


137F 
1380 
1382 


= 
ENT49 


1395 
1397 
1399 


139E 
13A0 
13A2 


13A7 
13A9 
23AB 


1360 
1382 
13B4¢ 


13B9 
i388 
13BD 


13C2 
13C4% 
1306 


24KNART6 
827879 


BT 


TBN 
JT 


8 

oc 
oc 
oc 


MVC 
MVC 


TBN 
JF 
MvC 


MVC 
MVC 


B 

oc 
oc 
oc 


Pine ae ee ee en 


cLI 
JNE 


SBN 
J 


B 

oc 
DC 
DC 


B 


. OC 


DC 
oc 


8 

oc 
oC 
BC 


8 

oc 
oc 
oC 


B 

oc 
oc 
oC 


8 

oc 
oc 
oc 


8 

oc 
oc 
oc 


SOURCE STATEMENT 


SELECT 


DEVICE,X*80° 
ENT6TA 


PRINT 

XL1°02¢ 

AL1 (MSGOSN~MSG0541) 
AL2(MSGO5N} 


MSGN(100)5MSGN+1 
MSG+34(35),INSAVN 


QexX*02* 
ENT68 
4SG6480(40) ,INPUTN 


MSG4+90(10) «MSG72N 
MSG+93(2) »CMDCNT 


PRINT 
XLL‘O2* 
IL1°94* 
AL2(MSG493) 





Lene NACE SUL REE EE ADF ni ra INS NA 


SF DAO WE AEE AE GA I OOOO 


PART NOo 4247613 
PAGE BA 


GO TO OPTION SELECT 


DATA SWITCH ENTRY? 
BRANCH IF NO 


PRINT 
COMMAND 
ENTRY 
HEADING 


CLEAR MESSAGE AREA 
SET UP TO PRINT COMMAND 


BRANCH IF NO DODF 
ENTRY REQUIRED 


SET UP MESSAGE POINTER 
SET UP COMMANO COUNT 


PRINT 
COHHAND 
ENTRY 
VALUES 





COMPRESS AND SAVE COMMAND IN COMMAND EXECUTION TABLE 


INSAVE4+145C*X! 
ENT70 


CFLGNeCBITS 
ENT71 


PACK 

iLit2* 

AL2 CINSAVEtLS} 
AL2(IODCF) 


CNVRT 

xL1*00° 

AL 2 CINSAVE4+39) 
AL2(CIDOCFN) 


" CNVRE 


ALL(CBIT1L2) 
AL2CINSAVE*35) 
AL2( 1DDCF+¢8? 


CNVRT 
ALiI(CBITLL) 
AL2CIMSAVE+315 
AL2C1ODCF+6) 


CNYRT 

XL1°O0O° 

AL 2¢INSAVE*27)} 
AL2CIODCF+5) 


CNYRT 
ALL(CBITLOF 
AL2¢INSAVE+23) 
ALZCIDDCF+4) 


CNVRT 
ALLICBITS) 

AL 2CINSAVE419) 
AL2CIOOCFe2)} 


BRANCH IF FF FIELD 
CONTAINS VALID HEX CHARACTERS 


SET FF=XX INDICATOR AND 
BYPASS HEX TC BINARY CONV 


CONVERT 
FF FIELD 
TO SINARY 


CONVERT 
RN FIELD 
TO BINARY 


CORVERT 
Ol FIELD 
TO BINARY 


CONVERT 
Ki. FIELD 
TO BINARY 


CaMVERT 
RR FIELO 
_. 10 BENARY | 


CONVERT 
HH FIELD 
TO GINARY 


Cay ERT 
€c FIELD 
TO BIKARY 


PROG 10 
PAGE &A 


C1e=2~ 


oe 
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ee a ee ere 


te 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT eae LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
1038 * 1056 eapensseasseananststseaeessenenesensaeeeesesesesese sees sen sees ese eers 
1300 4C O1 O1 37E8 1039 MVC CFLGS(2¢XR1)eCFLGN MOVE CMD EXECUTION CNTRES» 1057 * 
; 1305 4C O1 03 381A 1040 MVE STOR( 2yXR1IGR SIO @ AND R BYTES, ANO 1058 * RUN OPTION SELECTION * 
13DA 4C 09 OD 3828 1041 MVC ODDCF(1L0,XR1} eI DOCFN ODcE TO CMO EXECUTION TeL = €> 1059 @ $ 
; 1042 # : i 1060 * encgsnesenecensnentstanesssneseseeessesererest se seas eee sees Sse F ee 006 
: 130F D2 01 10 1043 LA 161 oXR1) eXR1 ADVANCE COMMANO TABLE POINTER © 1061 * 
Ks 1362 06 O1 3683 3632 1044 AZ CHDCNT»061(2) ADVANCE COMMAND ID '@ 13FC 1062 SELECT EQU * 
1045 # 1063 * 
13€8 38 02 3819 1046 TBN QeX*02" GO TO ENTER NEXT COMMAND IF 13FC 3C 00 3702 1064 KVI KBSTATs,O RESET K/B STATUS INDICATOR 
13EC CO 90 0892 1047 BF NXCMD NO DODF ENTRY IS REQUIRED , 3 1065 * 
1048 * 1400 OC 27 3754 2CB9 1066 MVC 4SG+39(40) eMSG27A MSG - ENTER OPTION 
13F0 4C 27 27 36A8 1049 MVC - 39.0409 XR1D 2 TNPUTN SAVE ODDF FIELD ENTRY C 1406 CO 87 14A9 1067 8 PRNTAA 
1050 + ‘ 1068 * 
13F5 02 O1 28 1051 LA 400 eXR1I9XRi ADVANCE COMMAND TABLE POINTER L40A 38 80 37E6 1069 TBN PRTFLG,BITO FIRST TIME THROUGH? 
1052 * 140£ 3A 80 37E6 1070 SBN  PRTFLG,BITO SET FIRST TIME IND OW 
13F8 CO 87 OB92 1053 B NXCMO GO TO PROCESS NEXT CMD ENTRY C) 1412 F2 10 32 1071 JT SELOC BRANCH IF FIRST TIME 
1054 * . 1072 * 
2415 OC 27 3754 268F1 1073 MVC = MSG# 391409 4MSG27439 MSG-O0-LOOP COMMAND SEQUENCE 
£1418 CO 87 14A9 1074 8 PRNTAA 
141F OC 27 3754 2C19 1075 MVC  MSG#39440) »MSG27479 MSG-1-BYPASS ERROR PRINTING 
. 1425 CO 87 14A9 1076 8 PRNTAA 
(1429 OC 27 3754 2C41 1077 MVC —- SG#39140) »MSG274119 MSG-2-BYPASS ERROR HALTS 
142F CO 87 14A9 1078 8 PRNTAA 
1433 OC 27 375% 2C69 1079 MVC - MSG*39040) »MSG274159 MSG~3-BYPASS HALTS AND PRNTING 
€: 1439 CO 87 14A9 1080 8 PRNTAA ey 
143D OC 27 3754 2C€91 1081 MVC MSG4+39(40) -MSG274199 MSG-4-EXECUTE AND PRINT RESULTS 
1443 CO 87 14A9 1082 8 PRNTAA 
(© 1083 * 
1447 38 BF 37E5 1084 SFLOO SBF FLAGS»X*BF® RESET PROGRAM INDICATORS 
1085 * 
C3) 1448 0D 05 2F8F 3630 1086 CLC MSGE2416(6},0000 BRANCH IF LOOP 
ma ee 1451 F2 01 0B 1087 JNE SELOL COUNTER IS NOT ZERO 
1088 © 
/ C} 1454 3A 01 3704 1089 SBN -« IDDCR»1 START DODF AND OOCF 
1458 3A 01 3706 1090 SBN  10D0Rel ON EVEN ADORESS BOUNDARY 
1091 * 
, © =-145C F2 87 OA 1092 J SELO2 GO TO DISPLAY MESSAGE 
1093 * 
145F OC 27 3754 2FA6 1094 SELO1 MVC HSG439(40) »MSG62N . . ae 
© 1465 CO 87 1449 1095 B PRNTAA , 
1096 * : 
1469 OC 05S 2F8F 3630 1097 SELO2 MVC -4SG6241661 0000 RESET LOOP ANO 
| €) -146F OC 05 2FA3 3630 1098 MVC MSG62+3616) -D000 ERROR COUNTERS 
1475 3A 40-3668 1099 SBN DATASW,SELOPT SET OPTION SWITCH ON 
1100 * : 
| & 1479 Co 87 IFAD 1101 SELO3.—siB KEYIN 
1102 # 
‘ 1470 3D FO 3605 1103 CLI KIN, C08 6G 1G REPEAT 
/ : C1481 CO 82 1496 1104 BL SELO4 DISPLAY IF 
1485 3D F4 3605 1105 CLI KIN»C*4* OPTION SELECTION 
1489 CO 84 1498 1106 BH SELO4 1S INVALIO 
iO 1107 * 
1480 OC 00 37F9 3605 1108 MyC OPTION(1),KIN SAVE OPTION SELECTION 
| 1493 3B 40 3668 : 1109 SBF DATASW,SELOPT SET OPTION SWITCH OFF 
| €) 1497 CO 87 1489 1110 8 XEQCMD 
whe L111 ? 
149B 1112 SELOS equ * ke Alas ae Ga Pamir. ag 
: CF} 1498 OC 27 3754 30FE 1113 MVC = MSG439(40) pMSGTIN INVALIO OPTION 
‘ 14A1 CO 87 14A9 1114 8 PRNTAA ENTER CORRECT VALUE 
i : 14A5 CO 87 1479 1115 B SELO3 
‘ .©@ 1116 * 
‘, | 
i\@ 
: | 
: i @ 2 
| 
t DATE 15AUG75 OSNOV75S 24MAR TE PRGG 10 c18-2 Ours 15AUGT5 OSNOV75 24NART6 P ( 
EC NO. 827785 827827 627879 PaGE 9 EC NQ. 827785 827827 827879 PAGE - aa 


© | 
ie _ _ 
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C162 3340 FRIENDS TEST — MOD 12 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT . 


‘ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


tae REKSEKKESKEKEKESAEKE SECHLSEKSEKSKSEKSEKKSKSEKKAEKEKAKKSSKSKRETSEKETESSSLSEKSELTSE SES @ 1132 SEKKSEKKELERAKKEAKEKRESBCRERESSS SVE SSSKLSRSSLERASSSVOKLSKASEKTSSERHKSESE SATS 
1119 ¢ 1132 # 2 
tot 2 PRINT ROUTINE 1133 3 COMMAND SEQUENCE EXECUTION * 
/ &y 1134 2 * 
1122 REKIKKKAKKESERAKKRAKKSSEKSERASREKSESSLESKKKESKETKSEKKEKRKSESRSSRAKKSESEKKTIESLE cs 1135 SERRARERERERCRERSRAARESRERKERESSSEEAEKSSERESSRATSSEAEKSERSEPSELSERELERS STELE 
1123 * 1136 * 
nee 2, a8 a nee PRNTAA = Shannen eae SAVE RETURN ADDRESS eo 1489 1137 xEQCMD EQU * 
GO PRINT MESSAGE “1489 38 80 3702 . 1138 TBN KBSTAT,»X*80! BRANCH IF 
1481 O1 1481 1126 DC XL1°OL* __  16B8D 38 80 3702 1139 SBF KBSTAT,X*80* CANCEL 
1482 28 1482 1127 oc ILi*4o* MESSAGE LENGTH f- 14€1 CO 10 10BE 1140 eT END1SC REQUESTED 
tse: alee, aan 1484 1128 Joris be ALZ(MSG+39) MESSAGE ADDRESS 14€5 38 40 3702 1141 TBN KBSTAT»X*40° BRANCH If 
RETURN 14C9 CO 10 0216 1142 BT LINK END REQUESTED 
€~  14CD 38 20 3702 1143 TBN KBSTAT?X*20° BRANCH IF 
14D1 CO 10 20Al 1144 _ Bt AMOPRN AMOP REQUESTED 
es 1145 * 
{~ 14D5 38 80 365E 1146 TBN DEVICE,X*80# BRANCH IF 
| - 1409 F2 10 OE 1147 JT XEQO 5471 PRESENT 
1148 # . 
€% 14D€ 30 00 3581 1149 SNS  SWITCHsX*00* READ DATA SWITCHES 
14E0 OD O1 3581 35BE 1150 CLC SWITCH»sLPEND BRANCH IF 
C 14E6 CO 81 10BE 1151 BE END15C LOOP END REQUESTED 
: £3 1152 # 
14EA 3C 00 371F 1153 xEQO MVI Ks0 INITIALIZE IGP K REG VALUE 
‘ 1154 * : 
€S  14EE 38 80 019 1155 TBN COH,ADRSTP BRANCH IF I10P ae — 
. 14F2 F2 90 04 1156 JF XEQ00 ADDRESS STOP IS NOT ENABLED 
1157 # 
€)  14F5 3C 04 371F 1158 MVI K»x*O4* SETUP K REG VALUE FOR ADDR STOP 
1159 * 
Q 14F9 C2 OL 370F 1160 XEQ00 LA RESET,XR1 POINT FQ SVP COMMANDO STRING 
'€3 1161 . 
: a 14FD iC 01 3838 O1 1162 XEQOOA MVC WORKN(23,1¢,XR2) EXECUTE ac aaa Rea 
«1802 31 C5 3838 1163 LIO WORKN,X*CS* Sy¥P COMMAND 
: €3 1506 02 01 02 1164 LA 2(yXR1L)»xR1 SEQUENCE TO 
1509 7D FF 00 1165 CLI Of eXR19eX* FFE SIMULATE 
150C CO 01 16FD 1166 BNE XEQOOA SYSTEM RESET 
i @ 1167 
/ 21510 C2 01 38AD 1168 LA CMOTBL» XR} POINT TO CMO EXELUTION TABLE 
i oes 1169 # oe 
| €} 1514 OC O1 37FE 3630 1170 MVC CMDI0(2),0000 INETIALIZE COMMAND 10 
1171L # : 
© 151A 3A 28 37E5 1172 SBN FLAGS ¢BIT2+B1T4 SET PROGRAM INDICATORS 
; 1173 ‘ 7 7 
15LE OD 05 2F6F 3640 117% CLC 6SG62¢26(6) ,D999 BRANCH IF LOOP COUNTER 
1524 F2 81 OA 1175 JE  — XEQooB”- HAS REACHED ITS MAXIMUM VALUE 
1176 
1527 38 08 37E5 1177 SBF = FLAGS»BET4 RESET ‘LOOP CNT OVERFLOW® IND 
© 152B 06 41 2F8F 3632 2178 Az MSG62416(6) »DOL(2} INCREMENT LOOP COUNTER 
| €& 1179 * 
1531 F3 C4 7E 1180 XEQO0B SIO X*7E%sx*C4? RESET ALL 3340 INTERRUPTS 
1181 * 
 €3 1534 38 17 3839 1182 SBF ORVWKESX®17® RESET 
1538 3B 17 3873 1183 SBF DRVHK2eX*°L7? INTERRUPT 
1184 * 
 €} -153¢ 38 10 37E5 1185 SBF FLAGSs8I73 RESET COMMON ERROR INDICATOR 
1186 3 
1540 0C 63 3790 3792 1187 MVC MSGNLLOOSMSGN+L BUILD EXECUTION 
€} 1546 0C 3a 3767 2FEL 1188 MYC «-4SG#58(59) .HSG64AN IN PROGRESS DISPLAY 4 + eee. 
1189 @ : 
154C 38 04 37E5 1190 TEN FLAGS,BITS IS PRINT INHIBITED 
© 1550 F2 10 15 1191 JT  — XEQOOD 
1192 ® 
: 1553 38 80 365E 1193 TBN DEVICE,x*S8o* BRANCH IF 
| €B 1557 F2 10 06 1194 JT XEQOLB 5471 REQUESTED 
= L195 * 
155A OC 37 3787 22E7 1196 MVC = MSG*90E56) »MSGTSN MSG-PUT OFFF IN SWITCHES TO HAL 
 €> = 1560 co 87 o21a 1197 XEQ018 B PRINT PRENT - 
1564 02 1564 1198 pc XLL*02* COMMAND EXECUTION 
DATE LSAUGTS OSNOV?S 24MART6 PROG ID c1i8-2 Ooare 15AUGTS OSNOVTS 24HAR TS PROG IO C18-2 | 
EC NO. 827785 827827 827879 PAGE 10 EC NOe 827785 827827 627879 PAGE LOA 
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18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247613; IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247613 
{ PAGE a} Gye PAGE LlA 
C182 3340 FRIENDS TEST - MOD 12 goin 3340 FRIENDS TEST - MOD 12 
ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT "ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
i | es # 
1565 SC 1565 1199 oc ILit9ze IN ot 1267 
1566 3788 1567 1200 oc AL2(MSG491) PROGRESS : 1SFE 2C 01 3821 05 eee MVC = - LOOCF #2 (29 CCPC oXR2) USE CURRENT PHYSICAL CYL IN CC 
1 1201 * Sas 
1568 3A 04 37E5 1202 XEQOOD SBN FLAGS,B81TS INHIBIT PRINT j 1603 38 20 378 1270 XEQ05 TBN CFLGN»CB1T10 BRANCH IF HH ; 
1203 bias | 1607 F2 90 11 aah : JF XEQ06 FIELO IS COMPLETE 
90 3 1204 MVC = MSGN(.100) @MSGN41 LEAR ; 
4 156C OC 63 3790 3791 ion ens | 160A 2C O01 3823 OE 1273 MVC LODCF 4412) »HHL(  XR2) USE CURRENT LOGICAL HEAD 
i 1572 3C 00 3818 1206 MVI —- RDSNS20 CLEAR 160F 38 08 37&7 1274 TBN = CFLG, CBIT4 ADORESS IN HH FIELD IF ANY 
1576 OC 16 3817 3818 1207 MVC = RDSNS-1(23) »ROSNS DIAG SNS DATA AREA | C 1613 F2 90 05 nat JF XEQ06 COMMAND OTHER THAN WRHA 
1208 * e 1276 
157C F3 C4 80 1209 SIO = K*BO"eX*C as ENABLE 3340 INTERRUPTS ! 1616 2C 01 3823 OB 1277 MVC =: IODC F442), HHP» XR2) USE CURRENT PHYSICAL HEAD IN HH 
1210 © Ue te 1278 * 
157F 31 CS 372A 1211 Li0 CEMODEsx'cs* SET X REG CE MODE INDICATORS | { yore as ae ore ae XEQ06 ven er ourceigt FE Pea Fe COMPLETE 
1212 * x 
1583 38 04 020C 1213 TEN = SBYTE4sSSW25 SKIP IF NO OVERRIDE i 1281 * 
1587 F2 90 04 as JF XEQO0C ON WRHA PREREQUISITES be Hee ae ge gute 11 ieee hs TOO seth) RuOCaKe! UPE CveneNT 
1215 * ’ 
158A 31 C5 372C€ 1216 LIO = CEWR, X*C5 SET X REG WRHA PREREQ OVERRIDE ! ‘ sere ee Oo zee ae oe eedites Toei cae 
1217 * fF. 16 9 +55 
158E 31 C5 3724 1218 XEQOOC LIO SVPREQsx*C5* SET SVP REQUEST | : 1632 F2 10 05 uzee JT XEQO7 COMMAND 
1219 © * 
1592 38 01 3704 1220 TBN =: LDDC Rod ae aE = | ©: 1635 2¢ 00 3825 14 aze8 MVC] =: IODC F461.) »KLNG SXR2) USE RECORD N KEY LENGTH 
1596 3A 01 3704 1221 SBN = IDDCR»l STARTING DOCF so = 
159A 3A 01 3706 1222 SBN = IDDDR»1 AND DDDF ADDRESS | 163A 38 08 37E8 1290 XEQ07 TBN = CFLGN»CBIT12 BRANCH IF Ot 
159E F2 90 08 1223 JF XEQ01 (ODO / even? | C3 163€ €2 90 18 neet JF XEQO8 FIELD IS COMPLETE 
15Al 38 01 3704 1224 SBF = IDDC Ro EACH PAS 92 © 
15A5 38 01 3706 1225 SBF IDDDR») - | _ 1641 2C 02 3827 17 1293 MVC =—- IDDCF #812), LO » XR2) USE CURRENT 
1226 * | €: 1646 39 08 37E7 1294 TBF = CFLGpCB1TS RECORD ZERO 
1227 *----~------—------ ~--------+--- eee re 164A F2 10 OC 1295 JT XEQO08 DATA LENGTH IF 
1228 * SETUP ORIVE DEPENDANT WORK AREA ADDRESS | «1640 39 FF 3824 1296 TBF ID0CF45,x*FF® ANY RECORD ZERO 
sft. oes 1229 * | C1651 €2 10 05 1297 JT XEQCs COMMAND | 
1549 06 01 37FE 3632 1230 xEQ01 AZ = CMOID(2) 40012) ADVANCE CURRENT COMMAND ID | 4 1298 ae a ce eeraes tea wedi ps eT eT ee eT 
1231 * 1654 2C 01 3827 1A 1299 MVC «=: [DDC F+. 81.2) »DLNE »XR2 uv 
1232 | @ 1300 * 
15AF C2 02 3873 1233 LA ORVWK2-XR2 POINT TO DRIVE 2 WORK AREA 1659 34 01 37EA 1301 xEQ08 ST LPXR1 oXR1 SAVE INDEX REGISTER 1 
1583 78 08 02 1234 TBN = S$100(oXR1) 9X" 08* BRANCH IF COMMAND 1302 * 
1586 F2 10 046 1235 JT xEQ02 IS ADORESSED TO ORIVE 2 | €&} 1650 OC 09 3832 3828 1303 MVC =—s- ROOC FN(10), IODC Fae SAVE INITIAL DOCF, 
1236 © 1663 OC 01 381C 3704 1304 MVC =RDOCR{2),1DDCR DDCRe AND DOOR 
1589 C2 02 3839 1237 LA = ORVWK 1 XR2 POINT TO ORIVE 1 WORK AREA 1669 OC 01 381E 3706 1305 MVC = RDDDR(2) » IDDOR sonia BO pele o. plats 
1238 i © 1306 ¢ a 
1240 * SETUP SIO AND TIO INSTRUCTIONS | © 1308 + BUILD INITIAL DISK DRIVE DATA FIELD (O00F) 
1241 * | & 1309 * 
1580 1C 01 37E8 O1 1242 XEQ02 MVC «= CFLGN(29CFLGS(,XR1) GET CONTROL BYTES FROM TABLE 166F 78 02 02 1310 xXEQo9 TBN = STOQ( oXR1L) 2x" 02° BRANCH IF NOT 
1243 * 1672 F2 90 83 1311 JF XEQ14 : WRITE GR SCAN COMMAND 
15C2 1C O1 1781 03 1244 MVC = SIO#2(2) »STOR( eXR1) MOVE Q AND R BYTES TO SIO | © 1312 * 
1245 : 1675 02 01 OF 1313 LA 15 9XR19sxR1 POINT TO DDDF INPUT DATA 
15C7 1C 00 177C 02 1246 MvC =: TIOROY42(13,STQQteXR1) SETUP Q BYTE 1314 * 
15CC 38 07 177C 1247 SBF 0s: TLORDY41,X* 07 IN TIO *NOT ROY / UNIT CHECK €) 1678 0C 01 170D 3706 1315 MVC =—s- XEQ.1. 24412), IDDOR MOVE ODDF ADDR TO PACK CALL 
1500 OC 00 1788 177¢ 1248 MVC =: TIOBS 411.1), TIORDY41 AND TIO ‘SEEK BUSY* 1316 # 
1506 3A 01 1788 1249 SBN TIOBSY41,xX*O1¢ INSTRUCTIONS _ 167E OC 01 3834 364F 1317 xEQLO MvC = WORKA(2) 10 INITIALIZE FIELD LENGTH COUNT 
1250 ¢ —€3 1684 oc 03 3838 3630 1318 MVC WORKN(4) 20000 INITIALIZE MULTIPLIER STG AREA 
1252 BUILD INITIAL DISK DRIVE CONTROL FIELD (ODCF) 168A 70 ET 01 1320 CLI «LG XRD Coxe IF FIRST CHARACTER 
1253 * ' €3 168p F2 01 07 1321 JNE XEQ1OA IN FIELD IS AN "X*, 
15DA 1C 09 3828 OD 1254 XEQO3 = MVC) EODCFN(10).DDCF(.xR1) = GET DDCF FROM COMMAND TABLE 1690 3C F1 3838 1322 MVI =- WORK C°1° MULTIPLIER DEFAULTS TO 1 
1255 * ge eae 169% F2 87 21 wt 4323 J XEQiL 
1SOF 38 80 37E8 1256 TSN CFLGN,CBITS BRANCH IF FF ‘© 1324 * ot ae oN = oe ats 
15E3 F2 90 05 1257 JF KEQO4 FIELD IS COMPLETE 1697 02 01 01 1325 XEQLOA LA 1U,XR19,XR1 CONSTRUCT 
1258 * 169A OC 00 3835 3836 1326 MVC = WORKN-3. (9 »WORKI-2 FOUR DIGIT 
1SE6 2C 00 381F 02 1259 MVC) = LOOCF C1 Dp FFCCXR2) USE CURRENT FLAG IN FF FIELD €: 1600 OC 00 3836 3837 1327 MVC 8 =—- WORKN-21) sWORKE-1 DEC IMAL 
1260 * 1646 OC 00 3837 3838 1326 MVC =—- WORKN-111) e WORKED MUTIPLIER 
1SE8 38 40 37£8 1261 XEQ04 TON = CFLGN»CBIT9 BRANCH IF CC -  16AC 1C 00 3838 00 1329 MvC =: WORK O19 XR) FROM INPUT 
1SEF F2 90 11 1262 JF XEQOS FIELD IS COMPLETE C; 1681 70 £7 01 1330 CLI 109XR29,C*x?® FIELD 
1263 © 1684 CO 01 1697 1331 BNE XEQiOA 
152 2C 01 3821 08 1264 MVC) = - IODC F #212) ,CCLE XR2) USE CURRENT LOGICAL CYLINDER 1332 * 
15F7 38 08 37E7 1265 TEN = CFLG,CBIT4 ADDRESS IN CC FIELO IF ANY {1688 02 01 02 1333 XEQ11 LA 20 9XR1) oXR1 ADVANCE ~ 
15F8 F2 90 05 1266 JF XEQO5 COMMANO OTHER THAN WRHA 1688 76 48 02 1334 CLI =. 20. XR29,C*2* POINTER 
: - Our | 
DATE 1SAUGTS  OSNOV7S 246MART6 PROG ID C18-2 ~~ DATE 15AUG75 OSNOV75 24MART6 | PROG ID C182. 
EC NO} 827785 827827 827879 PAGE 1l ; | EC NO. 827785 827827 827879 PAGE lla 
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PART NO. 4247613 _ IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247613 
PAGE 12 = PAGE 12a 
C162 3340 FRIENDS TEST - MOD 12 182 3340 FRIENDS TEST - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT "ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
16BE F2 81 10 1335 JE —- XEQUIA TO END OF ms 1403 * 
16C1 7D 68 02 1336 CLI 209 XR1DVC%e® HEX DATA ANDO “ «176F C1 C4 EOF 1404 XEQl6 TIO ODASDIex*Ca? BRANCH IF INTERRUPT 
1804 F2 81 OA 1337 JE = XEQUIA DEVELOPE FIELD _-:19773 38 10 3765 1405 TBN FLAGS»BIT3 DETECTED IN 
16C7 OE 01 3834 3651 1338 ALC WORKA(2),11 LENGTH COUNT € 1777 Co 10 1928 1406 BT  § ERREND INTERRUPT ROUTINE 
16CD CO 87 1688 1339 8 XEQ11 ; 1407 * 

1340 * 1778 C1 00 1A6B 1408 TIORDY TIO ERROS»#-* ERROR END IF ORIVE NOT READY 
1601 02 01 O1 1341 XEQLIA LA —s_-AC o XRD XR STORE SOURCE ADDRESS & 1409 * 

1604 34 O1 1708 1342 ST = XEQL2#2eXR1 IN PACK SUBROUTINE CALL ““ —«ATTF F300 00 1410 SIO S10 #—-#, t= ISSUE 3340 START 1/0 COMMAND 

1343 * 1411 # 

1608 OC 00 1709 3834 1344 MVC = - XEQ12 (1) eWORKE DEVELOPE SOURCE FIELD (~ 1782 Ci C2 178A 1412 TIO TIOBSY,x*C2¢* ERROR END IF 
16DE O£ 00 1709 3651 1345 ALC = XEQI2(1) 512 LENGTH AND STORE IN 1786 CO 87 1A88 1413 8 ERROG ATTACHMENT DIO NOT GO BUSY 
16E4 O£ 00 1709 1709 1346 ALC = XEQ1201).XEQi2 PACK SUBROUTINE CALL : 1414 * 

1347 * C> 178A C1 00 1798 1415 TIOBSY TIO XEQ17,%-* BRANCH IF SEEK BUSY 
16EA OD 03 3838 3630 1348 CLC WORKN{4) D000 BRANCH IF 1416 * 
16FO F2 82 28 1349 JE  —- XEQL3 MULTIPLIER IS ZERO 178E B9 03 00 1417 TBF OFLG(,XR2},DBIT6+0BIT? ERROR END IF 

1350 * C1781 CO 90 1AAF 1418 BF = ERROT SEEK IN PROGRESS 
16F3 OZ O1 170D 3834 1351 XEQLIB ALC =. XEQ1. 244 (2) »WORKA BRANCH IF ADDITIONAL ” 1419 ¢ 
16F9 F2 AO 2€ 1352 JOL xXEQ14 DATA WOULD EXCEED 64K OF STG _ 1795 F2 87 07 1420 J XEQI8 

1353 ¢ e 2421 © 
16FC OD OL L70D 0203 1354 CLC =. XEQ1L2+4(23 SIZE BRANCH IF ADDITIONAL DATA REH ~ 1798 B9 03 00 1422 XEQL7 TBF OFLG(,XR2),0BET6+OBIT7 ERROR END IF NO 
1702 F2 02 23 1355 JNL = XEQ14 WOULD EXCEED STORAGE SIZE 179B CO 10 1ABC 1423 BT ERROS SEEK IN PROGRESS 

1356 * a 1424 * 
1705 CO 87 0226 1357 8 PACK PACK “—-179F 9C OL 21 03 1425 XEQ18 MYC DKVR(2,XR2),STOR(,XRi) MOVE SIO Q AND R BYTES AND 
1709 1709 1358 XEQIZ = OS-sédELD DATA 17A3 8C 09 2F 3828 1426 MVC =—- ;PRVICF(100XR2)¢ IDDCFN INITIAL DDCF TO ORV STG 
LTOA 1708 1359 DS = AL2 INTO 3 1427 * as 
170C 1700 1360 DS = AL2 DDDF AREA 17A8 8C 01 1D 37FE 1428 MVC = ORVC MDE 2-XR2} sCMDID SAVE CHD ID IN ORV WORK AREA 

1361 * : 1429 ©® 7 
170E OE OL 170D 3651 1362 ALC XEQL244(29,11 ADVANCE DDDF AREA ADDRESS C1 TAD OC 01 3834 3651 1430 MVC = WORKA(2) 911 INITIALIZE BUSY TIMER 

1363 * 1431 * 

1714 07 30 3838 3632 1364 SZ WORKN( 4} -DOL(1? DECREMENT MULTIPLIER _-:17B3 OE O1 3834 3651 1432 XEQI9. «- ALC-— WORKA( 23911 ERROR END IF ATTACHMENT 
171A CO O01 16F3 1365 BNZ xXEQLI8 AND BRANCH IF NOT YET ZERO €* 1789 CO AG 1A0C 1433 BOL ERROO BUSY FAILS TO GO OFF 

eras 1366 © ~ 1780 C1 C4 LEOF 1434 TIO DASOEsX*C4* BRANCH IF INTERRUPT 
171E 02 O1 OL 1367 XEQI3 = LA — 1 eXR2D PXRE ADVANCE INPUT AREA POINTER 17C1 38 10 37€5 1435 TBN FLAGS»B1T3 BRANCH IF ERROR 

1368 ~€) 17¢5 Co 10 1701 1436 BT XEQ19D DETECTED IN INTERRUPT RTNE 
1721 7D 6B 00 1369 CLE OL XRANC ESS BRANCH IF ANOTHER INPUT | 17C9 Cl C2 1783 1437 TIO = XEQ19,x"C2* LOOP IF ATTACHMENT BUSY 
1724 CO 81 L67E 1370 BE xXEQLO FIELD IS TO BE PROCESSED 17CD Cl C4 1E0F 1438 TIG DASDIeX*C4* BRANCH LF INTERRUPT 

1371 * 1439 * 

1372 #-—--—— - nn rrr 17D1 30 C6 381C 1440 XEQISD SNS RDDCR»X*Cot SENSE DOCR 

1373 @ EXECUTE 3340 1/0° INSTRUCTIONS / | 1705 30 C4 381E 1441 SNS RDDDR»X°C4! a SENSE DDDR. 

1374 © 1442 * 

1728 35 01 3704 1375 XEQI4 =—oL IDDCRsXR1 MOVE INITIAL DDCF 1443 @ ; 
172€ 4C 09 09 3828 1376 MVC =. 94@ 109 XR1P e LODCFN TO EXECUTION AREA 17D9 8C OL 23 381C 1444 XEQISC MVC ORVRCR(2,XRZ) sRDOCR SAVE RESIDUAL DDCR VALUE 

1377 ¢ €> «1 7DE BC O1 25 381E 1445 HVC = ORVRDR(.2¢XR2) pRODOR SAVE RESIDUAL ODOR VALUE 
1731 35 O01 37EA 1378 L LPXR1LpXRL RESTORE INDEX REGISTER 1 ! 1446 # 

1379 © 17E3 34 02 37EA 1447 ST  LPXR1eXR1- GET RESIDUAL 
1735 Cl C2 1A36 1380 TIO = ERROLeX*C2E ERROR END IF ATTACHMENT BUSY . €) 17E7 35 O01 3704 1448 t IDDCRsXRi DDCF FROM 

1381 * 17EB 1C 09 3832 09 1449 HVC = RDDC FNC 101.94 sXR1L) EXECUTION AREA 
1739 31 C6 3704 1382 LIO0 «= TODC Re X*C6* LOAD DDCF ADDRESS IN DOCR oO 17FO 35 01 37EA 1450 L LPXR1»XRI 

1383 © 1451 © 
173D 30 C6 381C 1384 SNS _ RDDC Ry X*C6* SENSE DOCR | L7F4 BC 09 39 3832 1452 MVC -ORVRCF(1L0,XR2},RDDCFN SAVE RESTOUAL DOCF 

1385 1453 
1741 OD 01 3704 381C 1386 CLC = IODCR(2) »RODCR ERROR END IF €} 17F9 38 10 37€5 1454 TBN FLAGS-BIT3 ERROR END IF ERROR CONDITIGN 
1747 CO OL LA4A 1387 BNE ERRO2 DDCR INCORRECT 17FD CO 10 1928 1455 BT  ERREROD DETECTED IN INTERRUPT RTM 

1388 © et 1456 & 

1748 31 C4 3706 1389 LIQ LODDRexX*C4* LOAD DDDF ADORESS IN DODDR - €} 1801 B9 04 00 1457 TBF = DFLGL,XR2} eDBITS ERROR END IF EXPECTED OP END 

1390 1804 CO 90 1801 1458 BF  ERRLO INTERRUPT DID NOT GCCUR 
174F 30 C4 381€ 1391 SNS  RDDDReX*C4* SENSE DDDR aoa —— 1459 * 

1392 © | €3 1808 39 CO 37E7 © 1460 TBF © CFLGsCBITO*CBIT2 BRANCH IF NOT RECAL 
1753 OD 02 3706 381E 1393 CLC IDDDR{24RDDDR ERROR END IF 180C F2 10 29 1461 JT %EQ208 GR SEEK COMMAND 
1759 CO Gi 1AS@ 1394 BNE ERRO3 DDDR INCORRECT 1462 * 

1395 ©  €}) — 180F 4D 00 12 1780 1463 CLC = SEOQ#+16(1¢XR1)  SEOFL @RANCH IF NEXT COMMAND IS NOT 
175D 39 CO 37E7 1396 TeF CFLG»CBITC+CBITI BRANCH IF NOT 1816 F2 O1 22 1464 JNE  XEQ208 RECAL OR SEEK TO SAME Dalye 
1762 F2 LO 68 1397 JST = - XEQIS RECAL OR SEEK COMMAND 1465 * 

1398 © ne {> 1817 0C 01 3834 3651 1466 MVC - WORKAC 296 IR EMETIALISE TIMER 
1764 BE 00 00 3651 1399 ALC ODFLG(LsXR20EL INCREMENT *SEEK COMPLETE © ““ 81D OE 01 3834 3651 1467 KEQISA ALC wWORKA(2?9EL ROP UNTIL 
1769 F2 87 03 1400 3 KEQ16 EXPECTED* INDICATORS 1823 F2 AO 08 1468 JOL XEQI9B FEMEQUT 

1401 * “> 1826 CL C& LEOF 1469 TIO ©DASDE gs X#CaF 
L76C BA O& 00 1402 XEQIS SBN OFLGEsxR2?eDB8ITS SET tOP END EXPECTED® INDICATOR 182A 69 03 00 1470 TBE  DFLGt,XRZ},DBITO*OSETT SEEK COMLETE 

DATE ISAUG7S  GS5NOV7S 24HART76 PROG ID c18-2 Oaare ISAUSTS OSNGV75  24HARTS PROG ID Che-2 
EC NOe 827785 827827 827879 PAGE 12 EC NO. 827785 827827 827879 PAGE LZA 
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c182 3340 FRIENDS TEST - MOD 12 
ERR LOC OBJECT CODE ADOR STMT 
1820 CO 90 1810 1471 
1472 * 
1832 89 03 00 1473 XEQ19B 
1834 CO 90 180E 1474 
1475 * 
1476 # 
1838 C1 C3 1847 1477 XEQ20B 
% 1478 2 
, 1479 ¢ 
183¢ 38 03 1780 1480 
1840 CO 10 1B2E 1481 
1482 * 
1844 F2 87 08 14863 
1484 ¢ 
1847 36 03 1780 1485 XEQ20C 
1848 CO 90 i838 1486 
1487 ¢ 
1488 t-— 
- 1489 #8 
1490 ¢ 
184F 38 10 37E7 1491 XEQ21 
1853 F2 10 90 1492 
1493 8 
1856 8C 00 02 3829 1494 
1495 & 
1856 39 CO 37E7 1496 
185F F2 10 10 1497 
1498 & 
1862 8C 00 GCE 364F 1499 
1867 AC OC OD OE 1500 
1501 # 
1868 38 80 37E7 1502 
186F F2 10 74& 1503 
1504 ¢ 
1872 39 68 37ET 1565 XEQ22 
1876 F2 10 OA 1506 
1507 2 
1879 8C 01 05 3628 1508 
187E SC O01 OB 3820 1509 
1510 * 
1883 36 20 37E7 1511 XEQ23 
1887 F2 90 LF 1512 : 
1513 ¢ 
188A 34 01 37EA 1514 
186E 35 01 3706 1515 
1516 ® 
1892 9C O01 08 02 1517 
1896 9C 01 OE 04 1518 
189A 9C 00 11 06 1519 
189E 9C O01 17 08 1520 
1521 @ 
18A2 35 01 3T7EA 1522 
18A6 F2 87 30 1523 
1524 & 
18A9 38 08 37€7 1525 XEQ24 
18AD: F2 10 OA 1526 
1527 © 
18B0 8C 01 08 3828 1528 
1885 8C OL OE 3820 1529 
1530 * 
188A 38 40 37ET 1531 x€Q25 
18B8E F2 10 25 1532 
1533 * 
18C1l 38 0% 37E7 1534 
18C5 F2 90 14 1535 
18C8 39 FF 3824 1536 
1scc F2 10 00 ' 4537 
1538 © 
DATE 15auUG75 OSNOVTS 24MARTE 
EC NO. 827785 827827 s27s79 - 


SOURCE STATEMENT 


BF 
TOF 
BF 
T10 


TEN 
6T 


TBN 
BF 


TBN 
JT 


MvC 


TRF 
JT 


MvC 
MYC 


TEN 
JjT 


TSF 
JT 


MVC 
vc 


TBN 
JF 


st 
avc 
MVC 


MVC 
MVC 


TEN 
JT 


“vc 
MVC 


TBN 
JT 


TON 


TSF 
JT 


XEQI9A 

DFLG(eXR2) eOBIT6+081T7 
ERR11 

XEQ20C »X°C3* 

S$10+1 2X*03* 

ERR14 

KEQ21 


S1G+1.X*03* 
ERRIS 


PART NOW 


4247613 
PAGE 13 


OCCURS 
ERROR END IF EXPECTED 

SEEK COMPLETE OID NOT OCCUR 
BRANCH IF SCAN HIT 


ERROR END IF SCAN 
HIT WAS EXPECTED 


ERROR END IF NO 
SCAN HIT WAS EXPECTED 


SAVE RESIDUAL VALUES NEEDED FOR FOLLOWING COMMANDS 


CFLG,CBIT3S 
XEQ27 


FFCCL,sXR2) »ROOCE 


CFLG CBI TO*CCBITL 
XEQ22 3 


HHL(1,XR2) 210 
HHL-1(13,XR2) SHHL( »XR2) 


CFLG,CB8ITO 
XxEQ27 


CFLGCBITL+CBITZ+CBIT4 
xEQ23 


CCP(2.XR2) ,ROOCF42 
HHP (2. XR2) eROOCF+4 


CFLG ,CBIT2 
xXEQ24 


LPXR1 eXR1 
TODDR, XRL 


CCL(2eXR23220eXR1) 
HHL (2 9 XR2) p40 XR) 
KLOC1,XR2) 60 -XR1Ld 
DLOC2 eXR2 3284 oXRLI 


LPXR1,XR2 
XEQ27 


CFLG,CBIT4S 
XEG25. ,. .- 
CCL(E 2 XR2) ~ROOCF42 
HHL (2,.XR2),RODCF44 


CFLG,CBITI 
XEQ27 


CFLG.CBITS 
KEQ26 
IODCFe5 .X*FF* 
¥EQ26 


BRANCH IF RDOLOG 
OR ROSNS COMMAND 


SAVE RESIOUAL FF FIELD 


BRANCH IF NOT RECAL 
OR SEEK COMMAND 


SET CURRENT FLAG, CYL» | 
ANO HEAD VALUES TO ZERO 


BRANCH IF 
RECAL COMMAND 


BRANCH IF NOT SEEK, 
RDHA, OR WRHA COMMAND 


SET CURRENT PHYSICAL CYL AND -. 
HEAD FROM RESIOUAL OOCF 


BRANCH IF NOT 
RDHA COMMAND 


SAVE INDEX REGISTER 1 
POINT TO OODF AREA 


GET CURRENT LOGICAL 
CYt AND HEAD AND RECORD 
ZERO KEY AND DATA LENGTHS 
FROM RESIOUAL ODDF 


ee a a eee we ere Het ee 


RESTORE INDEX REGISTER 1 
GO TO EXECUTE NEXT COMMAND 


BRANCH IF 
WRITE HA COMMAND 


GET CURRENT LOGICAL CYL AND 
HEAD FROM RESIOUAL ODCF 


BRANCH IF i 
SEEK COMMAND 


BRANCH IF 
OPERATION - 
WAS ONLY ON : 
RECORD ZERO : 


PROG 10 
PAGE 
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4247613 
13A 


GET RECORD N KEY AND DATA 
LENGTHS FROM RESIOUAL DOCF 


GO TO EXECUTE NEXT COMMANO 


GET RECORD ZERO KEY AND DATA 
LENGTHS FROM RESIOUAL DOCF 


A A Ne I LDS A EY OE | 





CHECK FOR END OF COMMAND SEQUENCE 


OBJECT CODE ADOR STMT SOURCE STATEMENT 
8C 00 14 382F 1539 MVC = KLN@1.,XR2) pRDOCF 46 
8C 01 1A 3831 1540 MVC © OLN(. 2 XR2) »RODCF 48 
1541 * 
F2 87 OA 1542 J XEQ27 
1543 * 
8C 00 11 382F 1544 XEQ26 MVC KLO(1,XR2)¢ROOCF +6 
8C 01 17 3831 1545 MVC OLO(2»XR2) eROOCF*8 
1546 © 
1547 * ----- 
1548 * 
1549 * 
‘02 01 10 1550 XEQ27 LA 160 2XR1) XR 
1551 * 
38 02 1780 1552 TBN SIG#19X*02° 
F2 90 03 1553 JF XEQ28 
1554 * 
D2 01 28 1555 LA - 400 oXR1) oXR1 
1556 # 
18F3 1557 XEQ28 Equ) & 
1558 * 
70 FF 00 1559 CLI Ol pXRID oX* FEF 
CO O01 15A9 1560 BNE ¥*EQ01 
1561 * 
OC 01 3834 3651 1562 XEQ29 MVC WORKA(2)512 
"1563 * 
OE 01 3834 3651 1564 XEQ30 ALC WORKA(2)—12 
CO AO 180E 1565 BOL ERRI1 
C1 C4 1EOF 1566 TIO} «©DASDI»X*C4* 
1567 * 
39 O7 3839 1568 TBF ORVWK1,X*07* 
39 O07 3873 1569 TBF ORViK2—X*07* 
co 90 1900 1570 BF xXEQ30 
1571 * 
38 10 37E5 1572 TAN FLAGS,»81T3 
co 10 1928 1573 BT ERREND 
1574 * 
2C 01 3800 1F 1575 MVC = SNS(2) sDRVSNS(eXR2. 
CO 87 1860 _ 1576 | 8 ENDCMD 
ist7* 
1SAUGT5 OSNOVTS 24MART6 
827765 827627 827879 


cage er ae ETS 


pee tea 


ADVANCE CMD TABLE POINTER 


BRANCH IF LAST COMMAND 
REQUIRED NO ODDF ENTRY 


ADVANCE CMD TABLE POINTER 


GO TO EXECUTE NEXT COMMAND IF 
NOT YET END COMMAND 


INITIALIZE SEEK COMPLETE TIMER 


ERROR END If EXPECTED SEEK 
COMPLETE FAILS TO OCCUR 
BRANCH If INTERRUPT PENDING 


WAIT FOR EXPECTED 
SEEK COMPLETE INTERRUPT 


BRANCH IF ERROR 
DETECTED IN INTERRUPT RTN 


RETRIEVE LAST CMO END STATUS 
Go TO WRINUIOISEr ee IF REQ*O 
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13A 


PROG ID 
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PART NO pala IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247613 
PAGE 4 | PAGE 14A 
c182 3340 FRIENDS TEST =~ MOD 12 c182 3340 FRIENDS TEST - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ‘ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1579 cenagecaccecseseaaceseeesessecesasessececsecssceseeesessesssseseseseess | t 19ED 3C 00 3818 1647 ERREL MVI RDSNS,0 CLEAR DIAG 
1580 * | oe 19F1 OC 16 3817 3618 1648 MVC 3=—s- ROSNS-1123) »RDSNS SENSE AREA 
1581 * ERROR ENDING CONDITIONS 1649 * 
1582 © *| 19F7 OC 01 3802 3800 1650 MVC RDSNS—22(2) SNS OEVELOPE 
1583 SREEESSHEYESEESESESERSEESTSSERESESSSESESASRESTEERSESSESESTSE SSE SSSESSSSS | 19FD 3C 30 3808 1651 ERRE2 MVE RDSNS—-16,X*30* Cee EuRST AC 
1584 7 1A01 31 C7? 3658 1652 LIG SNS23exX'C7* 
1928 1585 ERREND €Qu 2 | € . 1A05 30 C7 3804 1653 SNS RD SNS—20.X*C7* SENSE OATA 
1928 OC 4F 37E1 37E2 1586 MVC MESN(80) »MESNF1 CLEAR MESSAGE AREA | ag 1654 * 
1931 C2 02 3839 1587 LA ORVWK1 e XR2 POINT TO ORIVE 1 WORK AREA 1A09 CO 87 184F 1655 B ERRNA GO TO PRINT/DISPLAY IF REQ*O 
1935 3C Fl 2036 1588 MVI MSG3744,C*1* SETUP MESSAGE FOR ORIVE 1 | €% 1656 *# 
1330 F519 oe ise Beagtrmtazeoorr2, SRERRDR ON ORIVE 2 En 38 8 Base esr He at onan oxrs 
1591 # | ee 1A15 F2 10 OE 1659 JT ERRG IN ADAPTER SENSE 
193F C2 02 3873 1592 LA ORVWK2 eXR2 POINT TO ORIVE 2 WORK AREA | . 1660 ¢ bu eae 60 
1943 3C F2 2036 1593 MVI MSG3744,.C*°2* SETUP MESSAGE FOR ORIVE 2 A18 3C OD 37FC 1661 MVI ERRID,»X*OD* ERROR - 
1594 * : C> talc Oc 13 37A5 2006 1662 MVC MES+19(20) »MSGO1N MSG=-UNEXPECTED INTERRUPT 
1947 88 10 00 1595 TBN OFLGE,XR2),0BIT3 _ BRANCH IF ERROR IS eves We pe 1A22 CO 87 184F 1663 8 ERRNA GO TO PRINT/OISPLAY IF REQ*O 
194A F2 90 BF 1596 JF ERRE RELATED To NO SPECIFIC ORIV ; 664 *& 
- 1597 * | “~~  1A26 3C OE 37FC 1<65 ERRG MVI ERRID oX* OE ® ERROR CODE - OE 
1940 2C 01 37FE 10 1598 ERRA MVC 3 «=—«- CMD 1002) g ORVCMD(., XR2} RETRIEVE | = LA2ZA OC 25 3787 20C2 1666 MVC MES¢37(38),MSG40N MSG--SNS DOES NOT DEFINE INTRP 
1952 2C O1 1781 22 1599 MVC S$1042(2) -ORVREgXR2) INETIAL AND | 1A30 CO 87 1B4F 1667 8 ERRNA GO TO PRINT/OISPLAY IF REQ*O 
1957 2C 01 381C 23 1600 MVC —- RDDC R27 ,ORVRCR(  XR2) RESIDUAL VALUES @ 1668 ¢ 
1951 2C 09 3828 2F 1602 MVC IDDCFN(10) ,ORVICF(,xR2? EXECUTED AGAINST | 1670 # ATTACHMENT BUSY PRIOR TO COMMAND EXECUTION 
1966 2C 09 3832 39 1603 MvC RDDCFN( 107 eORVRCF ( eXR2) THE FAILING ORIVE @ 1671 # ie Bkeeaiis Seancii If ERROR DETECTED 
1604 * 1A34 38 10 37E5 1672 ERROL L ° 
1968 2C 00 1971 16 1605 MVC =. ©4601.) pUCKMSK(9XR2) SRANCH IF | 1A38 CO 10 1928 1673 pT ERREND IN INTERRUPT SUBROUTINE 
1970 39 00 37FF 1606 TBF SNS~-1_9#-* NO UNIT CHECK s 1674 & 
1974 39 08 3800 1607 TBF SNS, X*08* GR NO-OP STATUS | 6 LA3C 3C O1 37FC 1675 MVE ERRIO,»X*OL* : ERROR CODE - 01 
1978 F2 10 53 1608 JT ERRD CONDITION | 1a40 OC 21 3783 2D0F8 1676 MVC MES4#33134) eMSG4S2N MSG--ATTACHMENT BUSY 
1609 # Q 1A46 CO 87 1848 1677 B ERRN GO TO PRINT/OISPLAY IF REQ*O 
LS sa 1978 3C OA 37FC 21610 “vi ERRID,X*OA* ERROR CODE — OA ; 1678 # : 
1612 * 2] 1680 * DOCR FAILED TO LOAD CORRECTLY 
1985 OC 00 1998 1780 1613 ERRB MVC See Cee ee cern . ; eee cake a cans enw ERROR CODE 02 
1988 3A 01 1998 1614 SBN ERRC4+1eX*O N N TO LAGA 3C 02 37FC 1682 oX%*O - 
198F 3B 02 1998 1615 SBF ERRC#1.X*02* READ DIAGNOSTIC SENSE INFO ©) LASE OC 1A 37AC 2E13 1683 MVC MES¢26(27} eNSGA3N MSG--DDCR LOADED INCORRECTLY 
1616 ¢ 1A54 CO 87 1848 16846 8 ERRN GO TO PRINT/DISPLAY IF REQ'O 
1993 31 C& 3671 1617 LI0 ROSNSAeX*C4* LD ODDR TO RD DIAG SNS AREA e 1685 @ 
1618 z vie 1€86 * a RAN RATED CLES CERO CN ANS TD 
1997 F3 00 O7 1619 ERRC S10 = K*O7* pts READ DIAGNOSTIC STATUS 1687 * DODR FAILED TO LOAD CORRECTLY 
1620 ® 1688 * : 
199A 0D FE 199A 199A 1621 CLC 3 «#( 255) 6% DELAY 400 MICROSECONDS | © 1A58 3C. 03 37FC 1689 ERRO3 MVI  €ERRID,X*03" ERROR CODE - 03 
19A0 Ci C4 LEOF 1622 TIO OASOIeX*C4* BRANCH IF INTERRUPT PENDING | JASC OC 1A 37AC 2E13 1690 ve me stele ttatoenoe MSG--DDDR LOADED INCORRECTLY 
1623 ® 1A62 OC 03 3795 2E17 1691 vc ES+ * N 
i9A& 30 C5 3838 1624 SNS WORKNeX*C5* SENSE ADAPTER STATUS AND G 1A68 F2 87 OD 1692 J ERRN GO TO PRINT/DISPLAY IF REQ'D 
19A8 38 O1 3838 1625 TEN WORKN sl BRANCH IF NCQ ADAPTER CHECK 1693 # 
1627 * | 6 1695 * UNIT CHECK OR NOF READY PRIOR To SIO 
1980 3€ 00 3818 1628 MVI ROSNS,O CLEAR DIAG ‘ 1696 * 
1984 OC 16 3817 3818 1629 MVC ROSNS-1(23) sROSNS SENSE AREA | 1A6B F3 C& 02 1697 ERROS SIO = KX. O24 e X*C4* DISABLE 3340 INTERRUPTS 
1630 ® 1698 * 
19BA OC O02 3802 3838 1631 MVC = ROSNS-2212) »WORKN SAVE SENSE BYTES | © LA6E 38 10 37E5 1699 pL eceae = BR AE coe GeROLT INE 
1632 © 1A72 CO 10 1928 1700 8 E 
19CO 3C OF 37FC 1633 MVI = ERR10,X*OF® ERROR CODE - OF | @ 1701 2 
19C% OC 23 370D 3005 1634 MVC MES+75(36) oMSG64N MSG—~ADAPTER CK ON OIAG SNS 1A76 30 C5 3800 1702 SNS SNS eX*CS* SENSE ADAPTER STATUS 
19CA CO 87 L9FD 1635 8B ERRE2 GO TO PRINT/DEISPLAY IF REQ*O | : 1703 ® sees na CODE és 
1636 * i LATA 3C 05 37FC 1704 MVE ERRIDsX*0 E = 
19CE 3C 08 37FC 1637 ERRD MVE ERRID eX*OB* ERROR CODE - 08 : © LATE OC 25 3787 2E3D 1705 MYC MES+37(38) oe MSG45K MSG--DRV NOT ROY OR UNIT CK 
1902 OC 3€ 3700 208E 1638 MVC ME S#62(63) »MSG3EN MSG—-NO INTERRUPT PENDING \ 1a8@ CO 87 1985 1706 8B ERRS GO TO READ OLAGNOSTIC STATUS 
1908 CO 67 1B4F 1639 8 ERRNA GO TO PRINT/DISPLAY IF REQ*O | @ 1707 
19DC 38 01 3800 1641 ERRE ' JEN SNSeX*O1° BRANCH S onccii | 1709 + ATTACHMENT DIO MOF GO BUSY AFTER SIO 
19EO F2 90 2a 1642 JF ERRF ADAPTER 1710 * 
1643 # 6 1A88 3C 06 37FC L711 ERROG Mvt ERRID,X*06* ERROR CODE ~- 06 
19E3 3C OC 37FC 1644 MVE =—- ERRID e X* OC* ERROR CODE — pe 1A8C OC 24 37B6 2E62 1712 MVC = MES 36137) »MSG46% MSG--CAN'T SET ATTACHMENT BUSY 
19EF OC O00 379F 209C 1645 MVC} MES*13(14).MSG39N MSG—--ADAPTER CHECK { 1713 * 
yee © 1a92 OC 01 3838 364F 1714 MVC = WORK NNC 232 10 INITIALIZE TIMER COUNT 
i@ : 
DATE LSAUGTS OSNOVTS 24MAR 76 ProG 1D C18-2 DATE L5AUG73 OSNOVTS 24MART6 PROG f0 CL8-2 
EC NO. 827785 6827627 827879 PAGE 14 | eo NO. 827785 827827 827879 PAGE 146A 
| 
: 
| © 
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ERR LOC GBJECT CODE 


1A98 
1A9E 
LAAL 
LAAS 
1AA8 


LAAC 


LAAF 
1A83 
1Aa89 


1ABC 
1ACcO 


LAC6 


1aAcc 
1A02 
1A05 
1A09 


1a0Cc 
1LAEO 


1LAE6 
1AE9 


1AEO 
LAF 
LAFS 
LAF 9 


LAFE 


16801 
1805 
1808 


iBOE 
1812 
1818 
iBleE 


1821 
1825 
1628 


DATE 
EC NOe 


OE 
F2 
ch 
89 
co 


F2 


3c 
oc 
F2 


3c 
oc 


oc 


OE 
F2 


F2 


3c 
oc 


F3 
30 


30 
30 
35 
ic 


F2 


3c 
oc 
F2 


3c 


oc 
F2 


3c 
oc 
Fe 


o1 
AO 
C4 
O7 
90 


87 


07 
87 


08 
27 


ot 


01 
AO 
c2 
87 


09 
23 


C4 
cs 


Ccé 
c4 
O21 
09 


87 


10 
26 
87 


1a 


16 
87 


12 
26 
87 


3838 


37FC 
3785 
OA 


37FC 
3789 


3838 
3838 


1acc 
OA 


3TFC 
37B5 


02 
3800 


381C 


-anom 


3204c 


3704 
3832 


&E& 


3TFC 
3788 
3A 


37FC 
3TAT 
3700 
27 


3TEC 
3788 
21 


15AUG75 
827785 
































| 
\ 












































PART NO. 4247613 _ IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NQ. 4267613 
PAGE 15 ; PAGE 15A 
(C182 3340 FRIENDS TEST - MOD 12 
ADDR STMT SOURCE STATEMENT “ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3651 1716 ERRO6A ALC WORKN(2)eT1 WAIT FOR ares * EXPECTED SCAN HIT DID NOT OCCUR 
1717 JOL  ERROOA EXPECTED Bose 1785 ¢ 
1718 TIO DASDI,X*C4t BRANCH IF INTERRUPT PENDING '€" 4B2E 3C 16 37FC 1786 ERR1% MMVI ERRIDsxX*14* ERROR CODE - 14 
1719 TBF = DFLG(4XR23,X*07* INTERRUPTS 1832 OC 26 37B6 2-58 1787 MVC =—- MES4#3.6(37) » MSG53N MSG--NO SCANHIT 
1720 BF = ERRG6A OR PROGRAM TIMEOUT Oo 1B38 F2 87 14 1788 J ERRNA GO TO PRINT/DISPLAY IF REQ*D 
1721 * .€ 1789 * 
1722 J ERROOB GO TO PRENT/DISPLAY IF REQ*D 1790 #------~-+-—~----~-- -- 2 2 = - a------ 
1723 # | i791 * UNEXPECTED SCAN HIT CONDITION 
1126 $2 —---- nn nn nn ne nnn nn nn nnn nen nnn nnn ne 1 1792 * 
1725 * SEEK COMMAND DID NOT SET SEEK BUSY ! 1838 3C 15 37°C 1793 ERR15 MVI ERRIDsX#15¢ ERROR CODE - 15 
1726 * «A B3F OC 22 3784 2F7E 1794 MVC =—- MES#34(35) »MSG54N MSG--UNEXPECTED SCAN HIT 
1727 ERROT MVI - ERRID»X*07# ERROR CODE - 07 | €) 1845 F2 87 07 1795 J ERRNA GO TO PRINT/DISPLAY IF REQ*O 
2€86 1728 MVC = MES#35(36),MSG47N MSG-~CAN'T SET SEEK BUSY 1796 * 
1729 J ERROBA GO TO WAIT FOR END OF OPERATION' 1797 %-——---— ~oe SaERERENa NEE ea em Se 
1730 * 1798 @ COMPLETE ERROR PROCESSING 
1731 #~---------——---_-~. ween nnn nr nn en nn nn eee 1799 * 
1732 SEEK BUSY WITH NO SEEK IN PROGRESS ‘1 B48 -F3 C4& 02 1800 ERRN SIO = K*02%  X*C4* DISABLE 3340 INTERRUPTS 
+1733 @ ' €} 1848 30 C5 3800 1801 SNS  SNS»X*C5# SENSE ADAPTER STATUS 
1734 ERROS MVI_  ERRID,X*08* ERROR CODE - 08 1802 
2EAE 1735 MVC = MES#39140),MSG48N MSG--SEEK BUSY SHOULD NOT BE ON. 1B4F 3A 10 37€5 1803 ERRNA SBN FLAGS,BIT3 SET COMMON ERROR INDICATOR 
1736 # : 2 1804 * 
364F 1737 ERROBA MVC WORKN(2),10 INITIALIZE TIMER COUNT 1853 38 08 37E5 1805 TBN = FLAGS, BIT4 BRANCH IF LOOP 
1738 * 1857 F2 10 06 1806 JT  ENOCMD COUNTER HAS GVERFLOWED 
3651 1739 ERRO8SB ALC WORKN(2),11 WAIT FOR i 1807 * 
1740 JOL ERROQA ATTACHMENT 1B5A 06 41 2FA3 3632 1808 AZ = MSG62436(6} 00162) INCREMENT ERROR COUNTER 
1741 TIG ERROBB,X*C2° BUSY TO FALL 1809 
1742 J ERRODA OR PROGRAM TIMEQUT | @ 
1743 © | 
1745 # ATTACHMENT BUSY FAILED TO GO OFF | © 
1746 *# 
1747 ERROS = MVE ERRID»X*09" ERROR CODE - 09 | 
202 A748 MVC MES#35(36)»MSG49N MSG--ATTACHMENT BUSY HUNG ON | @ 
1749 * 
1750 ERROQA S10 X*02* eX*Cae DISABLE 3340 INTERRUPTS 
a SNS SNS» X*C5® SENSE ADAPTER STATUS | © 
52 ¢ 
1753 ERROSB SNS RDOCR»X*Co* SENSE OOCR | 
1754 SNS  RODDReX*C4* SENSE DDDR © 
1755 ® 
1756 ERROSC. LL IOOCRsXR1 GET RESIOUAL ODCF 
09 1757 MVC = RDDCFN¢109 9 9f yxR1) FROM EXECUTION AREA © 
1758 © 
1759 Jj ERRNA GO TO PRINT/DISPLAY IF REQ*D 
1760 & ; © 
1761 Dance em ee een. enenen i 
1762 EXPECTED OP END INTERRUPT DID NOT GCCUR | 
1763 ¢ S$ 
1764 ERR1O0 8=—s «MVE ERRID,X*10° ERROR CODE = 10 
2EF9 1765 MVC = MES+3.8 (39) eMSGSON MSG--MISSING OP END INTERRUPT 
1766 J ERRN GO TO PRINT/OISPLAY IF REQ*D | @ 
1767 ¢ 
1769 * EXPECTED SEEK COMPLETE INTERRUPT DID NOT OCCUR | © 
® 1 
1771 ERR1L MVI  ERRIOX*11¢ ERROR CODE = 11 | 
2FOF 1772 MVC =—- MES#21(223 4 MSGS1N MSG--MISSING SK COMP INTERRUPT | &) 
2EF9 1773 MVC = MES#62( 23) »MSG5ON 
1774 J ERRN GO TO PRINT/DISPLAY IF REQtD | 
1775 * S$ 
1777 + INTERRUPT PENDING, BUT INTERRUPT DID NOT OCCUR | 
1778 * | @ 
1779 ERR12 = MVE ERRIO»X*12° ERROR CODE - 12 ™ 
2F36 1780 MVC 8 =—- MES4#38 (39. MSG52N MSG--INTERRUPT PENDING S/8 OFF | 
1781 J ERRNA GO TO PRINT/DISPLAY IF REQ’~D =| 
i782 * 
i @ : 
OSNOV7S = 24MART6 PROG ID 186-2. ~ DATE 1SAUGTS OSNOV7S = 24HART6 PROG ID - €18-2° 
827827 827879 PAGE 15 | | €C NO. 827785 827827 827879 PAGE 1SA 
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PART NO. 4247613) _ IBM MAINTENANCE OLAGNOSTIC PROGRAM PART NOo 4247613 
PAGE 16 | & PAGE LOA 
C2182 3340 FRIENDS TEST - MOD 12 fo 3340 FRIENDS TEST = MOOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ' ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

LELL SHSEKERAERESSERE SHE SEKGERRERERERESE © EKERERSETESESESRSSAGSHASE VASES ASKS rs 1BF6 380C 1BF?7 1879 OC AL2(RDOSNS-i2} TO DISPLAY AREA 

isi2 * e) 1BFB 3753 1BF9 1880 oc AL2(MSG+38) 

1813 PRINT / OISPLAY EXE RESULTS * i 1881 * 

1814 & & cs 1BFA CO 87 14A9 1882 8 PRNTAA 

LQLS SRAELAAKESSEKREKEKESCEREEKERE SEE SERS S OSEKEERERELEKKAEREERSERLRSELESER ARETE | 1883 * 

1816 # : 1BFE OC 63 3790 3791 1884 MVC MSGN(100) »sMSGN41] CLEAR MESSAGE AREA 
1860 3D F3 37F9 1817 ENDCHD CLI OPTION,C *3° BRANCH IF ALL HALTS € 1€04 CO 87 O21E 1885 B UNPACK UNPACK 
1864 CO 81 1489 1818 BE XEQCMD AND PRINTOUTS BYPASSED ~ 1C08 04 1C08 1886 oc IL2*04¢ 3340 SENSE INFO 

1819 * 1C09 3810 1COA 1887 DC AL2(ROSNS-8) TO DISPLAY AREA 
1868 3D F& 37F9 1820 CLI GPTION,C*4? BRANCH IF NO LOOP Ca 1COB 3741 1coc 1888 oc AL2(MSG4+20) 
186C F2 81 OB 1821 JE ENDO} OPTION IS SELECTED 1889 * 

1822 # : 1COD CO 87 O21E 12890 B UNPACK UNPACK 
1B6F 38 10 37E5 1823 TBN FLAGS,81T3 BRANCH IF NO 3340 So icil 04 1CLL 1891 DC ILi*04* 3340 SENSE INFO 
1873 CO 30 1489 1824 BF XEQCHD ERROR WAS DETECTED i 1€12 3814 1C13 1892 oc AL2(ROSNS-4 1 TO DESPLAY AREA 

1825 *# 1C14 374A ici5 1893 OC AL2(MSG429) 
1B??? £3 C4 TE 1826 S10 X°7E* pX*C4t DISABLE 3340 INTERRUPTS e 1894 # 

1827 # 1€16 CO 87 O21€ 1895 8 UNPACK UNPACK 
IBTA OC 63 3790 3792 2828 ENDOL MVC MSGN(100 32 4SGN+} CLEAR MESSAGE AREA Ue a ICLA 04 1C1A 1896 oC IL2°04? 3340 SENSE INFO 
1880 OC GL 3742 37FE 1829 HVC MSG+22(23,CMDIO INITIALIZE : 1016 3818 1cic ise7 DC AL2(ROSNS) TO DESPLAY AREA 
1886 OC O02 373F 3667 1830 MVC 4SG+18(33) ,CMD : 1C1D 3753 iC1lE 1898 oc AL2 (HSG+438} 
188C OC O00 373A 2CC7 1831 MYC MSG+13(24)5MSG30N ‘NORMAL END®* DISPLAY 4 . 1899 + 

1832 % ee 1CLF CO 87 14A9 1900 8 PRNTAA PRINT SENSE DATA 
1892 38 O1 37F9 1833 TBN OPTION, X*O1* BRANCH IF 1€23 OC 63 3790 3791 1901 MYC MSGN(10032MSGNt1L CLEAR MESSAGE AREA 
1896 CO 16 1DA6 183% et END158 PRINTOUTS BYPASSED 1029 OC 10 3753 2015 1902 MVC MSG+38 (30), MSG33N 
189A 3C 41 1883 1835 aVI ENDOLASS pX*4E° SET GFF ERROR FLAG eC 1903 * 

1836 © 1C2F CO 87 14A9 1904 8 PRNTAA PRINT DDCR eovccee 
189E 38 10 37E5 1837 YBN FLAGS-81T3 BRANCH ITF NO 3340 1905 * 
1BA2 F2 90 OA 1838 JF ENDOLA ERROR WAS DETECTED Q 1033 GC 63 3790 3791 1906 MVC MSGNC LOO} ¢e MSGRL CLEAR MESSAGE AREA 

1839 1C3S Oc O06 3733 201C 1907 «vc MSG46075,4SG34N 
1BAS OC OB 373A 2E05 1840 MYC MSG413(12) »ASG31N INITIALIZE "ERR END* DISPLAY | a 1C3F CO 87 O21E 1968 8 UNPACK UNPACK 
18A8 3C Ci 1883 1841 wVI ENDO1A44,X*CL® SET ON ERROR FLAG | 2 1€C42 02 iC43 1909 oc ILL*Q2¢* INETEAL ODCR 

(eae 1842 1044 3704 1645 1916 oc AL2CIDNCR) ¥O DESPLAY AREA ne 
LBAF CO 87 O2i1A 1843 ENDOLA 8 PRINT PRINT 1C46 3739 ic47 19il oc AL2 (MSG+12) 
1883 Ci 1683 1844 oc xLiccis END | § 19k2 ¢ 
LBB 16 1BB4 1845 Doc IL2*22¢* HESSAGE 1913 % 
LBB85 3742 1866 1846 oc AL2(MSG¢21} 1048 CO &7 O21E 1914 8 UNPACK URPACK 
1887 ClOL 1888 1847 oc AL2CHLTOL) | 1C4C 02 ic4C 1915 oc IL1l‘o2* INITIAL COOR 

1848 ¢ 1C4D 3706 1C46E 1916 oc AL2(IDODR) ¥OQ DISPLAY AREA 
1889 OC 21 374E 2CFT 1849 ENDOZ MYC MSG4¢33(34) ,HSG32N BUILD 1C4F 373€ 1€50 1917 oc AL2(MSG417} 

1850 * © 1S18 ¢ 
LBBF CO 87 O21A 1851 8 PRINT PRINT 1919 * . 
18C3 O61 18C3 1852 oc XLitoLe OLAGNOST IC | 1051 CO 8&7? O21E 1920 B UNP ACK UNPACK 
1BC4 22 16C4 1853 oc 1L2°34° SENSE i © 1€55 OA 1C55 1921 oc ILL°10° INITIAL DOCE 
16C5 374E 18C6 1854 oc AL2 (486433) DATA | 1C56 3828 1C57 1922 oc AL2(ITDOCFN} TG DISPLAY AREA 

1855 *¢ 1658 3753 1€59 1923 DC AL 2(8SG+38} 

Lec? oC 63 3790 3791 1856 MYC HSGN(100} ,RSGNel CLEAR MESSAGE AREA | 1924 # 
18CO CO 87 O21E 4857 8 UNPACK UNPACK | 1CSA CO 87 14A9 1925 B PRNTAA PRINT IMETIAL ODCReoe DATA 
216D2 03 1BD1 1858 DC ILz%*03°* SIO INSTRUCTION i 1926 % 
LB02 2781 1803 1859 oc AL2(SI0¢2) ¥O DISPLAY AREA €> 1C5€ OC OL 3736 3661 1927 MVC MSG+9(2),8LANKS CLEAR MESSAGE AREA 
1804 3733 18D5 1860 oc AL2(KSG¢6) i 1C64 CC O7 3734 2D24 1928 MVC 4SG+7 (8) pMSG3SN 
1861 ¢ ! 192g ¢ ‘ 
1806 CO 87 O21E 1862 8 UNPAC K UNPACK 1C6A CO &7 O2Z1E 1930 8 UNPACK UNPACK 
160A 02 1BDA 163 oc ri *02¢ ADAPTER SENSE INFO yo ICGE 02 iC6E 1931 DC ILE*O2¢ RESIDUAL ODCR 
1BDB 3800 1B0C 1864 oc AL2 (SNS) TO DESPLAY AREA 1C6F 381C 1C70 1932 oc AL2(RDDCR} TO GESPLAY AREA 
2800 3738 IBDE 1565 oc ALZEMSG4115 & ic7l 3739 1C72 1933 oc AL 2(MSG412} 

1866 # 1934 2% 
1BDF CO 87 O2LE 1867 B UNPACK UNPACK 1073 CO 87 O21LE i935 8 UNPAC K UNPACK 
1BES 04 iBE3 1868 oc ELL& OS® 3340 SENSE INFO i © 1c77 02 1C77? 1936 oc ILi°O2? RESIDUAL ODOR 
LBES 3804 1BE5 1869 oc AL 2(ROSNS=20) TO DISPLAY AREA 1C78 38iE 1C79 1937 oc ALZ(RDOOR} TO. OFSPLAY AREA 
1BESG 3741 LBE? 1870 BC AL2(MSG#20} ECTA 373E 1078 1938 Oc ALZ(MSG+17) 

7 187i @ i © 1939 ¢ 
LBESB CO B87 G2iE 1872 B UNPACK UNPACK { 1c7C CO 8? O2iE 1949 B URPACK UNPACK 
IBEC 04 isEC 1873 oc TL1°04° 3340 SENSE INFO Ps os 1C80 OA 1C80 194) oc ILREBo!e RESTOUAL DBC 
1BED 3808 IBEE 1874 oc AL2¢ROSNS~16} TO OISPLAY AREA_ | © iC8i 3832 1C82 1942 oc AL2¢(RDOCFN) ¥G DISPLAY AREA 
LREF 374A 1BFO i875 oc AL2(NSG+29!} 1€83 3753 i184 1943 Oc AL2¢(HSG438} 

1876 © } 1944 # 
1BFi CO 87 O2iE 1877 8 UNPACK UNPACK © ices CO &7 14A9 1945 B PRNTAA PRINT RESIDUAL DOCRese DATA : 
LBFS 04 LFS 1878 oc FLE*Q4? 3340 SENSE INFG 1946 & 

DATE LSAUGTS OSNOVT7TS Z&HARTS PRoG 10 Ci8-2 Ovate 15AUGTS OSNOV75 25RARTSE PROG 16 CLs2 
EC MO. 827785 827827 B27eTF PAGE 46 ra NO. 827785 827827 827879 PAGE LGA 
'@ 
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STMT SOURCE STATEMENT 

1947 TBN FLAGS, B1T3 
1948 JF ENDOZA 

1949 * 

1950 * 

1951 * 

1952 SBN ENDO4A,X'80° 
1953 SBN ENDO6Ay X'80° 
1954 SBN £ND12B,X'80! 
1955 SBN .END15A,X"80* 
1956 * 

1957 8 PRINT 

1958 pc 8 xk #028 

1959 oc =—-:«ru."80° 

1960 DC  AL2(MESN) 
1961 * 

1962 J ENDO28 

1963 *® 

1964 ENDO2ZA EQU * 

1965 * 

1966 * 

1967 SBF ENDO4AsX*80° - 
1968 SBF ENDO6A,X*80* 
1969 SBF END12BsX*80* 
1970 SBF END15AeX*80° 
1971 * 

1972 ENDO2B 4«2EQU F 

1973 * 

1974 * 

1975 ENDOS =s«=B PRINT 

1976 ENDO4A OC XL 02° 

1977 oc —s«sEL1*408 

1978 DC 0s AL 2 MSG62N) 
1979 # 

1980 ENDOS SBF FLAGS eBIT5 
1981 * 

1982 END06=—s«sEQUSsisé#* 

1983 * 

1984 TBN S10+1,X"03° 
1985 JF  —- ENOSB 

1986 * 

1987 ALC RDDDR(2),1258 
1988 * 

1989 END06B MVC WORKN(29,RDDOR 
1990 SLC WORKN(2) s1000R 
1991 BNP «END 58 

1992 © ; 

1993 TEN S1O#1eX*O1* 
1994 BF ENDL58 

1995 * 

1996 TBN SBYTE2,SSW10 
1997 6T  ENDI56 

1998 
1999 MVC —- MSGN(.100? » MSGN41 
2000 * 

2001 MVC —- MSG¢1213) »MSG36N 
2002 * 

2003 TBN  OPTION»X*O1° 
2004 JT ss END158 

2005 * 

2006 8 PRINT 

2007 END0O6A OC 8 xt1°01° 

2008 oc =—_:«1L1 813° 

2009 Do =. ALC MSG412) 
2010 * 

2011 ENDOT MVC ENDIOAL1)5I4 
2012 * 

2013 L IDDOR,» XR2 
2014 LA —«- BU XRLDeXRE 
24RARTS 
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ERROR 
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ERROR 
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SCAN COMMANO 


FORCE 258 BYTE DDDF LENGTH 
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DOOF LENGTH, 
BRANCH IF ZERO 


BRANCH IF NOT 
READ OR SCAN COMMAND 


BRANCH IF DOOOF 


PRINTOUTS ARE BYPASSED 


CLEAR MESSAGE AREA 
SET UP HEADING 
BRANCH IF 


PRINTOUTS ARE BYPASSED 


PRINT 
HEADING 
LINE 


SETUP TO UNPACK 4 BYTES 
SeTuPp souRCE 
ADDRESS FOR FIRST 
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oc 
34 


OF 
F2 


OE 
OE 
OE 
OE 
oc 


co 


OE 


oD 
F2 


OF 
F2 


02 
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STMT 


2015 
2016 
2017 
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2019 
2020 
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2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
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2037 
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2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
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2051 
2052 
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2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
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2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
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= 
* 
END10 
END1OA 
END108 
END 10C 
s 


e 


& 
ENDi2 


* 
END1i2 
* 


2 
—N0126 


END12C 
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2 
END13 
* 
ENDI5A 
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END1L5B 
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END15C 
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ST 
LA 
MVC 
ST 


SLC 
JNM 


ALC 
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ALC 


MVC 


os 
os 
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cic 
JE 


SLC 
JZ 


LA 


EQU 


TSN 
SBF 
BT 
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MVC 


exc 
BNE 


£QU 


CLE 
BE 
CLUl 
BE 
TEN 
SF 
EQU 
SBF 
SBN 
TBN 
JF 
SBF 


END108eXR1 
MSG+7»XR1 
WORKA(1) 514 
END1OC,XR21 


WORKN(2) ¢ 14 
END10 


ENDLOACL) »WORKN 
END 108(2) »WORKN 
END10C(2),WORKN 
END10C (2) »WORKN 


WORKN(2),10 


UNPACK 
1L1 
AL2 
AL2 


END108(2)5 14 


WORKN(2)-130 
END12 


WORKA(1)512 
END1L2 


91 XR1DeXRI 
ENDOS 


& 


KBSTAT»X*80° 
KBSTAT»X* 80° 
END 15C 


PRINT 
XL1°O1° | 
1L1°*35° 


“ALZ(MSG434) 


MSGN(100?,MSGN#L 


WORKN(23,10 
ENDOS 


PRINT 
XLU"16° 


OPTIONsC*2° 
XEQCMD 
OPTIONsC*4* 
END15C 

FLAGS eBiT3 
XEQC MD 

x 

FLAGS eBIT2 
DATA SW,» ME SIND 
DEVICE .X*80° 
ENDISE 
DATASWeMES!ND 
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4247613 
iva 


UNPACK SUBROUTINE CALL 
SETUP OUTPUT AREA POINTER 
INITIALISE COUNTER 


STORE *TOt ADOR IN UNPACK CALL 


_ DECREMENT ODDF LENGTH BY 4 


BRANCH IF NOT YET MINUS 


ADJUST UNPACK 
SUBROUTINE CALL 
FOR SHORT FIELD 


SET ODOF LENGTH CNT TO ZERO 


UNPACK 
FOUR BYTES 
FROM ODDF TO 
QUTPUT AREA 


ADVANCE SOURCE AREA POINTER 


BRANCH IF 
END OF DDDF AREA 


DECREMENT END OF LINE COUNTER 
JUMP If AT END OF LINE 


ADVANCE OUTPUT AREA POINTER 
GO To UNPACK NEXT FOUR BYTES 


BRANCH IF 
CANCEL IF 
REQUESTED 


PRINT 
NEXT LINE 
OF DODF 


CLEAR MESSAGE AREA 


GO TO BUILD NEXT ODDF DISPLAY 
If NOT YET END OF ODDF AREA 


SPACE PRINTER 


BRANCH IF LOOPING COMMAND 
SEQUENCE WITH ERR PRINTING 
BRANCH IF EXECUTE 
AND PRINT RESULTS 
BRANCH IF NO 3340 
ERROR WAS DETECTED 


RESET “IN EXECUTION® INDICATOR 
SET ON MESSAGE INOIC 
BRANCH IF NOT 
5471 ENTRY 
TURN OFF MESSAGE INDIC 


c18-2° 
ATA. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247613; | IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247613 
PAGE 1a! €} PAGE 18A 
C182 3340 FRIENDS TEST - MOD 12 grit 3340 FRIENOS TEST - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | €RR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1001 CO 87 O21A 2083 8 PRINT PRINT ' & 2109 REREEREREEEREREERSAEEEEEESES ESD ED EE SEEEERESERE SESE SER SSE SESE SSS SEESESSS 
1905 01 1005 2084 DC XL1°01° RETURN ~ TO CONTINUE | 2110 * : 
wee a 10be 206? be ee OR CNCL FOR OPT SELECTION G 2111 * 3340 DEVICE END INTERRUPT SUBROUTINE * 
AL2(MSG65443 OR END KEY TO TERMINATE | €3 2112 * * 
ere 2087 * | 2113 REREEREAEREREAERRERRREEAAREE RES ESSE EHEREESESERSEES ESSERE ESSE ESE SEESES SE 
A 2088 8 PRINT PRINT De 2114 * 
100D OL 100D 2089 oc xXLi"oL¢ —€> (EOF 34 08 1EA9 2115 DASDI ST DASDIX+#3, ARR SETUP RETURN ADDRESS 
is6e ae TE6 Sook i bro eae cca LEL3 34 02 37F6 2116 DASDIA ST L5XR2eXR2 SAVE INDEX REGISTER 2 
; 2117 * 
2092 * | €  1€17 30 CS 3800 2118 SNS  SNSeX*CS* SENSE ADAPTER STATUS 
LOEL CO 87 1FAD 2093 ENDISE 8B KEYIN BRANCH TO a 2119 * 
1DE5 OD 02 3607 3661 2094 CLC = KIN+2(3),BLANKS BEGINNING ss 1E18 38 01 3800 2120 TBN = SNS, X*O1* BRANCH IF 
DEE ce a oper aes 2095 BE  BGNO4 IF RETURN KEY | 2 1E1F F2 10 68 2121 JT DASI06 ADAPTER CHECK 
6 2096 CLC KIN#2(3),0PT BRANCH TO - 2122 * : 
10F5 CO 81 13FC 2097 BE SELECT OPTION SELECTION i: 1E22 C2 02 3839 2123 LA  - ORVHK 19 XR2 POINT TO DRIVE 1 WORK AREA 
ieee 0 Ge aent 2881 a CLC KIN#2(3) »MSGOAS4S BRANCH TO | €  1£26 3€ 40 1E9D 2124 MVI  DASIRS#29X*40° PREPARE TO RESET ORV1 SK COMPL 
99 BE LINK END 1E2A 38 08 37FF 2125 TBN = SNS~1 4X*08* BRANCH IF ORIVE 1 
iw ee ny aah ere * : | oO LEZE F2 10 34 2126 JT = DASTO2 SEEK COMPLETE INTERRUPT 
PRINT PRINT . 2127 * 
LE07 O1 LEO? 2102 oc XL1°O1* ENTER 1E31 C2 02 3873 2128 LA DRVWK2 eXR2 POINT TO ORIVE 2 WORK AREA 
1£08 13 1€08 2103 oc IL1*19¢ CORRECT 1835 3C 20 1690 2129 MVI DASIRS+2,X*20° PREPARE TO RESET ORV2 SK COMPL 
1€09 30F8 1E0A 2104 oc AL2(MSG71433) VALUE >. 1€39 38 04 37FF 2130 TBN = SNS—15X*04° BRANCH IF DRIVE 2 
Se re Stas > : eaiee 1E3D F2 10 25 2131 . ST DASIO2 SEEK COMPLETE INTERRUPT 
ee 2132 
2107 * | €)  1€40 38 10 3800 2133 TEN SNS-X*10° BRANCH IF NOT 
1E44 F2 90 43 2134 JF DAS106 oP END INTERRUPT 
2135 * . 
| E> 1847 3C 04 19D 2136 MVI  DASIRS#2,X*"04° PREPARE TO RESET OP END INTRPT 
2137 * 
1E4B C2 02 3839 2138 LA ORVWK1 »XR2 POINT TO ORIVE 1 WORK AREA 
oats tas | (>  LE6F 68 04 00 2139 TBN «=- OF Lu (4 XR2) »DBITS BRANCH IF OP END 
1E52 F2 10 OA 2140 JT DASIO1 EXPECTED FROM ORIVE 1 Por neste se ee 
2141 * 
| &3 1655 C2 02 3873 2142 LA DRVWK2 9 XR2 POINT TO ORIVE 2 WORK AREA 
1659 88 04 00 2143 TBN DFLG(,XR2) eDBITS BRANCH IF OP END 
| -1E5C F2 90 28 214% JF DAS106 EXPECTED FROM ORIVE 2 
| 2145 * 
LESF BB 04 00 2146 DASIOL SBF OFLGO,XR2}.DBITS RESET OP END EXPECTED IND 
1E62 F2 8&7 OB 2147 J DAS 103 GO To CHECK FOR UNIT CHECK 
1'@ 2143 * | 
| 1€65 89 03 00 2149 DASIO2 - TBF DFLG(,XR2),DBIT6*+DBET? BRANCH IF NO SEEK 
ret 1£68 F2 10 1F 2150 JT DASIO6 COMPLETE INTERRUPT EXPECTED 
. | 2151 * ; 
LE6B BF 00 00 3651 2152 SLC DFLGE1sXR20 012 DECREMENT SK COMPLETE EXP CNT 
2153 * ; 
| €3 1670 2C 00 1£70 18 2154 DASIO3 MVC DASIO4¢1¢1) »UCKMSK(.x@2) GET UNIT CK MASK FROM ORV AREA 
2155 * 
| LE75 CL C% 1€7C 2156 TIO DASIO4,X*C4* BR IF NO INTERRUPT PENDING 
| 1E79 F2 87 OB 2157 J DASIO5 
| 2158 
LE7C 39 00 37FF 2159 DASIOG4 TBF SNS-1:%-* BRANCH IF NO 
| (}  1€80 39 08 3800 2160 TBF  SNS»X*08® UNIT CHECK OR 
| 1€84 F2 10 OF 2161 JT DASIO8 NO-OP STATUS 
2162 * 
: €) 1€87 BA 10 00 2163 DASIOS SBN OFLG(sXR2),DBIT3 SET ORIVE ERROR DETECTED FLAG 
2164 
| © 1EBA 3A 10 37E5 2165 DASIO6 SBN  FLAGS»81T3 SET COMMON ERROR DETECTED FLAG 
2166 * 
| 1E8E 3C 7E 1€9D 2167 DASIOT MMVI DASIRS#2,X*7E° RESET AND OISABLE INTERRUPTS 
1692 CO 87 1E9B 2168 5 DASIRS 
: © 2169 * 
1E96 8C 01 iF 3800 2170 DASIO8 MVC ORVSNS(2eXR2) SNS SAVE ADAPTER SENSE INFO 
2171 * 
‘g €> 1€98 F3 C4 00 2172 DASIRS SIG *-*,x°Cet RESET INTERRUPT 
| LESE 35 02 37F6 2173 L L5XR2—XR2 RESTORE INDEX REGISTER 2 
LEA2 Cl C4 1613 2174 TIO DASDIA,X*C4? IS INTERRUPT PENDING 
: @ 2175 * 
1EA6 CO 87 0000 2176 DASDIX 6B *—% RETURN 
\ 
; | : | | 
ATE LSAUGTS . OSNOV7S = 24MARTE PROG ID €18-2 ~ DATE ASAUG75 = OSNOVT75 24MART6 PROG ID C182 
EC NO. 627785 827827 827879 PAGE 18, _EC NO. 827785 827827 827879 PAGE 184 
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mt 


aR LOC GRIECT CabE ADDR STMT SGURCE STATEMENT 


2177 * 
CATE RSAUGTS OSNOWTS POPAR IS 
EC Ne 827785 827827 S278T¢ 
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PART KO. 


PAGE 


PROG 
PASE 


16 
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i 
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4247613 


ig 


Cis—z 


iS 


st, 
“roy 
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C 


be 


ERR LOC GBIECT CODE 


© © 


.. C182 


3 
f*. 
Wax 
LEAA 34 08 
LEAE 3% O02 
7 1EB2 34 02 
1EBS 35 01 
ss GEBR TS 02 
co 
LEBD 8D 02 
. 1EC2 F2 Bl 
LECS 86 02 
_. LeCA F2 82 
c 
LECG 20 92 
{ -1€B2 2 OL 
LED? 38 FC 
£ LEDE 23 FO 
; LEGE 38 FO 
Cc LEES FZ 9C 
“-« ¥EES 3D FE 
_ 1EEA CO Be 
C  i€EE 30 FS 
LEFZ CO 84 
EFS 3D FS 
¢ 1EFA CO 84 
_ AEFE 20 94 
{3 2FO3 F2 87 
«FOB OF 2 
€:  1fo9 34 62 
_ -X#OD 35 OL 
Co LFLI 35 02 
@ 1EL5 Co 87 
ae 
"OATE LSAUGT 
EC NOo 827TES 


ADOR 


1F 18 
37tA 
S7EC 


LFis 
ol 


a2 3664 
&Y 


O2 32651 
3g 


3838 G2 
LFLG OF 


3833 
3837 
3834 
27 


3838 
iFCS 
3837 
LFOD 
3836 
LFOS 


1Fie 03 
ov 


06 
2LELS 


27E4 
aTEC 


acoe 


5 GSnNOv?S 
Bs7azw 
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PART NOQo &297E13 
PAGE 29a 






STMT SOURCE STATEMENT 

217S EAGRERAEHPEESEERSRRERARSEA SORES EAEHTESETE CATES S STRALETES FLEE TESS BLESSES 
2180 = x 
218i * CHECK DECIMAL KEYBOARD ENTRY SUBROUTINE % 
2182 * % 
2183 SERREAEEEES ERT ESE ORESHESSSESEEAS ER TORESH ELE ER ETS GET ERS SHARES AA ESL TEES 
2184 * 

2185 CKDEC ST CKBR+ De ARR SAVE RETURN ADORESS 

2186 $7 LOXRL SXRD SAVE INDEX REG 2 

2287? Sf i. PARS 5 XR2 SAVE INDEX REG 2 

2188 * 

2189 £ OXOR+3eXRI XR1 POINTS TG PARAMETER LEST 

2199 L LéeXR43 eXRZ KRZ POINTS TO FIELD TO BE CHECKED 
2i¢l # 

2192 cic Zt BeKRSFQAKA 

2193 JE CKDOOS PROGRAR 

2igs & 

2195 Cie Z2¢3,XR25 BLANKS BRANCH Ir 

21396 JE CxoCs NO USER ENTRY 

2297 

2iSs MYC BORK: 22 3eRRZ? SAVE VALUES ENTERED 

2139 % 

2206 MYC CKOR13E222515 XR SETUP RETURN FOR INWALTO EHTRY 

2202 3 

2202 CKDOS TEN WORKN,C EOF RETURN TO TACLING 

2263 TBN WORKN—3 C8 OF ROUTINE TF FIELG 

2204 TEN WORKN=2 oC °G* BEING CHECKED DGES NOT CONTAIN 
2205 JAF CKOO6 WALID DECEMAL CHARACTERS 

2204 * 

2207 CLI HOREN ef * 2? RETURN ¥O 

2208 BH CKDOG CALLING ROUTENE 

2299 Li WORKAMKD eo ESE ¥F FYELD 

22190 Bh CKOaG BEING CHECKED a ae ea NPT a EOP Time 
2213 tii WORKN=220°S% iS Not 

2212 8H £K 006 DEC THAR 

2233 % 

2234 MVE CRORGS( She Ble ARDY SETUP RETURN FOR ¥YAaLID FIELG 

2215 5 CxCo6 RETURN YO CALLING ROUTIKE 

2216 * 

2217 CXOOS LA 6( XRLEs RRL N@ USER ENTRY IN FEELS 

2218 ST CKDOR? 32 KRG RETURM FOR DEFAULT PROCESSING 

2219 & : 

2220 CROCS L LPXRE oe RRL RESTORE INDEX REG |b 

2221 i LPYR2Z,KR2 RESTORE INDEX REG 2 

2222 * 

2223 CKOR B Boe RETURN TO CALLING ROUTINE 

2224 © 

LY RAR TS PROG 72 Clo<<¢ 
AE PEIP PAGE 19a 
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CL82 3340 FRIENDS TEST - MOD 12 C182 3340 FRIENDS TEST - MOD 12 
ai 


ERR LOC OBJECT COCE ADDR STHT 


er 
' ERR LOC OBJECT CODE 


LELG 34 
LFID 34 
LFZL 34 
LF25 35 


LEZ D2 
LF2C 34 


LF30 iC 


LF35 75 
LFS8 75 


L&40 BO 
LFS&3 F2 


1646 BT 
LF4B CO 
LFGE GE 
LE54 CO 
RFSB 3A 


LESC 35 
LF6éG 35 


164 CO 


DATE 
EC NOs 


i 


68 
GE 
O2 
ol 


G2 
02 


G0 


02 
OL 


ol 


ET 


LEGT 
3TEA 
37ec 
LFE&T 


O05 
LE GT 


4FS9 60 


02 
64 


OG 366F 


OG 


81 l2 


bi 
82 
Ok 
Bt 
GO 
OL 
O2 


87 


1S AuGTS 
S2¢788 


90 3632 
LFSC 
OO 3652 
Lr4s 
STES 


STEA 
37EC 


0000 


QSNOV TS 
B2782z 


9eee0e 000000600 


Q 


C 
C 


en, 


SOURCE STATEMENT 

2226 EERERERSERERERR SEER CERGECEERERRERERERSESETERERERERERERE SES ESE RESEEEES i 

222T % +; 

2228 * CONVERT DECIMAL ENTRY TO BINARY SUBROUTINE *! 

2229 &! 

2230 RESCKERRERARERHKCEKKKSEKHS CEL EK ERHEKE STE SE EEKE SE LSEREFEKELSERERETEESERKSRIE SKS | 

2231 # ' 

2232 CNVRT ST CNVRTN43, ARR SAVE RETURN ADDRESS 

2233 St LPXRie XR SAVE ENDEX REGISTER 1 

2234 £F LPXRZ,RR2 SAVE ENDEX REGISTER 2 

2235 * 

2236 tL CNVRYNS3—eKRL POINT TO CALL PARAMETERS 

2237 & 

2238 LA Si eXRLEs XR] SETUP ADDRESS FOR 

2239 ST CNVRITNS3 »XR2Z RETURN TCO CALLING ROUTINE 

2240 ¢ 

2241 MYC CAVO2Z+L ELE SOC eXR1? MOVE MASK PARAMETER TO SBN INST: 

2242 © 

2243 t 2¢ XR} eXR2 POINT TO INPUT AREA 

2244 tL 4(eXRLbeXR1I POINT FO GUTPUT AREA 

2245 © 

2246 MVC Ol 2eKRLD EEO INITEALEZE OUTPUT AREA 

2247 *& 

2248 CLI O€,KR25,CEXE BRANCH IF INPUT AREA DOES 

2249 JE CNYO2 NOT CONTAIN DECIMAL CHAR | 

2250 © 

2251 CHYSL $2 O¢3_yXRZ'-D0i (2) CONVERT : 

2252 BM CRYOS CECIMAL 

2233 ALC Of 2eXRED EL INPUT TC 

2254 B CNYGL BIRARY GUTPUT 

Z255 © 

2256 CHYO2 SEN CFLGN »&—-s SET FLAG IF NOT SECISAL INPUT 

2257 © { 

2258 CNYO3 L LPXRIgKRi RESTORE INDEX REGISTER Ll | 

2259 L ELPKR2 oe XRS RESTORE INDEX REGISTER 2 ; 

2266 * i 

2261 CRYRTN 8 5 RETURN TO CALLING ROUTINE | 

2262 ® l 
t 
| 
| 
{ 
i 
| 
| 
{ 

- | 

| 

22HAR TS PROG IO CrEB-2 

827872 PAGE 29 


DATE 


EC NO. 


© 





34 
34 


oD 
F2 


OD 
F2 


co 
46 
13 


08 
02 
02 


OL 
OL 


QL 
i 


a? 


2725 
ci00 


oc 


co 
04 


18 


aT { 


OCLT 


co 


C2 
C2 


co 


87 


GL 
02 


87 


LFAC 
LFAS 
LF&as 


OALC 
os 


6COl 
i? 


O21A 


&Coz 


6006 
5000 


6000 


LSAUGTS 
827785 


ADDR STMT SOURCE STATEMENT 
226% FSRARTSELERREKEEELEEASSERERAESES REEL GSR KS SSEKEKSEHK ERELKS LERSERESSSEPE KS 
2265 * * 
2266 & INTERFACE TO MICROCODE LOACER PROGRAM (SECTION C17} * 
2267 * * 
ce ERSECHKEREERKSERKATAKEL RAGS SKES SESE ALS SRESLLAPSRAKSARESESELE LSKSSROGHSLSES RS 
2265 * 
2270 APL ST MPLX¢3,ARR SAVE RETURN 4S0BDR ESS 
2271 ST MPLXL+3,XR1 SAVE INDEX REGESTER 2 
z272 ST HPLX¥243,XR2 SaVE INDEX REGISTER 2 
2273 2 
LFSC 227% eLc LOREDE235CUT GO TQ LOAD LOASER 
2275 JNE LORLD IF MOT ALREAnY IN STG 
2276 
LESC 2277 CLE LOR+1LE2),C17 BRANCH EF SECTION Cl? 
2278 dE LORGO ¥S A@LREADY Tit MAEN STORAGE 
2279 & 
2280 LORLO 8 PRENY PRINT MESSAGE 
LF8A 2281 Bc KLEPRGGe LOADING SECTION CLP 
LF8B 2282 OC ALLS MSGOEN-HMSGOL 413 
LF8D 2283 oC Ab 2A SGOINE 
LESF 2284 oC ALZCHLTOOE 
2265 # 
GALS 2286 Rive SYPFC E25) ,.COM—] GAVE SECTION PREFACE 
228% * 
2288 a LOAD £6aQ SECTION Cit 
EFGA 2289 oc RLEPRt get 
LFGC 2290 CLT BC RL Z*gcLy: 
2291 8 
2292 LURGO 8 LoRe Zs GO TG SECTION Gi? 
2293 % 
2294 BPLEKL L& —- oo RR} RESTORE 
2295 MPLXZ LA e~t » KR] INDEX REGISTERS 
2296 % 
2297 MPLA & t-3 RETURM TO CALLING ROUTINE 
2298 # 
OSNOVTS 24MAR TE PROS 16 CLG<2 
&27827 S27e8T9 PAGE 204 
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PAGE zai © ; PAGE A 


2 \ 
c1s2 3240 FRIENDS TEST - HOD 12 ‘ | 182 3340 FRIENDS TEST - ROD 12 
‘ ! 
| 


f 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2300 secanececustsnesatatteeeeeanses4SGG8SS044O2OLORESEESES SSNS SSEST SITS t 20586 35 ol 37EA 2368 L LPXR1,XR1 RESTORE INDEX REG i 
2301 * *| 205F 35 02 37EC 2369 L LPXR2eXR2 RESTORE INDEX REG 2 
2302 * PRINTER KEYBOARD (5471) ENTRY ROUTINE | yn 2370 * 
2303 * +! ("2063 Co 87 0000 2371 ENDIN 8 a LAST ENTRY-RETURN 
2304 ® MnaaeenensneseeeeGdEESseeOEsssSeHASEESGETETS SOO ESSESEEESSE SESS SILESS ee 2372 * 
2305 * 
IFAD 2306 KEYIN EQU ¢ © 
LFAD 34 08 2066 2307 ST ENDING 39 ARR SAVE RETURN ADORESS 
i 2308 * 
1FB1 38 04 0208 2309 TBN SBYTEOsSSWwCS IF WE ARE PRINTING 2 
f 1fBS F2 10 05 2310 JT NOSKIP ON THE SYSTEM PRENTER 
Bi 2311 * 
1fB8 CO 87 O21A 2312 8 PRINT SKIP 6 LINES 
1LFBC 16 1FBC 2313 oc XL1°16? FOR READABILITY 
2314 ® 
1fFBD 2315 NOSKIP EQU * © 
1F8D 38 80 365E 2316 TBN OEVICEsX*80* KEYBOARD ENTRY? 
1FC1 CO 90 20F7 2317 BF SWCHIN BRANCH IF DATA SW ENTRY 
1FC5 34 01 37EA 2318 ST LPXR1sXR1 SAVE INDEX REG 1 © 
LFC9 34 02 37EC 2319 st LPXR2eXRZ SAVE INDEX REG 2 
LFCD 31 18 3661 2320 CANHiT t1G BLANKSsPRT LOAD BLANK TO BE PRINTED 
1FD01 F3 18 80 2321 S10 PRINTLePRT PRINT ONE BLANK © 
2322 * . 
1F04 C2 01 3605 2323 LA KIN,XR1 ; 
1FD8 OC 27 36FC 36FD 2324 MVC so KI NENO (40) »KINEND#1 SET INPUT FIELD TO X*40° © 
2325 * 
1FOE F3 10 11 2326 NEXKEY SIO X®*1l' KEY RESET AND TURN PROCEED ON 
1FE1 30 11 35701 2327 SNS  KYSTATsX*11° SAVE STATUS ec 
1FE5 38 80 37C1 2328 IBN KYSTAT,X*80° CHECK FOR 
1fE9 CO 10 20AL 2329 Bt AMOPRN REQUEST KEY 
LFED 39 40 3701 2330 TBF KYSTAT»X*40? CHECK FOR END 
LEFL F2 10 12 2331 JT NGEC OR CANCEL KEV 
LFF 38 20 3701 2332 ‘TBN KYSTATsX*20° CHECK FOR CAN KEY HIT 
LEFB F3 18 41 2333 S1G RET1ePRT RETURN CARRIER © 
1FFB CO 10 1FCD 2334 Bt CANHIT 
LEFF F3 10 07 2335 S10 X*O7* KEY RESET AND ENABLE INTERRUPTS 
2002 CO 87 0216 2336 8 LINK TERMINATE THE PROGRAM @ 
2337 
2006 2338 EQU 
2006 CO 87 0212 2339 8 TEST TEST CONSOLE SWITCHES : © 
200A 38 08 3701 2340 TBN KYSTAT,X°08* CHECK FOR RETURN | 
200E CO 90 1FE1 2341 BF NEXKE Y*3 OR DATA KEY 
2012 28 04 3701 2342 TBN KYSTAT?eX*04* CHECK FOR ' @ 
2016 CO 10 2052 2343 Bt ENDINI RETURN KEY 
201A 39 03 3701 2344 TBF KYSTAT?.X*03* CHECK FOR XLATOR 
201€ F2 10 10 2345 JT NOCK . AND DATA CHECKS OFF ,@ 
2021 CO 87 O21A 2346 8 PRINT PRINT | 
2025 C6 2025 2347 oc xXL1°C6* CONSOLE 
2026 15 2026 2348 oc AL 1(MSG70N-MSG70) KEYBOARD @ 
2027 3006 2028 2349 oc AL2(MSG70N) ERROR 
2029 C171 202A 2350 oc xXL2°*C171° 
2028 CG 87 C222 2351 8 HALT ERROR © 
202F C171 2030 2352 oc XL2°C1 71° HALT 
2353 
2031 2354. equ & eS 
2031 “C 00 00 3700 2355 MVC s-s OL Lp XRLIPPKYSTAT—1 SAVE INPUT 
2036 31 18 3701 2356 LIG KYSTAT.PRT LOAD CHARACTER TO BSE PRINTED 
203A F3 18 80 2357 S10 PRINTIsPRT PRINT ONE CHARACTER eS 
L 203D 02 O1 O01 2358 Lé 1¢,XR1L)_,XR1 INCREMENT COUNTER 
b 2040 34 O1 36FF 2359 ST SAVXR1 eXR1 ALLOW ONLY | 
" 2044 OD O1 36FF 3673 2360 CLC SAVXR1(2),AIN 40 BYTES | 8 
2044 CO 81 2052 2361 BE ENOINE OF INPUT 
‘ 204E CO 87 1LFDE 2362 8 NEXKEY WAIT FOR NEXT ENTRY 
§ 2363 |@ 
< 2052 F3 18 41 2364 SIO RETI,PRT RETURN CARRIER 
4 2055 F3 10 O2 2365 SIQ X01" KEY TURN PROCEED LIGHT OFF 
4 2058 F3 10 06 2366 SIG X*06" sKEY ENABLE CANCEL INTERRUPTS © 
i 2367 * 
i OATE 15AUG75 OSNOV7S 24MARTS | PROG ID c1a-2 <r 15AUGT : 
EC NO. 827785 | 827827 -@278T9 PAGE 22. _€C NO. aories: pall rare. 4 pee ote. 
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ERR LOC OBJECT CODE 


2067 
2068 
206F 
2073 
2076 
207A 


2070 
2081 
2084 
2088 
2088 
208F 
2093 
2096 
209A 
<09D 


DATE 
EC NO. 


3340 FRIENDS TEST - MOD 12 


3c 
30 
38 
F2 
3A 
F2 


39 
F2 
38 
F2 
3A 
38 
F2 
3A 
F3 
co 


00 
ll 
80 
90 
20 
87 


40 
10 
20 


80 
10 
90 
40 
10 
87 


1SAUGTS 
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SGURCE STATEMENT 


SEESEKESESSSLEKSSESSSKSSKSESKKKS SESS KE SLSSKE SELES SESKRESSESES SLE SLSR AS ESTE 
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PART NO. 
PAGE 


CANCEL KEY INTERRUPT PENDING? « 
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s 
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4247613, 


22 | 


es ete ee ie a 


| 
| 
| 
| 
| 
| 
| 
| 
| 
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C182: 


2374 
2375 * 
2376 # PRINTER KEYBOARD (5471) INTERRUPT HANDLING ROUTINE 
2377 * 
2378 SHEREEESEECEEREEEESSESEEEREESERSEE SES ESSE RERERESESESEREE ESE EREREERESESES 
2379 © 
2067 2380 PRKBI EQU * 
2381 MVI KBSTAT,0O CLEAR STATUS INDICATOR 
2382 SNS KYSTAT,X*11° SAVE STATUS 
2383 TEN KYSTAT,X*80!* CHECK FOR REQUEST INTERRUPT 
2384 JF KBENDB BRANCH IF ON 
2385 SBN KBSTAT«X*20°* SET AMOP REQUESTED 
2386 J KBEND 
207D 2387 KBENDOB EQU * 

2388 TBF KYSTAT,X*408 CHECK FOR END 
2389 JT KBEND OR CANCEL KEY 
2390 TBN KYSTAT,X*20° 
2391 JF KBENDA BRANCH IF NO 

' 2392 SBN KBSTATsX*80* SET CANCEL INOICATOR ON 
2393 KBENDA TBN KYSTAT,X*10° END KEY INTERRUPT PENDING? 

- 2394 JF KBEND BRANCH IF NO 

. 2395 SBN KBSTAT.X*40°* SET END INDICATOR ON 
2396 KBEND s1o X*O7* .KEY RESET AND ENABLE INTERRUPTS 
2397 & PRKBI 

OSNOV7TS 24HARTO PROG ID 
827827 8278TS PAGE 
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ERR LOC OBJECT CODE 


© 
© 
C182 
it 
© 
© 
© 20A1 
_.  20A5 
<  -20a9 
_ 20a0 
€) 2082 
2085 
© 
2088 
201 
© 
20€4 
20CA 
©. 20CeE 
© 2003 
2004 
© 2006 
O 2009 
; 2000 
200€ 
20E0 
© 20E4 
20€7 
20E8 
20EF 
© 20F3 
e 
© 
Ls 
@ 
© 
@ 
© 
© 
Oia 
EC NO. 
@ 


{ 
\ 
{ 
! 
i 
| 


os 
eet 


34 
38 
co 


38 
co 


oc 


oD 
F2 


oo 
co 


co 
02 
1F 


08 
20 
10 


01 
90 


18 


01 
Q1 


01 
81 


87 


3097 


F3 


co 


10 
87 


04 
0c19 


co 


87 


F3 10 


38 
co 
co 


co 


40 
10 
87 


87 


20F6 
37E5 
20F3 


0200 
20F3 


0A39 


OALE 
OA 


4001 
20E0 


O21A 


00 
022A 


£002 


06 

37E5 
i3FC 
OB 2F 


cooo0 
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ADOR STMT SOURCE STATEMENT 
2399 
2400 # 
2401 # SUBROUTINE TO LOAD AMOP 
2402 * 
2403 
2404 * 
20A1 2405 AMOPRN EQU * 
2406 st AMOPEN43,ARR 
2407 TBN FLAGS ,BIT2 
2408 BT AMOPEN 
2409 # 
2410 TBN SBYTE5.SSU2F 
24il 8F AMOPEN 
2412 # 
OAL8& 2413 MVC SVPFC (25) ,COM-1 
2414 * 
20DF 2415 cLc AMOPID(2).C19 
2416 JNE AMOPLO 
2417 ©& 
200F 2418 cic AMGP4+1(23 C19 
2419 BE KBAMOP 
2420 * 
2421 AMOPLO B PRINT 
2002 2422 oc XL1*02¢* 
2003 2423 oc 1L2°31° 
2005 2424 oc AL2(MSG66N) 
2425 & 
2426 SI0 X*00* ,KEY 
2427 & 
2428 B LOAD 
2000 2429 oc 4L1°O04* 
200F 2430 C19 oc XL2*0C19°* 
2431 # 
2432 KBAMOP 8 AMOP42 
2433 * : 
2434 S10 X* 06° «KEY 
2435 TEN FLAGS BI TL 
2436 BT SELECT 
2437 8 BGNOS 
2438 * : 
2439 AMOPEN - B 2% 
OSNOVTS 24MART6 
827827 827879 
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PAGE 


Dekeraesetesneteentiteemnesrenerbntoeeenacnesenea a 


4247613 
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RETHESEESEESEREREKESEEER RES AESELERERERSSSSLHVEFSES EE THSSREKS TAKS SHSSESRLE 


CEREEREEREREEEERECESESSERERSSARERAESESREFEPESRERES EAE SESSRESSSELERESEH RSG 


SAVE RETURN ADORESS 


IGNORE INTERRUPT IF 3340 
CMD EXECUTION IS IN PROGRESS 


IGNORE INTERRUPT IF 


SENSE SWITCH 2F IS OFF 


SAVE SECTION PREFACE 


BRANCH IF SECTION C19 


HAS NOT YET BEEN LOADED 


BRANCH IF AMOP 


IS ALREADY IN STORAGE 


PRINT 
SECTION C19 
IS BEING 
LOADED 


DISABLE K/8 INTERRUPTS 


LOAD 
SECTION. 
c1i9 


GO TO AMOP PROGRAN 


ENABLE 5471 INTERRUPTS 
RETURN To OPTION MENU 


IF COMMAND CNTRY IS COMPLETE 
ELSE RESTART SECTION 


RETURN TO CALLING ROUTINE 


PROG I0 
PAGE 


CLe-2— 
224 
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ERR LOC GBJECT CODE 


2GF7 


20FD 
2101 


2105 
2109 
210A 
2108 
2100 
2ihi 


2113 
27 
2110 
2121 
2127 
2120 


2131 
2135 
2139 
2130 
213 
213F 


2141 
2145 
2146 
2147 
2149 
2140 


214F 
2153 
2159 
2L5F 
2165 
2168 
2i7l 
2177 
2173 
2383 
2187 
2188 
2189 
2188 
2isF 
2190 
2191 
2193 
2197 
2198 
2199 
2196 
219F 
21A5 


DATE 
EC NO. 


oc 


38 
co 


co 
06 
23 


2t 


40 
390 


87 


342C 


co 


87 


C1LEO 


30 
oD 
co 
08 
08 
co 


38 
co 
co 
01 
23 


oo 
ol 
gi 
02 


87 


26 
30 
87 


344F 


co 
06 
23 


8¢ 


3478 


co 


87 


CLEO 


30 
08 
08 
08 
08 
08 
08 
08 
6s 
co 
Ol 
38 


oo 
02 
03 
02 
03 
OL 
O1 
Gt 
62 
87 


3483 


co 
02 
33 


87 


34E6 


co 
06 
4C 


87 


3532 


3% 
oc 
C2 


ol 
00 
O1 


36FC 36FD 


3568 
231 


0214 


Q222 


3581 
3581 
20A% 
3605 
3605 
2T70F 


3668 
2228 
O21A 


0214 


0222 


3561 
3605 
36D6 
3607 
3608 
3605 
3606 
3607 
3608 
0214 


O21A 


G2lé 


3585 
3609 
360A 


U5AUGTS 
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3506 


3589 
3567 


3580 
3580 
3581 
3582 
3587 
35B7 
3587 
3587 


3586 


ADDR 


2OF7 


2109 
210A 
210c 


2142 


2130 
213E 
2140 


2145 
2146 
2148 


214E 


2187 
2188 
218A 


2i8F 
2190 
2192 


2197 
2198 
2194 
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PART NO} 
PAGE 


4247613 
23 


ERGEREPEERERRESSESRERSESREESSERERE SER ASSESS SAR ETRERSLA TERE ES EEEE ETAT ES 


KEEKRAERERSEERESESACESRSES EES SRLS ES SHEE SAETEERTE ES SES TERERE SE ESE ETS 


BLANK INPUT BUFFER 


REEKREEREVRKESERESSROPT LON ENTRY SESSAERASHREKSESESREREKRERTEHAHIS BE 


OPTION EMTRY 7 


PRINT 
"USE SWI 
(LEFT KANO SWITCH}® 
HALT 
EC 


READ DATA SWITCHES 
BRANCH IF AMOP 
REQUESTED 
PUT THE 
OPTION INTO THE BUFFER 
RETURN 


REKHHRRSEESSHRESESCAN ARG/WREIVE DATA ENTRY SESE SSSSSSLESESE SESS ESERSS 


STMT SOURCE STATEMENT 

2441 

2442 * ; 
2443 ® DATA SWITCH ENTRY ROUTINE 
2444 & 

2445 

2446 * 

2447 SWCHIN EQU bd 

2448 MVC KENEND( 403 »KINEND+1 
2449 * 

2450 

2451 ¥ 

2452 OPTENT TEN DATASHW,SELOPT 

2453 BF SWARGO 

2454 & 

2455 8 PRINT 

2456 oc XL1L*O6° 

2457 oc ALL(MSGESN-MSG8942 } 
2458 pC AL2¢MSG89N) 

2459 g HALT 

2460 oc KLZ2°Cies? 

2461 2% 

2462 SNS SWITCH, X*00* 

2463 cic SWITCHI2} sX81L82E 
266% BE AMOPRN 

2465 MNZ KIN, SHITCH<1 

2466 MZN KINSF 

2467 8 ENDS 

2468 2 

2469 

2470 * 

2471 SHARGO TSN DATASWs SCNARG 

2472 BF SHG 

2473 8 PRINT 

2474 bc XiLi*o.s 

2475 oc AL1 (MSGSON-MSG90+1? 
2476 oc AL2(MSG9ON} 

2477 © 

2478 8 PRINT 

2479 oc XLL*O6® 

2480 oc ALL CMSGILN~MSG9141} 
2481 oc AL2¢MSGS1N} 

2282 8 HALT 

2483 oc XL2°*C1EO® 

2484 % 

2485 SNS SWITCH ,X*00* 

286 MNZ KIN, SWITCH—i 

2487 HNN KIN4+1, SWITCH-2 
2488 MNZ KIN+2 2SHITCH 

2489 MNN KIN¢3, SWITCH 

2430 MZN KINeF 

2491 ZN KINCL SF 

2492 #ZN KING2 oF 

2493 MZN KIN@30F 

2494 8 PRINT 

2495 oC XLi*OL° 

2496 oc ALL OMSGSZN-MSG9Z4 15 
2497 oc AL2 (HSG92N) 

2498 8B PRINT 

2499 oc xL1*02¢ 

2506 oc AL1(MSG93N-MSG9341 ? 
2501 oc AL2(4SG93N) 

2502 8 PRINT 

2503 BC XL1*06° 

2504 oc AL1(MSG94N-MSG9445 } 
2505 oc AL 2(KSG94N) - 

2506 $T KXRLISAWsXRL 

2507 MYC KINCS¢1) oX 

2508 LA KIN@5 - XRE 

24MARTSE 

827878 


SCAN ARG/WRITE DATA 7 


PRINT 
SENTER SCAN ARG 
OR WRITE DATA® 


PRINT 

tMULTIPLIERCIN DECIMAL} USE 

ALL 4SWITCHES§® 

HALT 

EO HALT 

SENSE SWITCHES | 

CONVERT | 
TO 

EBCOIC 

é | 

MOVE | 

INTO ; 

THE 

BUFFER 

PRINT 

‘ENTER SCAN ARG/WRITE DATAs 

2 BYTES AT A TIME * 


PRINT 
*IN SWITCHES 3 & 42(00) IN 
SWITCHES 1 & 2 


PRINT | 
‘NON OO IN SW*S 162 MEANS ; 
SW°S 364 IGNORED & ENTRY 
TERMINATED? 

SAVE XR1 


MOVE IN FIELO SEPARATOR 
LST DATA GOES INTO KINCS 


PROG i0 
PAGE 


260 





ee? 


__.€182 
ERR LOC 


f*  21a9 
21AD 
21AF 
2163 
2187 
2188 
( —- 21BF 


aN 


213 
21C8 
21CD 
21D2 
2107 
2108 
21E1 
21E5 
21E9 
21E£ 
21F4 
21F9 

- 22D 
{ 2203 
- 2207 

; 2208 

{> 2210 

2216 

2218 

221F 

2223 

2224 

2225 

2227 


2228 
222F 
2233 
2237 
2238 
223F 
2240 
2241 
2243 
2247 
2248 
2249 
2248 
224F 


2251 
2255 
2258 
2261 
2267 
2260 
2273 
2279 
227F 


Cy te 


2285 
2.89 
2280 
2291 
2295 
2298 
229F 
22A3 


9 0 °C 


DATE 
EC wd. 


OBJECT CODE 


co 


87 


CiEO 


30 
30 
co 
35 
co 


48 
48 
48 
48 
3C 
08 
30 
co 
“8 
OF 
48 
3c 
08 
36 
co 
48 
OF 
48 
36 
co 
06 
04 


oo 
00 
04 
Ol 
87 


03 
92 
Ol 
O01 
09 
d2 
09 
04 
Ot 
00 
63 
06 
03 
og 
04 
Ol 
00 
03 
o1 
87 


3536 


co 


38 
co 
38 
co 
cc 
O1 
39 


87 


80 
10 
10 
99 
87 


356F 


co 
06 
20 


87 


3409 


co 


87 


CcieEo 


36 
08 
08 
08 
O38 
08 
08 
08 
08 


38 
co 
30 
co 
oc 
co 
30 
co 


LS5AUG7T5S 
627785 


0222 


35Bi 
3580 
21c3 
3565 
27 0F 


02 358i 
0O 3581 
00 3587 
01 3587 
3585 

3586 358% 
3586 

21-9 

06 3585 
3586 358C 
00 35686 
35B6 

3586 3581 
3586 

2218 

O01 3588 
3586 358C 
OL 3586 
35BA 

023A 


2ias 


3668 
2318 
3668 
2243 
O21A 


UZ1LA 


G222 


3581 
3605 
36D6 
3607 
3608 
3605 
3606 
3607 
3608 


3580 
3580 
3581 
3581 
3587 
3587 
35B7 
3587 


3668 
22C3 
3605 
229F 
36D7 
270F 
36D5 
22681 


3661 


ADDR 


21AE- 


2223 
2224 
2226 


223F 
2240 
2242 


2247 
2248 
224A 


2250 


OSNOVTS 
827827 


EBM MAINTENANCE DIAGNOSTIC PROGRAM 


3340 FRIENOS TEST - MOD 12 


HALT 

XL2*C LEO? 
SWITCH, X *00* 
SWITCH—1 xX" 00° 
SWXXX 


PART NGo 
PAGE 


4247613 
23A 


HALT 

-EO 
READ DATA SWITCHES 
END OF ENTRY ? 


XRLSAV KRY RESTORE XRi 

ENCSH RETURN 

1¢,XRL},SHWITCH MOVE 

O(oXRL),SWITCH DATA 

Ol g XRL} oF INTS 

LE gXRLIGF BUFFER 

STORE »X*00? 

STORE » SWITCH 

STORE, X*asé AN ALPHA CHARACTER ? 

SWXX1 CHECK GTHER ENTRY IF NOT 
Ol eXRL}P eS ELSE CONVERT 

STOREC Le NENE TO 

O( sXR1L},STORE EBCDIC CHAR. 
STORE » X* G08 

STORE, SHITCH 

STORE,X*09° ALPHA CHAR 7? 

SWKX2 CHECK OTHER ENTRY ITF NOT 
Li eXRLPGC ELSE CONVERT 

STORE(1),NINE Ta 

10 9XR1E} STORE EBCDIC CHAR. 

THO,XR1 PUT NEXT DATA 2 POSITIGNS 
PRINT FURTHER RIGHT IN THE BUFFER 
XLE*G6* PRINT 

AL1(MSGS5N-MSG9541) *NEXRT® 

AL2(MSCOSN) 

SHARG 


SLERSSRERSEATERE SINGLE (CORRECTION! ENTRY 2tSsSeHSesetsesees 


DATASWeMULTSW MULTIPLE SWITCH ENTRY OR 
SW1 SINGLE SW FOR CORRECTION ? 
DATASW, HESINO CONTINUE, OPTIONSEND 2 
SINGS 
PRINT PRINT 
XLL‘OL? ®O=CONT INUE, 
ALL (MSG96N-MSG9641? L=ERETURN TO OPTION, 
AL 2{MSG96N) 2=TERMINATE® 
PRINT PRINT 
XLL'C6 °USE 
AL 1(MSG88N-MSG88+ 1} LEFT Sw’ 
AL2(NSC88N} & RESET HALTS 
HALT HALT {CORRECTION ? 
XL2*C1EC* EO 
SHITCHeX*008 READ DATA SWITCHES 
KIN, SWETCH=1 MOWE THE 
KIN@1 ¢SWITCH~32 DATA 
KIN¢2 SWITCH INTO THE 
KIN¢3, SWITCH BUFFER 
KINSF 
KING) oF 
KING2 oF 
KIN+35F 
DATASWeME SIND CONTINUE, OPTION, TERMINATE ? 
SINGFY 
KIN: X*FOS CONTINUE 7 
SINGOP 


KIN+203) 982. ARK S 
ENOSW 

KIN: X*F1? 

SINGN 


STMT SQURCE STATEMENT 
2509 SWARG B 
2510 DC 
2511 SNS 
2512 CLI 
2513 BNH 
2514 L 
2515 B 
2516 * 

2527 SWKXX MNN 
2518 MNZ 
2519 RIZN 
2520 MZN 
2521 MVE 
2522 MNZ 
2523 CLI 
2524 BH 
2525 MZi 
2526 SLC 
252T MAN 
2528 SWXXi AVE 
2529 HNN 
2530 Ciil 
2531 BNH 
2532 MZN 
2533 Sic 
2534 BNN 
2535 SWXX2 A 
2536 8 
2537 oc 
2538 oc 
2539 oc 
2540 8 
2541 * 

2542 

2543 * 

2544 SHO TEN 
2545 BT 
2546 TBN 
2547 BF 
2548 8 
2549 - oc 
2550 oC 
2551 oc 
2552 SINGSW 8 
2553 oC 
2554 DC 
2555 oc 
2556 B 
2557 oC 
2558 *% 

2559 SNS 
2560 MNZ 
2561 MNN 
2562 MNZ 
2563 MNN 
2564 MZN 
2565 ZN 
2566 MZN 
2567 MZN 
2568 ¢ 

2563 TBN 
2570 BF 
2571 cLI 
2572 BNE 
2573 MVC 
2574 8 
2575 SINGOP CLI 
2576 BNE 
24MARTE 

827879 


KF YES BLANK KEVIN BUFFER 
& RETURN 
RETURN TO THE OPTION MENG ? 


PROG ID 


PAGE 234 





Cle< 


! ¢ 
1 €3 
{ 
| 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247613) IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247613 
PAGE €: PAGE 24A 
Ci82 3340 FRIENDS TEST ~— MOD 12 / C182 3340 FRIENDS TEST - MOD 12 
| 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERK LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
22AT OC 02 3607 366A 2577 MVC = K-IN#2(3) ,OPT IF YES PUT OPT IN KEYIN BUFFER Bae! 23A5 OC 04 36DC 3507 2645 MVC BUFCMD-1(5},RDCKD 
22AD CO 87 270F 2578 B ENOSW & RETURN 23AB CO 87 24F3 2646 B Sw2 
2281 30 F2 3605 2579 SINGN CLI -KINSX*F2° TERMINATE ? a) 2647 * 
2265 CO OL 2243 2580 BNE SINGSW i €° 23AF 3D 34 3580 2648 S34CHK CLI SWITCH=2,X*34! READ VERIFY KEY-DATA CMO ? 
2289 OC 02 3607 362A 2581 MVC = KEN#2033 END IF YES PUT END IN KEYIN BUFFER 2383 CO Ol 23C1 2649 BNE S35CHK 
228F CO 87 270F 2582 8 ENUSW & RETURN te xg 2387 OC 04 36DC 3590C 2650 MVC =—- BUFCKE=1 (5 3» ROVKO 
2583 * © 238D CO 87 24F3 2651 8 SH2 
22€3 38 OL 3668 2584 SINGFY TBN DATASW,FFREGD FLAG FIELD ENTRY ? oa 2652 * 
Z2CT CO 10 22CF 2585 BT SINGFE 23C1 30 35 3580 2653 S35CHK CLI SWITCH-1,X%*35* RD COUNT~KEY~DATA DIAGNOSTIC ? 
22CB CO 87 270F 2586 8 ENDSW RETURN 23C5 CO OL 2303 265% BNE S$36CHK 
22CF 3C 00 3586 2587 SINGFF MVE STORE,X*00* 23C9 OC 04% 360C 35E2 2655 HVC BUFCHMO-1(5) ,ROOGN 
2203 08 03 3586 3605 2588 MNN STORE,KIN a, 23CF CO 87 24F3 2656 8 SW2 
2209 30 09 3586 2589 CLI STORE»x*09* AN ALPHA CHARACTER ? i €- 2657 * 
2200 CO 04 22F3 2590 BNH SINGFX CHECK OTHER ENTRY IF NOT .° 2303 3D 36 3580 2658 S36CHK CLI SWITCH-1.X°36° RD & RESET BUFFERED LOG? 
22EL 08 OL 3605 3568 2591 MZN = KEASC ELSE CONVERT Lo 2307 CO O1 23€5 2659 BNE S37CHK 
22E7 OF 00 3586 356C 2592 SLC STORE(1}» NINE TO ia 230B OC 04 36DC 35£6 2660 MVC BUFCMO-1(51,R0L06 
22ED 08 03 3605 3586 2593 MNN KIN, STORE EBCDIC CHAR. Z3E1 CO 87 24F3 2661 8 Sw2 
Z2F3 3C 00 3586 259% SINGEX MMVI STOREX*008 te os 2662 # 
22F7 08 03 35B6 36D6 2595 MNN = STORE» KINGL ms 23€5 30 37 3580 2663 S37CHK CLE SWITCH-1,X*37° RD DEAGNOSTIC SENSE 7? 
22FD 3D 09 3586 2596 CLI STORE,xX*09¢ ALPHA CHAR FROM 2ND Sk ? i 23E9 CO O1 23F7 2664 BNE S38CHK 
2301 CO 04 270F 2597 BNH ENDSW RETURN IF NOT aa 23ED OC 04 36DC 35&8 2665 MVC = BUFCMD-1( 5) »RDXNS 
2305 08 01 3606 3588 2598 MZN  KIN419C ELSE CONVERT | €) 2363 CO 87 24F3 2666 B SH2 
2308 OF OO 3586 358C 2599 SLC STORE(L? NINE TG 2667 * 
2311 08 03 36D6 3586 2600 MNN KIN¢1L,STORE EBCDIC CHAR. re 23F7 30 38 3580 2668 S38CHK CLI SWETCH-1,X'3E° RD RO KEY=DATA ODD ? 
2317 CO 87 270F 2602 B END SW RETURN i 23FB CO O1 2409 2669 BNE  S39CHK : 
2602 * -_ 23FF OC 04 360C 35FO 2670 MVC BUFCMO-1(5}-RDROO 
2603 SHSeeeegseeesesesFULL COMMAND ENTRY S##Seseseeeateeeeeeseee geeenetey eC 2405 CO 8F 24F3 2671 3 SW2 
2604 * | €&> 2672 * 
2318 CO 87 O24 2605 Swi 8 PRINT PRINT 1 2409 3D 39 3580 2673 S39CHK CLI SHITCH=Lxé3y! RO HA & RO SOD 7 
231F 06 231F 2606 oc XLL°Q6¢ *SET CMHND IN SWES be2s AZ 240D CO OL 2438 2674 BNE  S&1CHK 
2320 44 2320 2607 oc ALL (UMSGSON-MSG8O41} DRV @ IN Sw 3 | €, 2411 OC 04 36DC 35F5 2675 MVC) —- BUFC#D=-1(5), RDHAD 
2321 3228 2322 2608 oc AL2UMSG80N) & RST HALTt | 2417 CO 8T 2453 2676 B Sk2 PN pe a ere ee 
2323 CO 87? 0222 2609 8 HALT HALT (1ST SW ENTRY} 2677 * 
2327 C1lEO 2328 2610 oc XL2°*CLEO? EO | €$ 2418 3D 41 3580 2578 S&41CHK CLE SWITCH-1eX*41! WRITE KEY-DATA CMD? 
2611 * or 241F CO O1 2420 2679 BNE 5S42CHK. 
2329 30 00 35B1 2612 SRETRY SNS  SWITCH,X*O0O? READ DATA SWITCHES | 2423 «OC 03 3608 35F9 2680 MVC BUFCKD-2(4).WRKD 
2320 OD O1 3581 3540 2613 CLC SWITCH(2).X8181 BRANCH IF AMOP | €) 2429 CO 87 24F3 2681 8 S¥2 
2333 CO 81 20AL 2614 BE AMOPRN 2682 * 
2337 08 O62 3606 3561 2615 MNZ BUFORV-1—SWITCH PUT THE DRIVE ENTRY | _ 2420 3D 42 3580 2683 S42CHK CLI SWITCH=1,x°¢2! WREFTE HA & RO EVEN ? 
2330 08 OL 3606 3587 2616 MZN = BUFDORV—-19F INTO THE BUFFER | €: 2431 CO O1 243F 2684 NE preaiad eels 
2617 * 2435 OC 04 36DC 35FE 2685 - MV BU i(5}. 
2343 3D 60 3580 2618 S6O0CHK CLE SwWITCH-1ex*60! END COMMAND | © 2438 CO 87 24F3 2686 8 Sw2 
2347 CO 01 2355 2619 BNE S1OCHK 2687 * ; 
2348 OC 02 36D7 362A 2620 MVC BUFORV(3)eEND 243F 30 43 3580 2688 S$43CHK CLI SWITCH<1,X'43° WRETE COUNT KEY-OATA ? 
2351 CO 87 270F 2621 8 ENDSW 24643 CO OL 2451 2689 BNE S44CHK . 
2622 * | €3 2447 OC 04 36DC 3603 2690 MYC = BUFCMD-1 (51 ,WRCKD 
2355 3D 16 3560 2623 SLOCHX CLI SWETCH~1.X*210" SEEK CMC ? | 2440 CO 87 24F3 2691 B Sw2 
2359 CO OL 2367 2624 BNE S20CHK | 2692 ¢ 
2350 OC 03 36DB 35C4 2625 MYC BUFCMD-2(4) »SEEK | €) 2451 30 44 3580 2693 S44CHK CLI SWITCH-1,X'44! WRITE REPEAT KEYDATA 
2363 CO 87 26F3 2626 8 SK2 2455 CO Ol 2463 2694 BNE  S4&S5CHK 
2627 * a 2459 OC 04 360C 3608 2695 HVC BUFCMD-105} eWRREP 
2367 3D 26 3580 2628 S20CHK CLE SWITCH-1,X*20° RECAL CHD ? | © 245F CO 87 24F3 2696 8 SK2 
2368 CO O1 2379 2629 BNE  S$31CHK | 2697 * 
236F OC 04 36D€ 3569 2639 MVC =BUFCMO-1(5} pRECAL C 2463 3D £5 3580 2698 S45CHK CLI SWITCH<2yX*45¢ BREFE RO OOD ? 
2375 CO 87 26F3 2631 8 SH2 / €) 2467 CO 01 2475 2699 BNE  S46CHK 
2632 © ie 2468 OC 04 360C 3600 2700 MVC BUFCND-1 (5) ¢W#RROO 
2379 30 31 3580 2633 S3ICHK CLI SWITCH-1,X°31° READ KEY DATA CMD ? ; 6 2471 CO &7 24F3 2702 B Sw2 
2370 CO 61 2386 2634 BNE S32CHK : & ; 2702 # 
238% OC 03 3608 35CD 2635 MVC 3 =—- BUF CM0-2 (4) sROKD | 2475 3D 46 3580 2703 S46CHK CLE SWITCH=12X'46* WRETE COUNT COMPRESSED DATA ? 
2387 CO 87 246F3 2636 8 SW2 2473 CO OL 2487 2704 BNE S$47CHK 
2637 @ | €") 2470 OC 04 360C 3612 2705 MVC BUFCMD-115) »WRCCO 
2388 30 32 3580 2638 S32CHK CLI SWITCH-1.X*32° READ HA &RO EVEN CMD ? 2423 CO 87 24F3 2706 8 S¥2 
238F CO OL 2390 2639 BNE $33CHK 2707 * 
2393 OC 04 360C 3502 2640 MVC BUFCHD-1(5) »RDHAE = | €3 2487 30 47 3580 2708 S47CHK CLI See arer WRETE HA & RO OND ? 
2399 CO 87 24F3 2641 8 Su2 : 248B CO Gl 2499 2709 BNE  SSiCHK 
2642 & 248F OC 0% 36DC 3617 2710 MVC BUFCMO=-1(5) eWRHAO 
2390 30 33 3560 2643 S33CHK CLI SWITCH-1,x*°33¢ READ COUNT-KEY-DATA CMD 7 €3 «2495 Co 87 246F3 2712 8 SH2 
23AL CO OL 234F 2644 BNE  S34CHK 2712 * 
DATE LSAUGTS OSNGYYS 24HART6 PROG ID C18-2 Ovare 1LS5AUGT75 OSNOVTS 24MAR 76 PROG [D CLe-2 
EC NO. 827785 827827 827879 PAGE 24 o* NO. 827785 827827 827879 PAGE 24h 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


C182 
ERR LOC 


2499 
2490 
e4Al 
24A7 


2448 
24AF 
2483 
2439 


2480 
24C1 
24C5 
24CB 


24CF 
2403 
2407 
2400 


24E1 
24E5 
24E6 
24E7 
24E9 
24ED 
24EF 


24F3 
24F7 
24F8 
24F9 


24FB 
24FF 
2500 
2501 
2503 
2507 


2509 
2500 
2511 
2515 
2519 
2510 


2521 
252T 
2520 
2533 
2539 
253F 
2545 
254B 
2551 


2555 
2559 
255F 
2563 
2567 
2560 
2573 
2579 
2570 
2583 
2587 


DATE 
EC NOW 


OBJECT CODE 


3c 
08 
30 
co 
os 
OF 
08 
3c 
08 
30 
co 


51 
O1 
03 
87 


52 
ol 
04 
87 


53 
O11 
02 
87 


54 
01 
03 
87 


87 


3580 
24AB 
36D0B 
24F 3 


3580 
2480 
360C 
24F3 


35B0 
24CF 
36DA 
24F3 


3560 
24E1 
3608 
24F3 


O21A 


0222 
2329 
O24A 


O21A 


0222 


3581 
3580 
2521 
3581 
2521 
270F 


36DE 
36DF 
36E6 
36ET 
360E 
36DF 
36E6 
36E7 
36E5 


3586 
3586 
3586 
2579 
36E5 
35B6 
36E5 
35B6 
3586 
3586 
2590 


1SauG75 
827785 


3618 


3620 


3623 


3627 


3580 
3580 
3582 
3581 
35B7 
3587 
3587 
3587 


36E5 


35BB 
358C 
3586 


36E6 


ADOR 


3340 FRIENDS TEST — MOD 12 


STMT 


2713 
2714 
2715 
2716 
2717 
2718 


SOURCE STATEMENT 


S51CHK 


& 
S52CHK 


2719 | 


2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 


- 27321 


24E5 
24E6 
24E8 


24EE 


24FT 
24F8 
24FA 


24FF 
2500 
2502 


2508 


OSNOVT5 
827827 


2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2756 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
27TO 
2771 
27T2 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 


* 
SS3CHK © 


* 
S54CHK 


e 
SWERR 


Sw2 


2 
SW2A 


SW28 


24MART6 
827879 


cul 
BNE 
mvc 
8 


Cli 
BNE 
mvC 
8 


cit 
BRE 
MvC 
8 


cL! 
BNE 
MvC 
B 


8 
oc 
oc 
oc 
B 
oc 
8 


8 

oc 
oc 
oc 


B 
oc 
oc 
oc 
8 
oc 


SNS 
cul 
BNE 
cil 
BNE 


MNZ 
ANN 
MNZ 
MNN 
MZN 
MZN 
MZN 
MZN 
MVI 


HVE 
NN 
Cul 
BNH 
MZN 
Sic 
MNN 
MVI 
MNN 
Cut 
BNH 


SWITCH-12X'S2* 
S52CHK 
BUFCMD-2(4)»5 SCRE 
Sw2 


SwiTCH-12X°52° 


‘S$53CHK 


BUFCMD—1 (5) « SCRHE 
Sw2 


SWITCH-12X*S3* 
S54CHK 
BUFCMD-3(3) »SCE 
SW2 


SWI TCH—1 » X° 54? 


SWERR 
BUFCMD—2 (4) » SCHE 
Sk2 


PRINT 

XL1 06° 
AL1(MSG81N-MSGB8141) 
AL2(MSG81N) 

HALT 

XL2°*C 1E0* 

SRETRY 


PRINT 

XLi‘oL? 

AL1 (MSG97N—-MSG97 41) 
ALZ(MSGS7N) 


PRINT 

xLi*o6* 
AL1(MSG82N-MSG8241) 
AL2(MSG82N)} 

HALT 

XL2°*C1iE0* 


SWITCH, X*00* 
SWITCH-1eX°OE* 
SW2A 
SWITCHeX*OC® 
SW2A 

ENDSW 


BUFFFX-2, SKI TCH-1 
BUFFFX=1,SWITCH-1 
BUFHHX-2, SWITCH 
BUFHHX~1, SWITCH 
BUFFFX~2,F 
BUFFFX=1,F 
BUFHHX— 29 F 
BUFHHX=1,.F 
BUFHHX-3, X*FQO® 


STORE» X*00* 
STORE,» BUFHHX-3 
STGRE » X*09° 
Sw28 
BUFHHX~3,C 
STORE C1)» NINE 
BUFHHX—3- STORE 
STORE »X*00° 
STORE, BUFHHX—2 
STORE »X'09° 
SwW3 


*SET FF (HEX) & HH (DEC) 


PUT 


iQ 
Oo 


PART NG. 4247613 18M MAINTENANCE OLAGNOSTIC PROGRAM 


PAGE 2° © 


C182 


ERR LOC 


SCAN READ OR EQUAL ? f 


% 


Cc 


SCAN RD OR HIGH OR EQUAL 7 


ow 
§ 


SCAN EQU ? 


SCAN HIGH OR EQUAL ? 


Pant 


as 


PRINT 
‘INVALID COMMANDO 
ENTRY 3 
RE-ENTER & RESET HALT® 
(1ST SW ENTRY) 


rd 


Oooo cr 


HALT 
EO 
TRY AGAIN 


PRINT 


INTO THE SW'S 
& RESET HALT® 
HALT (2ND SW ENTRY}! 
EO 


0 


READ DATA SWITCHES 
END OF ENTRY ? 


mo oO 


9000 


THE 
FLAG & HEAD 
ENTRY(S) 
INTO 
THE 
BUFFER 


{3 
rage 


AN ALPHA CHARACTER ? 
CHECK OTHER ENTRY IF NOT 
ELSE CONVERT 
TO 


oO 


EBCOIC CHAR. 


Q 


ALPHA CHAR FROM 2ND SW ? 
CARRY ON IF NOT 


Oo © 


PROG ID c18-2 
PAGE 25 


2588 
2591 
2597 


2590 
25A1 
25h2 
2543 
25A5 
25A9 


25A8 
25AF 
2583 
2587 
2588 
258F 


25C3 
25C9 
25CF 


. 2505 


2508 
25€1 


25E7 
25EB 
25EC 
25ED 
25EF 
25F3 


25F5 
25F9 
25F0 
2601 
2605 
2609 


2600 
2613 
2619 


261F 
2625 
2628 


2631 
2635 
2636 
2637 
2639 
2630 


263F 
2643 
2647 
2648 
264F 
2653 


2657 
2650 
2663 


2669 
266F 


OATE 
EC NO} 


OBJECT CODE 


08 01 
OF OO 
08 03 


3F 
3366 
co 87 
C1lEO 


30 00 
3D OE 
co Oh 
3D OC 
co 01 
co 87 


08 02 
o8 03 
08 02 


08 01 
os O1 


36E6 
3586 
36E6 


O21A 


O222 


3582 
3580 
25C3 
3561 
25C3 
270F 


36E1 
36E2 
36E3 


36EL 
36E2 
36E3 


O21A 


0222 


3581 
3580 
2600 
3581 
2600 
2T0F 


36E9 
36EA 
36EB 


36E9 
36EA 
36E8 


O21A 


0222 


3581 
3580 
2657 
3581 
2657 
2706 


36ED 
36EE 
36EF 


36€0 
36EE 


15AUGT75 
827785 


3586 
356C 
3586 


3560 
35B0 
3581 


3587 
3587 
3587 


3580 
3580 
3561 


3587 
3587 
3587 


3589 
358C 
3561 


3587 
3587 


ADOR 


25A1 
25A2 
25A4 


25AA 


25EB 
25EC 
25EE 


25F4 


2635 
2636 
2638 


263E 


OSNOVT5S 
827827 


3340 FRIENDS TEST - MOD 12 


STMT 


2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 * 
2792 

2793 

279% 

2795 

2796 

2797 

2798 # 
2799 SW3A 
2800 

2801 

2802 * 
2803 

280% 

2805 

2806 * 
2807 SW4 
2808 

2809 

2810 

281i 

2812 

2813 * 
2814 

2815 

2816 

2817 

2818 

2819 

2820 * 
2821 SW4A 
2822 

2823 

2824 
2825 
2826 

2827 

2828 * 
2829 SH5 
2830 

2331 

2832 
2833 
2834 
2835 * 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 * 
2847 
2848 


* 
SW3 


2 
SW5A 


24MAR 76 
827879 


MZN 
SLC 
MNN 


8 

oc 
oc 
oc 


B 
oc 
SNS 
CLI 
BNE 
cit 


BNE 
8 


MNZ 
MNN 
MNZ 


MZN 
MZN 
MZN 


B 
oc 
oc 
oc 
8 
oC 


SNS 
CLI 
BNE 
cur 
BNE 


- MNZ 


MANN 
MNZ 


MZN 
MZN 
MZN 


oc 
oc 
oc 


oc 


SNS 
cul 
BNE 
cil 
BNE 


MNZ 
MANN 
ANZ 


MZN 
MZN 


SOURCE STATEMENT 


BUFHHX-2,C 
STORE( 1) ,NINE 
BUFHHX—2 » STORE 


PRINT 

XL1*06* 
AL1(MSG83N-MSG8 341) 
AL2(MSG83N) 

HALT 

XL2‘°*C1E0* 


SWITCH ,X*00* 
Swi TCH-1.X*OE® 
SW3A 
SWITCH,X*OC* 
SW3A 

ENO SW 


BUFCCX-3 e SWITCH-1 
BUFCC X-2 5 SWITCH~2 
BUFCCX-1, SWITCH 


BUFCC X-3 oF 
BUFCCX-2 5 F 
BUFCCX=1¢F 


PRINT 

XL2°O6? 
AL1(MSG84N-HSG8441 } 
AL 2(MSGB4N) 

HALT 

XL2'*C1E0° 


SHITCH,X #008 
SWITCH<2 X*OE* 
SW4A 

SWITCH, X*OC* 
SH4A 

ENDSW 


BUFRRX=-3 eSWITCH-2 
BUFRR X29 SWI FCH-1 
BUFRRX-1, SWITCH 


BUFRRX-35F | 
BUFRRX-20F 
BUFRRX-1,F 


PRINT 

XAL1* OS® 

ALL (MSG85N-MSG85¢12 
AL2(MSGS85N) 

HALT 

XL2°C1E0* 


SWITCH, X*QG* 
SWI TCH=2 »X*OE® 
SW5A 

SWITCH X*OC* 
SW5A 

END SW 


BUFKLX—3 »SWITCH-1 
BUF KLX—2 9 SWE TCH—2 
BUFKLX~1» SHITCH 


BUF KL X-35F 
BUFKLX-2 9 F 


PART NO. 
PAGE 


ELSE CONVERT 
To 
EBCDIC CHAR. 


PRENT 
*SET CC (DEC) 
IN SwW*S123 
& RESET HALT® 
HALT (3RD SW ENTRY} 
EO 


READ DATA SWITCHES 
END OF ENTRY ? 


Put 
THE 
CYLINOER 
ENTRY(S3 
INTO 
THE 
SUFFER 


PRINT 
®*SET RR (DEC) 
IN SWH*S123 
& RESET HALT? 
HALT (4TH Sw ENTRY) 
EG 


READ DATA SWITCHES 
END OF ENTRY ? 


PUT 
THE 
RECORD @ 
ENTRY CS) 
Inta 
THE 
SUFFER 


PRINT 
"SET KL (OECS 
Ye SwW°Si25 
& RESET HALT* 
HALY (5TH SW ENTRY? 
£c 


READ DATA SWITCHES 
END OF ENTRY ? 


PUT 
THE 
KEY LENGTH 
ENTRY(S) 
INTG 

THE 

‘PROG 10 

PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 4247613 _ IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247613 
PAGE 26 «¢ PAGE 264 
C182 3340 FRIENDS TEST — MOD 12 po 182 3340 FRIENDS TEST -— MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ‘- ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2675 08 O1 36EF 35B7 2849 MZN BUFKLX—1 oF BUFFER | oO 2898 ERERERERESEREEESEREREDSERDDESESESSEEESEERSEEEERESESERESS EEEEEERESSES EES 
2850 * 289S * * 
at 87 O21A 2851 SW6 8 PRINT PRINT : 2900 * PRINT / DISPLAY MESSAGES : 
6 6 267F 2852 oc XL1L*06° *SET DL (DEC) es 2901 # 
2680 40 2680 2853 oc AL1(MSGS6N-MSG8641) IN SW*S123 2902 RRKEREREEREERRRESRAREDEEEEREEEERESE SERRE EAR ELEESE SES SESS ESOSHSSAE OSES ES 
geet age 2682 2854 oc AL2(MSG86N) & RESET HALT® C 2903 * 
- 2683 CO 87 0222 2855 8 HALT HALT (6TH SW ENTRY) 1: €% 2713 2904 MSGOl eEQqU ot 
2687 C1LEO 2688 2856 DC XL2°*C1E0* EO ie 2713 D3D6C1C4C9D5C740 2725 2905 MSGOIN OC CLI9*LOADING SECTION C17? 
2857 * |. 2718 E2C5C3E3C9D6D540 2905 
2689 30 00 3581 2858 SNS  SWITCHeX*00* READ DATA SWITCHES | € > 2723 C3F1FT7 2905 
ze00 ap oF 3780 CLI SwWITCH-1eX*OE* END OF ENTRY ? eo 2906 * 
860 BNE SW6A 2726 2907 MSGO2 eEQU) * 
2695 3D OC 3581 2861 CLI SWITCHsX*OC# 2726 C606D940D6E4E307 2751 2908 MSGO2N 0C CL44*FOR OUTPUT ON 5471 PRINTER SET SNS SW 05 ON® 
2699 CO OR 26Al 2862 BNE SW6A - 272E E4E340D060540F5F4 2908 
2690 CO 87 270F 2863 8 END SW vee 2736 FITF1400709C905E3 2908 
2864 * i £ - 273€ C50940E2C5E340E2 2908 
26AL 08 O02 36FL 3580 2865 SW6A MNZ BUFOLX-3,SWITCH-2 Put 4 2746 D5E240E2E640F0F5 2908 
26AT 08 03 36F2 3580 2866 MNN  BUFDLX-2, SWITCH-1 THE 274E 40060540 2908 
26AD 08 O02 36F3 3581 2867 MNZ B6UFOLX-1,SWITCH DATA LENGTH | 2909 * 
2868 * ENTRY (S)} 2752 2910 MSGO3 equ) * 
2683 08 O1 36F1 3587 2869 MZN BUFDLX-3eF INTO ; 2752 F3F3F4F040C6D9C9 276E 2911 MSGO3A oC CL29°3340 FRIENDS TEST = READY' 
2689 08 O1 36F2 3587 2870 MZN  BUFDLX-2,F THE C-2T5A C5DSC4E240E3C5E2 2911 
26B8F 08 O1 36F3 3587 2871 MZN BUFDLX—1leF - BUFFER | "2762 €340404060404040 2911 
2872 * | 276A DICSCIC4ES 2911 
26C5 CO 87 O21A 2873 SW? B PRINT PRINT | (.  276F DTD9ICSEZEZTA 2774 29312 MSGO3B DC CL6*PRESS:* 
2669 06 26C9 2874 oc XL1°06° "SET NN CODEC) |“ 2775 C5D5C440D2C5E840 2792 2913 MSGO3C =O CL30°END KEY - TO TERMINATE SECTIONS 
26CA 43 26CA 2875 oc ALLUMSGB7N-MSG8741) IN SW°S123 hogs 277D 6040E3D640E3C5D9 2913 
26CB 339 26CC 2876 DC AL2(MSG87N) & RESET HALT® C3 2785 D4C9DSC 1E3C540E2 2913 
26CD CO 87 0222 2877 8 HALT HALT (7TH SW ENTRY) oo 278D C5C3E3C9D6D5 2913 
26D1 C1E0 26D2 2878 oc XL2*CLEO® £0 Lg 2793 E4E2C540C306D04D4 2789 2914 MSGO3E OC CL39"USE COMMAND SEQUENCE PREVIOUSLY ENTERED® 
soe, “he 2879 * €} 2798 €105C440E2C5D8E4 2914 Fa ea cee 
2603 30 00 3581 2880 SNS  SwWIETCH,X*00* READ DATA SWITCHES | 27A3 C505C3C540D7D9C5 2914 
2607 30 O€ 3580 2881 CLI SWITCH-ieX*0E* END OF ENTRY ? | 27AB E5C9D6E4E2D3E840 2924 
26DB CO O01 26E8 2882 BNE SWTA €: 2783 C5D5E3CS5D9C5C4% 2914 
cer ae OC 3582 2883 CLI Switch, x*oc® | 2915 * 
2663 CO 01 26E8 2884 BNE SWT7A 27BA 2916 MSG04 equ) 
26E7 CO 87 270F 2885 8 ENDSW | €) 27BA 6040404040C30604 27CB 2917 MSGO4N OC CLi8t= COMMAND ENTRY® 
2886 * | 2702 D&C105C440C5D5E3 2917 
26EB 08 02 36F5 3560 2887 SWTA MNZ BUFNNX-2-SWITCH-1 © PUT | 27CA DIES 2917 
oer 08 03 36F6 3580 2888 MNN BUFNNX-1-SWITCH-1 THE 2918 * : 
oFT O08 02 36F7 3581 2889 MNZ 8UFNNX,SWITCH # OF RECORDS Los 27CC 2919 MSGOS ~“EQU) # 
2890 * ENTRY(S) | 27CC C4D9E540C304C440 27EE 2920 MSGOSN OC CL35*ORV.CMD FF CC HH RR KL OL NN ° 
26FD 08 O1 36FS 3587 2891 MIN BUFNNX=2 eF INTO €}  27D4 40C6C640C3C34040 2920 
2703 08 O1 36F6 3587 2892 MZN  BUFNNX=-LeF THE 27DC C8C8404009094040 2920 
zine Ge o8 ot 3507 2893 sees MZN  - BUFNNX, BUFFER 2TE% D2D34040C4D34040 2920 
6 2894 ENDSW 8 ENOIN RETURN %  27EC 050540 2920 
2895 © | c 2TEF 6060E26060606060 281D 2921 MSGO5A OC CL47*=-S $—-$-—— §- = S$ SSeS CS = SPACED 
2896 * | 2TFT £26060E2606060E2 2921 
| © 27FF 606060E260606082 2921 
2807 606060E2606060E2 2921 
2B0F 606060404D0E 2407E 2921 
| €) 2817 40£207C1C3C550 2921 
2922 © 
| 281E 2923 MSGO06 equ * 
| C}  2B1E E2CSCS40E4E2C5D9 2839 2924 MSGO6N OC CL28"'SEE USERS GUIDE FOR DETAILS.° 
2826 E240CTE4T9C4C540 2924 
Gi ds 282E C6D6D940C4C5E3C1 2924 
| (> 2836 C9D3E248 2924 
2925 * 
| 2926 * 
| © 283A 2927 MSGO9 = EQU. 
283A E609C9E3C540C4C1 2853 2928 MSGOSN OC CL26*WRITE DATA / SCAN ARGUMENT’ 
|  - 2842: €3€1406140E2C3C1 2928 
és | €) 284A 0540C1D9C7TE4D4C5 2928 
2852 05E3 2928 
| 2929 * : 
| @ 2854 2930 MSGOA equ 
2854 C5D5E3C50940C 3D6 2877 2931 oc CL36°ENTER COMMAND €RECAR, SEEK: RDe WRe ° 
DATE LSAUGTS OSMOV7S 24HARTG PROG ID ied © we 15AUGTS5 OSNOVTS 24MARTE PROG I0 C18-2 
EC NO. 827785 827827 827879 PAGE 26 | or NO. 827785 827827 827879 PAGE 26h 
Tre Tes eer Te TT eee | 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247613, | 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOo 4247613 
PAGE 271 ¢2 PAGE 27A 
{ 9, 2 
C182 3340 FRIENDS TEST - MOD 12 7 £182 3340 FRIENDS TEST - MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT i ~ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
4, 
‘ 285C D04D4C105C4404009 2931 Lt 2901 C90540C8C5E74B 2963 
‘ 2864 C5C3C1036840E2C5 2931 2964 * 
286C C5D26B40D9C46840 2931 Oe 2908 2965 MSG15 EQUE 
\ 2874 E6D96840 2931 i ¢ 2908 C505E3C50940C3E8 29F0 2966 pc CL25° ENTER CYL ADOR (000-209) ° 
i 2878 £2C36B4006D940C5 2883 2932 MSGOAN OC CLi2*SC, GR END).? 29EO0 D340C1C4C4D09404D 2966 
2880 05C45D48 2932 ey 25E8 FOFOFO60F2FOF9SD 2966 
2933 * < 29FO 6B 2966 
2884 2934 MSGOB EQU)  # 29F1 4040FOFOFO6GOFOF3 2409 2967 oc CL25* (000-034) FOR CE HOOULE.® 
| 2884 DIC5C306D404C5D5 28A2 2935 MSGOBN OC CL3L*RECOMMEND RECAL OR SEEK FIRST * 29F9 F45040C6060940C3 2967 
: 288C C44009C5C3C10340 2935 £ ZA01 C54004D6C4E4D3C5 2967 
2894 D6D940E2C5C50240 2935 2809 4B 2967 
289C C6C9DIEZE34040 2935 ZACA GOC3FLF24009E305 2A23 2968 oc CL26*® C12 RTN-10 HUST BE RUN IF? 
2936 * i 2A12 60F1F040D04E4E2E3 2968 
28a3 2937 MSGOC eEQqU)# ZALA 40C2C540D9E4D540 2968 
28A3 E2D7C5C3C9C6E84G 28C2 2938 MSGOCN OC CL32*°SPECIFY ORIVE TO BE USED (01-02)" : 2A22 C9C6 2968 
28AB C4D09C9E5C540E 306 2938 i. 2A24 S40E3C8C540D709C5 2A3A 2969 oc CL23* THE PRE-RECORDED DATA ° 
28B3 40C2C540E4E2C5C4 2938 2A2C 60D9C5C306D9C4C5 2969 
28BB 404DF OF 160F OF 25D 2938 ie 2434 C440C4C1E3C140 2969 
2939 * é 2A3B CIEZ40D6E5C5D09E6 2449 2970 MSGI5N CC CLiS*IS OVERWRITTEN. ? 
28C3 2940 MSGOD EQU # 2043 DICIESE3C5D54B 2970 
28C3 C409E540D506E340 2808 2941 MSGODN OC CL22"*DRV NOT DEFINED IN UDT® 2971 * 
28CB C4C5C6C9D5C5C 440 2941 ms ZA4A 2972 MSG16 EQU # 
2803 CID5S40E4C4E3 2941 _ 2ASA CSD5E3C5D0940C8C5 2A63 2973 MSGI6N OC CLZ26*ENTER HEAD ADDR 1(000~-0192-* 
2942 * ; 2A52 C1C440C1C4C40940 2973 
2809 2943 MSGOF EQqU ® { .  2A5A GDFOFOFC6OFOF1FS 2973 
28D9 EZD7C5C3CSCOEB4O 28FD 2944 oc CL37*SPECIFY TYPE OF READ (HAE, HAO, ROO, * 2A62 5048 2973 
28E1 E3E8D7C54006C640 2944 : 2974 * : 
28E9 D9C5C1C4404DC8C1 2944 ¢ 2A64 2975 MSGILT EQU® 
28F1 C56840C8C 1066840 2944 2h64 CS5D5E3C5D940D9C5 2A8i 2976 MSGL7N DC CL3O°ENTER RECORD NUMBER (600-255).-° 
28F9 D9F0066B40 2944 : ZA6C C3D609C440D5E4D4 2978 
28FE C3D2C46B4002C468 2910 2945 MSGOFN DC CL3Z*CKD, KD, YKD, DGN, SNSs OR LOG).° { 2a74 C2C5D94040F OF OFO 2976 
os 2906 40E5D2C46B40C4C7 2945 . ZATC 60F 2F5F55D48 2976 —_— 
290E D56B40E2D5E26840 2945 2977 * 
2916 D60940D3D6C7504B 2945 3 2482 2978 4SG18 EqU) os 
2946 * 2A82 C505E3C5D946002C5 2A9C 2979 MSGi8N OC CL27*°ENTER KEY LENGTH (000-2552-° 
291E 2947 MSG10 EQU# _.  2A8A £84003C5D5C7E3C8 2979 
291E E6D9CIE3C540C905 292D 2948 MSGION OC CLIG*WRETE INHIBITED.* €".  2A92 GO4DFOFOFOGOF2F5S 2979 
2926 CB8CICZCIE3C5C44B 2948 2ASA F5504B 2979 
2949 % 2980 * 
292E 2950 MSG1L equ & ("s 2A9D 2981 MSGI9 EQU # 
292E E2D7C5C3C9C6E840 2955 2951 oc CL4O*SPECIFY TYPE OF WRITE (HAE, HAO, RODe * . 2A9D C5D5E3C50940C4C1i 2AB8 2982 MSGION - OC CLZ28°ENTER DATA LENGTH (0600-2563.° 
2936 E3E8D7TC54006C640 2951 : 7 2AAS £3C140D3C5D05C7TE3 2982 
293E E6D9C9E3C54040CB 2951 , {": 2AAD C8404DFOFOFO6OF2 2982 
2946 C1C56B40C BC 10666 2951 Z2AB5 FSF65D4B 2982 
294E 4009F0D66B404040 2951 : : 2983 * 
2958 C3C3C46640C302C4% 296C 2952 oc CL23°CCD, CKD, KD, OR REP}. * (i;  2AB9 02D34EC4D340E2CE 2ADD 2984 MSGZ0N OC CL37*KL4DR SHOULD NGY BE GREATER THAN 256.° 
295E 634002C4684006N9 2952 2AC1l 0D6E403C440D5D6E3 2984 
2966 4009C507504B40 2952 . 2AC9 40C2C540CTD9YCSCi 2984 
2960 E2C5C540E4E2C509 297C 2953 pc CL16°SEE USERS GUIDE ° €* 2AD1 €3C50940£3C8C 105 2984 
2975 E240C7TE4C9C4C540 2953 2AD9 40F2FSFE4B 2984 
297D C2C5CEDED9C54CES% 298F 2954 MSGLIN OC CL19"BEFGRE USE OF WRHA.¢ 2985 ® 
2985 E2C540DECE40E6D9 2954 i Z2ADE 2986 MSG21 equ # 
298D C8C148 2954 2ADE C5D5E3C509400505 2805 2987 Dc CLOO°ENTER MM VALUE (600-2553. NN@1l = NUMBER ° 
| 2955 © . 2AE6 40E5Ci03E4SC54040 2987 
2990 2956 MSGi2  EQU @ (>  2aEE FOFOFOSOF2F5F550 2987 
2990 E6D9ICECI4OCSEZ4£0 29A2 2957 MSGL2N OC CLIO*WRHA IS INHIBITED. * 2AF6 4840D5054EF 1L407E 2987 
2998 CSDSCBEC9C2ZCSE3CS 2957 ; 2AFE 4005E404C2C50940 2987 
29A0 C44B40 2957 (7: — 2B06 DECE40D9C5C3DED9 2820 2988 HSGZIA oc CL27°OF RECORDS TO BE PROCESSED.® 
2956 * 2BOE C4E240c3D640C2C5 2988 . 
29A3 2959 MSGL3 eQU * _ 2816 400709D6C3C5E2E2 2988 
2943 C505E3C50940E2C3 29C0 2960 MSGI3N OC CL3OENTER SCAN TYPE (E,RE,HE,RHE).® (> 2B1E C5C44B 2988 
29AB CLODS40E3E807C540 2960 - 2B21 40C3C1E4E3C9D6E05 2B2C 2989 oc CL12* CAUTIOMs * 
2983 40CS5c8D09C 56B8CBC5 2960 - 2829 7A404040 2989 
2988 6B09C8C5504B 2960 . {» 2820 E2C5C540E4EZC5D9 284A 2990 MSGZ1N oc CL3O°SEE USERS GUIDE IF NN > 126-2 ° 
2961 * : 2835 E240CT24C9C4C 540 2990 
f 29C1l 2962 MSG14& equ t 2830 €C9C6400505406E40 2990 
i 29C1L C5D5E3C5D940C603 2907 2963 MSGI4N OC CLZ23°ENTER FLAG BYTE IN HEX.® (2845 F1F2F64B4040 2990 = 
4 29C9 C1C740CZE8E3C540 2963 2991 * 
x 
| 
i DATE L5AUuGTS OSNOVTS 24MARTS PROG ID C18-2 DATE 15AUGT5 OSNOV75 24HART6 PROG IO C1a-2° 
EC NO. 827785 827827 827879 PAGE 27 Oo NC. 827785 827827 827879 PAGE 27a 
| © 
f 1a 
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&3 | 
18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247613 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOo 4247613 
PAGE 28 ~Y PAGE 28A 
C182 3340 FRIENDS TEST - MOD 12 £182 3340 FRIENDS TEST = MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT " ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT 
2B4B 2992 MSG23 —EQU * { 2008 CeCeCsceDd9D90203 3015 
2B4B C505E3C5D940E609 2858 2993 MSG23A 0C CLIT*ENTER WRITE DATA-* 2010 €403C40305D5 3015 
2853 C9E3C540C4C 1E3C1 2993 3016 * 
2B5B 60 2993 ie 2016 3017 MSG34 equ + 
2B5C E2C3C10540C109C7 287A 2994 MSG23B  0C CL31°SCAN ARGUMENT (DXYY,OXYY,ETC.) * oe 2016 CODSC9ESCIC1D3 = =©2D1C 3018 MSG34N OC CLT*ENITEAL® 
2864 E4D4C505E3404DC4 2994 | 3019 * 
286C ETESES6BC4ETESES 2894 a ee 2010 3020 MSG35 EQU ot 
2874 68C5E3C34B5040 2994 “~  2DLD D9CSE2ZC9C4E4C103 2024 3021 MSG35N OC CLE*RESIDUALS 
2678 E6C8C5D9C540C440 28A2 2995 oc CL40"WHERE O IS 1-4 DIGIT DECIMAL MULTIPLIER * a 3022 * 
2883 CIEZ40F 160F440C4 2995 e 2025 3023 MSG36 EQU# 
2888 C9C7C9E340C4C5C3 2995 2025 O9CSE2C9C4E4C1D3 2031 3024 MSG36N OC CLi3*RESIDUAL DDDF* 
2693 C9D4C1D340D4E4D3 2995 . 2020 40C4C4C4C6 3024 
2898 €3C9D7D3C9C5D940 2995 €> 3025 * 
2BA3 CLOSC440EBE840C9 2809 2996 MSG23N OC CL39"AND YY IS AN EVEN NUMBER OF HEX DIGITS.? . 2032 3026 MSG37 EQU # 
28AB E240C10540C5E5C5 2996 . 2032 C4D9E540ET4NE4D5 2D4F 3027 MSG37N OC CL30*DRV X UNIT CK OR NO-OP STATUS.¢ 
2BB3 054005E404C 26509 2996 ¢ 2D3A C9E340C 302400609 3027 
2B88B 4006C640C8C5E740 2996 ‘ | 2042 40D5D660F0D740E 2 3027 
2BC3 C4C9CTCIEZE2Z4B 2996 204A E3CLE3E4E248 3027 
2997 » , 3 3028 * 
28CA 2998 MSG27 EQU ot 2050 3029 MSG38 EQU 
2BCA FO4B40D3D606D740 2B8F1 2999 oC CL40'0. LOOP COMMAND SEQUENCE(NORMAL} ‘ . 2050 C9DS5SE3CSD9D9E4D7 2077 3030 oc CL4O*INTERRUPT DID NOT CAUSE INTERRUPT ¢ 
2802 €3D60404C1D5C440 2999 aoe 2058 E340C4C9C4400506 3030 
2BDA E2C5D8E4C505C3C5 2999 — ". 2060 E3400 3C1E4E2C6540 3030 
2BE2 4005D60904C1035D 2999 ; 2068 C9DSESC5D9D9E4D7 303¢ 
2BEA 4040404040404046 2999 | € 2070 £340404040404040 3030 
28F2 F1484003D6D6D740 2C19 3000 DC CL40"1. LOOP - BYPASS ERROR PRINTING t aa 2078 DICS5D5C4C9D5C740 2D8E 3031 MSG3EN OC CL23*PENDING -TIO- CONDITION® 
28FA 6040C2E8DICLEZE2 3000 ; tos 2080 60E3C9D66040C 306 3031 
2C02 40C5D9D906094007 3000 , (> 2088 D5C4C9E3C9De05 3031 
2CO0A 09C9D5E3C9D5C740 3000 Pee 3032 * 
ZCL2 4040404040404040 3000 So 2D08F 3033 MSG39 equ # 
2CLA F24B40D306060740 2C41 3001 OC CL40"2. LOOP = BYPASS ERROR HALTS ‘ i € *  208F CLC4C1D7E3C5D940 2D9C 3034 MSG39N OC CLLG* ADAPTER CHECKe? fe aha 
re 2C22 6040C2ES8D7C1LEZE2 3001 oi 2097 C3C8C5C3024B 3034 
2€2A 40C50909D6D940C8 3001 3035 * 
2C€32 C103E3E240404040 3001 1&3 209D 3036 MSG40 EQU oe 
203A 4040404040404040 3001 2090 CODSE3C5D9D9E4D7 20C2 3037 MSG4ON DC CL3B8*INTERRUPT WITH NO ENTERRUPT BIT IN SNS* 
2042 F34B40D3D6D6D740 2C69 3002 oc CL40"3. LOOP - BYPASS ALL HALTS AND PRINTING ¢ . .  2DA5 £340E6C9E3C84005 3037 
2C4A 6040C2EBD7C1E2E2 3002 | € $  2DAD D640C9D5E3C50909 3037 
2C52 40C€1030340C8C1D3 3002 2085 E4D7E340C2C9E340 3037 
2C5A £3E£240C105C4%40D7 3002 20BD C9D540E205E2 3037 
2C62 D9C9D5E3C9D5C 740 3002 3038 * 
2C6A F44B40C5E7C5C3E% 2691 3003 MSG27N OC CL40°4. EXECUTE AND PRINT RESULTS ‘ 20€3 3039 MSG41 ~ EQU) + 
2072 E3C540C105C440D7 3003 '  20C3 E405C5E7TN7C5C3E3 2006 3040 MSG41N DC CL20'UNEXPECTED INTERRUPTS 
2C7A 09C9D5E3400SC5E2 3003 | €> 20CB C5C440C9D5E3C5D9 3040 
2C82 €403E3E240404040 3003 | 2003 D9E4D7E3 3040 
2C8A 4040404040404040 3003 3041 ® ; 
2C92 C5D5E3C50940C5E7 2CB9 2004 MSG27A OC CL40*ENTER EXECUTION OPTION (0-4)8 1 & 2D07 3042 MSG42 eQU ft 
2C9A C5C3E4E3C9060540 3004 2DD7 CLE3E3C1C3C8D4C5 20F8 3043 HSG42N DC CL34¢°ATTACHMENT BUSY -TIO- PRIOR Ta SEQ? 
2CA2 D6D7E3C9D605404D 3004 / ss 2ODF ~DSE340C2E4E2E840 3043 
2CAA FO060F 45040404040 3004 | € 3  2DE7 60E3C90660400709 3043 
2CB2 4040404040406040 3004 2DEF C9D60940E 3D640E 2 3043 
3005 * 2DF7 C9D6 3043 
2CBA 3006 MSG30 = EQU-Cé® | 3044 * 
2CBA 60460D5D6D0SD4C103 2CCT 3007 MSG3ON OC CLI4*— NORMAL END -* 2DF9 3045 MSG43 EQU 
2CC2 400505044060 3007 '  2DF9 €404C3D940C4C9C4 2£13 3046 MSG43N DC CL27°DOCR OID NOT LGAD CORRECTLY ® 
3008 ¢ Pe 2EOL 4005ND6E34003D6C1 3046 
2€C8 6040C50909D6D940 2605 3009 MSG3LN O0C CL14°= ERROR -* ~" 2E09 €440C306D909C5C3 3046 
Z2CD0 604040404040 3009 Z2ELL €303E8 © 3046 
3010 © : ' | © 3047 
2006 3011 MSG632 EQU + | 2E14 3048 S644 EQU Ed 
2CD6 40E2C9D640404040 2CF7 3012 MSG32N 0c CL34* SIO SNS OIAGNOSTIC SENSE DATAS 2E14 C4C4C4D9 2E17 3049 MSG44N 0C CL4*DDOR® 
2CDE E2D5E24040C4C9CE 3012 ' Oo 3050 ¢ 
2CE6 CTDSD6E2E359C340 3012 -2E18 305% MSG45 EQU # 
2CEE E2C505E2C540C4C1 3012 /  2E18 C4D9E540D5D6E340 2E3D 3052 MSG45N DC CL38°ORV NOT READY GR WMIT CK PRIOR TO SIO. 
2CF@ E3C1 3012 si : € 3 2€20 D9C5C1C4E8400409 3052 
3013 ¢ 2E28 40E405C9E340C3D2 3052 
2CFB 3014 MSG33 EQUt ' s 2E30 400709C9D40940E3 3052 . 
2CFB C4C4C30940C4C4C4 2015 3015 MSG33N OC CL30*DOCR ODOR FFCCCCHHHHRRKLDLOLNN® | (3 2€38 De4soezconess 3052 
2000 0940C6C6C3C3C3C3 3015 | 3053 & 
I 
1 
DATE LSAUGTS CSNOVTS 24HART6 PROG ID C18~2' 15AuG75 O5NOV75 24MART6 PROG ID C1L8~2 
EC NO. 627785 827827 827879 PAGE 28 , EC NO. 827785 , 827827 827879 PAGE 268 
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, £> 
IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NOe 4247613; =i BM MAINTENANCE OIAGNOSTIC PROGRAM ' PART NQ. 4247613 
PAGE 294 €; PAGE 29a 
| C182 3340 FRIENOS TEST - MOD 12 ~.€182 3340 FRIENDS TEST — MOD 12 
ay 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : 
t 
2E3E 3054 MSG46 EQU) ot ac 2FAT 3084 MSG63 EQU. ot 
Z2EZE E2090640C4C9C440 2£62 3055 MSG46N 0C CL37*SIO DID NOT SET ATTACHMENT 8USY ~-TI0-* 2FAT C30604D4C105C440 2FCE 3085 oc CL4O"COMMAND EXECUTION I$ IN PROGRESS. ® 
2E46 D5D6E340E2C5E340 3055 i 2FAF C5E7C5C3E4E3C9D6 3085 
- 2E4€ C1E3E3C1C3C804C5 3055 +  —- 2FB7 0540C9E240C90540 3085 
2E56 D5E340C2E4E2E840 3055 2FBF D7D9D6C709C5E2E2 3085 
2E5E 60E3C90660 3055 2FCT 4840404040404040 3085 
' . 3056 # '  2FCFE 0709C5E2E240C305 2FE1 3086 MSG63N OC CLIO*PRESS CNCL TO HALT.® 
2£63 3057 HSG47 EQU* 2FO? C3D340E30640C8C1 3086 
2E63 E2CSC50240C3D4C% 2E86 3058 MSG47N DC CL36*°SEEK CMD DIO NOT SET SEEK BUSY -TIO-! 2FOF 03£348 3086 
2E68 40C4C9C440D5D6E3 3058 re 3087 * 
2E73 40E2C5E340E2C5C5 3058 2FE2 3088 MSG64 equ) + 
Z2E7TB D240C2E4E2E84060 3058 2FE2 CiC4C1D7E3C50940 3005 3089 MSG64N OC CL36*ADAPTER CK ON READ DIAGNOSTIC SENSE.? 
2€63 E3C9D660 3058 (  2FEA €3024006054009C5 3089 
3059 * . 7 2FF2 C1C440C4C9C 10705 3089 
2E87 3060 MSG48 EQU * ; 2FFA 06E2E3C9C340E2C5 3089 
Z2E87 E2C5SCSD0240C2E4E2 ZEAE 3061 MSG48N OC CL40°SEEK BUSY -TIC~ HITH NO SK IN PROGRESS ¢ {3002 05&2¢54B 3089 
2E8F E84060E3C9D66040 3061 ce 3090 * 
2E97 £6C9E3C840050640 3061 3006 3091 MSG65 £QuU * 
2E9F E20240C905400709 3061 £3006 D7D9C5EZE240D9C5 3031 3092 oc CL44*PRESS RETURN KEY TO RETURN TO COMMAND ENTRY® 
2EAT D6CTD9C5EZE24040 3061 300E €3E409D540D2C5E8 3092 
3062 # : 3016 40E30640D09C5E3E46 3092 
2EAF 3063 MSG49 EQU * £ 301E 090540£30640C306 3092 
ZEAF CLEZEZCLC3C804C5 2ED2 3064 MSG49N oc CL36°ATTACHMENT BUSY -TIO- DID NOT GO aFE® 3026 04D4C105C440C5D5 2092 ' 
2EB7 D5E340C2E4E2E840 3064 302E £309€840 3092 
2FBF 60E3C9066040C4C9 3064 : 3032 060940E3£8D07C540 305F 3093 oc CL46°OR TYPE CPTION TO GO TC OPTIGN SELECTION MENU, ? 
2ECT C440D506E340C706 3064 . o 303A D6D07E3C9060540E3 3093 
2ECF 4006C6C6 3064 : 3042 D640C7D64CE 30646 3093 
3065 * i: 304A D6D7TE3C9DE 2540E2 3093 
2ED3 3066 MSG50 cou ot _ "3052 C503C5C3E3C9D6D5 3093 
2£03 C5E7TOTC5C3E3C5C% 2EF9 3067 MSG5ON 0 CL39*EXPECTED OF END INTERRUPT DID NOT OCCURE ' 305A 4004605052468 3093 
ZEDB 40060740C505C440 3067 {3 3060 06D940E3E8D70540 3078 3094 MSG65N OC C'25*OR TYPE END TO TERMINATE.* 
Berens eis 2EE3 CODSESCS509DS E407 3067 3068 C5D5C440E3DS40E3 309% Patt Se eo ae er FT 
ZEEB £340C4C9C440D5D6 3067 3070 C5D9D4C9D5C1E3C5 3094 
2EF3 €34006C3C3E4D9 3067 3072 48 3094 
3068 * : 3095 © 
2EFA 3069 MSG5i =—s«dQuStiét#* | 3079 3096 MSG66 Ss saEQuSsés 
2tFA CSETOTCSC3E3C5C4 2FOF 3070 MSGS5IN OC CL22*EXPECTED SEEK CCMPLETE® * 3079 5C40E2C5C3E3C9D& 3097 3097 MSG66H oc CL31°* SECTION C19 IS BcING LOADED 3° 
2F02 40£265C50240C306 3070 3082 0540C3F1F940C9E2 3097 
2F0A D4D703C5E3C5 3070 3089 40C2C5C9D5C74003 3097 
3072 * i (3 3091 06C1C4C5C4405C 3097 
2Fi0 3072 MSG52 eQU + 3098 ¢ . 
ZFLO C6C1D3E2C540C9D5 2736 3073 MSG5S2N OC <L39°FALSE INTERRUPT PENDING -TIO- CONDITION? 3098 3099 MSG6T equ of 
2F18 E3CSD9D9E4SD7E340 3073 | €3 3098 05054EF140E2C8D6 30B5 3200 MSGEZN 0 CL30°NN4+1 SHOULD BE BIVISIBLE BY 4.° 
2F20 D7C5SDSC4C9D5C740 3073 BOAO £4030440C 2054004 3200 
2F28 60E3C906S040C306 3073 30A8 CIESCIEZCIC2Z03C5 3100 
2F30 OSC4C9E3C9D6ED5 3073 ¢G 30B0 40C2E840F44B 3100 
367% * 3102 * 
2F37 3075 MSGS3 cEQu ss 3085 3102 MSG68 EQU ot 
2F37 C5ETO7C5C3E3C5C4 2F5B 3076 MSG53N OC CL37*EXPECTED SCAN HIT -TIO- DID NOT OCCUR® 30B6 D9D960F1 3089 3103 MSG68N OC CL4&*RR-]t 
2F3F 40€2C3C10540C8aCS 3076 3104 ¢ 
2F47 E34060E3C9065040 3076 308A 3205 MSG69 EQU ot 
2F4F C4C9C4400506E340 3076 > =: 308A FOFOFIeOFOFSF3 ©—30C0 3106 KSGOON OC «CLT #G01-0430 
2F57 06C3C3E4D9 3076 3107 ¢ 
3077 + 30Ci 3108 MSG7TO EQU 
2FSC 3078 MSG54 = EGU 8 €> - 30C 1 €30605E2D603C540 3006 3109 MSGTON DC —CL22*CONSQLE KEYBOaRE ERROR? 
2F5C E4DSCSETDIC5SC3E3 2FTE 32079 MSGS4K oc CL3S5*UNEXPECTED SCAN HIT -—TIQ- CONDITION® 30CS 02C5E8C206C 1D9C4 3109 
2F64 C5C440E 2C3C10546 3079 , 3002 400509090609 3109 
2F6C C8C9E34060E3C9D6 3079 | © 3110 ¢ 
: 2FT4& 6040C3D0605C4C9E3 3079 } 3007 3112 MSG71E equ Oe 
2FTC C90605 3079 3007 C9DSE5C1D3C9C440 30FE 3112 MSG7IN DC CL4O*INVALIO OPTICGHSEMTER CCRRECY VALUE? 
: _. 3080 # {3 300F D607E3C9060568C5 3112 
4 2E7F 3081 MSGS2 equ 30E7 05E3C50940C30609 3112 
Scar Beyeuee re oeae ees 2F a6 ce MSG62K oc CL40"LOOP CNT = XXXXXXq ERROR CNT = XXXXXXeE 30EF DOC5C3E340E5C1D3 3112 
é 2F87 4O7TECOETETETETET 3082 7 : 
i 2F8F E76840C509090609 3082 G5 30F7 E4cseaso40sc~04e ats Ps 
2F97 40C3D5E3407E40ET 3082 30FF 3114 MSG72 eQU) os 
i 2F9F ETE TETETE7T4B 4040 3082 © = 30FF 4ce0s06060606060 3108 3115 MSG7ZN OC —CL10*¢-==we ane - 
3083 © 3107 6060 3115 
DAYE L5AUGT5 OSNOVTS Z4MART6 PROG IO 18 | © 
é -2) “"OATE 15AUG75 OSNOVTS 24HARTS PROG 10 Ci6-2~ 
EC NO. 9827785 827627 827879 : PAGE 29 | e NO. 827785 827827 827879 PAGE 254 
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IBM MAINTENANCE OIAGNOSTIC PROGRAM 


C162 
ERR LOC 


3109 
31L1 
3119 
3L21 
3129 
313i 
3139 
313A 
3142 


3147 
31L4F 
S157 
BLS 
3167 
316F 
3173 
376 


3182 
3189 
339% 
3199 
BLAL 
31A9 


3180 
3188 
31CO 
31€8 
3100 
31D2 
310A 
3LE2 


31E€86 
31F0 
31F8 
3200 
3208 
3210 
3212 
325A 
3222 
322A 


322¢ 
3234 
323€ 
3244 
324C 


3252 
325A 
3262 
326A 
3272 
327A 
327 
3287 


GATE 
EC NG. 


3340 FRIENOS TEST ~ MOD 12 


OBJECT CODE 


E3E409D540D6C 6C6 
4OE2DSE240E2E6E2 
SOF 2F 150F2F240E3 
0440C 103D3D6E640 
E609C9E3C540D6D7 
C509CL E3CIDED5E2 
40 

E30640C409C 9E5C5 
E240F150F2 


E3£4090540060540 
E2DSE240E2E640F 1 
F640C 6D6D940C 306 
04D4C105C440C505 
EJD9E840E3C8D9D6 
E4C 70840 

C4C 1E3C 140E2E6C9 
E3C3C8C5E240 


EJE4D9D540D6C6C6 
SQE2Z05E240E2E640 
F 2FQO40E30640C 103 
D3D6E640E609C9E3 
C540C8C1L4004607C5 
OSC LE3SC9DEDS5E2 


E2CS5SE340FOC6C6C6 
40C90540C4C 1E3C1 
4OE2E6C9E3C3C8C5 
E240E3D640C8C103 
E340 

D6 DTESCODEDSE 240 
FOGB40F 16B40F268 
40C 1D5C 440F3 


£2C 5E340C 3060404 
€105C440C9D540E2 
E6CSE3C3CBEC5E240 
F 140C 1050 440F 240 
C105C440C4D9C9ES 
C540 

C90540€ 2E6C 9E3C3 
C840F340C 1050440 
O9CSE2C5E340C8C1 
D3E3 


C9D5E5C103C09C440 
CSDS5E3D9E8484009 
C560C505E3C50940 
C105C44009C5E2C5 
E340C8C 1D 33 


€ 2CSE34C0C603C1CT 
4060C8C5E76040C9 
0540E2E6C9E3C3C8 
C5E240F 140C1D5C4 
SOF 240C 1056 44040 
C8CS5C1C440 

60C4C5C3C904C103 
6040C9D0540E2E6C9 


ESAUGTS 


827785 827827 


ACCOR 


3109 
3139 


3146 


3147 
3172 


STMT 


3116 
3117 
3118 
3118 
3118 
3118 
3116 
3118 
3118 
3119 
3119 
3120 
3121 
3122 
3122 
3122 
3122 


. 3122 


3180 


31861 
SLAF 


3180 
32D1 


31E7 


31LEB 
3211 


322B 


322C 


3251 


3252 
327E 


32aA 


OSNOV7TS 


3122 
3123 
3123 
3124 
3125 
3126 
3126 
3126 
3126 
3126 
3126 
3127 
3128 
3129 
3129 
3129 
3129 
3129 
3130 
3130 
3130 
313% 
3132 
3133 
3133 
3133 
3133 
3133 
3133 
3134 
3134 
3134 
3136 
3135 
3136 
3137 
3137 
3137 
3137 
3137 
3138 
3139 
31490 
3240 
3140 
3140 
3240 
3246 
3141 
3841 


SOURCE STATEMENT 


* 
4SG73 EQU * 


MSG73N OC 


2s 
HSGT4 EQu 


® 
oc CL44* TURN 


MSG74N = OC 
® 


MSG75 EQU * 
MSGT5N oc 


KMSGT7S —EQU 


oc CL34*SET OFFF IN DATA SWITCHES TO HALT * 


MSGT7ON oc 


MSG80 £EQU 


oc CL92*SET COMMAND IN SWITCHES 1 AND 2 AND DRIVE * 


MSGB8ON DC 


= 


MSGEL equ # 
MSGG6ILH oc 


& 
MSG82 EQU ot 
oc 


HMSG82N oc 


24MART6 
827879 


CL1i4"DATA 


CL47¢° TURN 


CLi3*TO ORIVES 162¢ 


DC = CL49° TURN OFF SNS SWS 21622 TO ALLOW WRITE OPERATIONS * 
| 

i 

| 

} 

| 

SWITCHES® 
| 

{ 

1 


CL22°OPTIONS Os le 2s AND 3¢ 


PART NO. 
PAGE 


4247613 
30 


ON SNS SW 16 FOR COMMAND ENTRY THROUGH * 


OFF SNS SW 20 TO ALLOW WRETE HA OPERATIONS® 


CL26°IN SWITCH 3 AND RESET HALTe 


CL3S* INVALIO ENTRY. RE-ENTER AND RESET HALT? 


CL45°SET FLAG -HEX=- IN SWITCHES 1 AND 2 AND HEAD ° 


CL44*=-DECIMAL~ IN SWITCHES 3 AND & AND RESET HALT® 


PROG ID Ci18~2 
PAGE 30 


@ © 


| 


oS 





© 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247613 
@ PAGE 30A 
et ise 3340 FRIENDS TEST - MOD 12 
" ERR LOC OBSECT CODE ADDR STMT SGURCE STATEMENT ; 
(> 328F £3C3C8C5E240F340 3142 
" -3297 €1D5C440F440C105 3141 
..  329F C440D9C5E2C5E340 314i 
{2 32A7 C8C1D3E3 3142 
3142 * 
ee 3248 3143 M5683 EQUSCét 
«,  32AB E2C5E340C3E8D3C9 3265 3144 OC CL27*SET CYLINDER -DECIMAL- IN * 
" --32B3 05C4C5D9404060C4 3144 
.. 3288 €5C3C9D4C1D36040 3144 
(> 32¢3 c9D540 3144 
/ —«- 3206 EZESCOESC3ICBCSEZ 32E8 3145 MSGB3N DC  CL35*SWITCHES 1s 2. AND 3 AND RESET HALT? 
.  22CE 40F16840F26840C1 3145 
é 3206 05C440F340C 1D5C4 3145 
i ~  - B2DE 40D9C5E2C5E340C8 3145 
32E6 C103E3 3145 
© 3146 * 
32E9 3147 MSG84 EQU # 
_.  32£9 £2C5E340D9C5C3D6 33046 3148 DC = CL28*SET FS" GRD NO. -DECIMAL~ IN * 
€ +  32F1 09C4400506484060 3148 
" -B2F9 C4C5C3C9D4C 10360 3148 
_ 330% 40690540 3148 
() 3305 EZESC9ESC3CRCSEZ 3327 3149 MSGB4N DC —CL35*SWIT. .% 1» 2) AND 3 AND RESET KALT® 
“+ 330D 40F16840F26B40C1 3149 
3315 05C440F340C105C4 3149 
C} 3310 40D9C5£2C5£340C8 3249 
3325 €1D3E3 3149 
3150 © 
es 3328 3151 MSG@S EQU ¢& 
3328 E2C5E340D2C5E840 3343 3152 OC CL28*SET KEY LENGTH -~DECIMAL~ IN ¢ 
3330 D3C5D5C 7E3C 84060 3252 
€> 3338 C4C5C3C9D4C10360 3252 
3340 40090540 3152 
, 33% EZE6CIE3C3CBC5E2 3366 3153 MSGBSN OC CL35*°SHITCHES 1. 2- AND 3 AND RESET HALT 
(> 334C- 40F 16840F 2684001 3153 
3354 05C440F340C1D5C4 3153 
_  335C 40D9C5E2C5E340C8 3153 
> 3364 C1D3E3 3153 
3154 * 
3367 3155 MSG86 = =FQU os 
(> 3367 E2C5E340C4C1E3C1 3383 3156 OC = CL29"SET DATA LENGTH -DECIMAL- In * 
336F 4003C505C7E3C840 3156 
3377 60C4C5C3C9D4C103 3156 ; 
€) 337F 6040c90540 3156 } 
3384 E2E6CSE3C3CEC5SE2 33A6 3157 NSGE6N DC CL3S*SHITCHES Le 2— AND 3 AND RESET HALT* 
338C 4OF16B40F 26840C1 3157 . 
€> 3394 D5C440F340C105C4 3157 
339C 40D9C5E2C5E340C8 3157 
33A% C1D3E3 3157 
© 3158 ¢ 
33a7 3159 MSG8T = EQU 
33A7 £2C5E340D5064840 33C6 3160 DC =CL32*SET NO. OF RECORDS -DECIMAL- IN * 
€3 33AF DeCesoD9c5c30609 3160 
33B7 C4E24060C4C5C3C9 3160 
33BF 04C1036040C9D540 3160 
€) -33C7 E2ESCOESC3CBCS5E2 3369 3161 MSGB7N OC —CL3S*SWITCHES 1, 29 AND 3 AND RESET HALT* 
33CF 40F16840F26840C1 3161 
3307 05C440F340C 1D5C4 3161 
©} -33DF 4009C5£2c5E340C8 3261 
337 C103E3 3161 
3162 * | 
© 33EA 3163 MSG88 0 EQUUS 
33EA EGEZC54003C5COE3 3409 3164 MSGBEN DC CL32*USE LEFT SWITCHES AtD RESET HALT? 
33F2 40€2E6C9E3C3C8C5 3164 
€) —.33FA £240C105C44009C5 3164 
3402 E2CSE340C8C103E3 3164 
3165 * 
© 3404 3166 MSG8E9 0 EQUSCét* 
340K ESEZCSSOEZEGC9ES 3420 3167 MSGESN DC CL35°USE SWITCH NO. 2 -LEFT HAND SWITCH? 
se 15AUG7S OSNOV75 24MART6 PROG [0 CLE~2 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247613 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247613 
PAGE 31. PAGE 31a 
C182 3340 FRIENDS TEST - MOD 12 ao 3340 FRIENOS TEST - MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 3 
3412 C3C84005D64640F1 3167 f 3580 05E3D9C9C5E24007 3195 
341A 406003C5C6E340C8 3167 3588 C50940 3195 ; pees 
3422 CLOSC44OE2ZEOC9ES 3167 .  358B C3D60404C105C440 35aF 3196 MSGI7N DC  CL37*°COMMAND » ENTER -OEOC= NOWe OTHERWIS 
342A C3C860 3167 f 3593 6B40C505E3C50940 3196 
3168 + 359B 60F0C5FOC3604005 3196 
342D 3169 MSG90=—s«sEQUSt 3583 06E6484006E3C8C5 3196 
3420 CSOSE3CSD940E2ZC3 344F 3170 MSG9ON OC CL35*ENTER SCAN ARGUMENT OR WRITE DATA, ° | C: 35AB D9E6CIEZCS 3196 
3435 C10540C1D9C7E4D4 3170 3197 « 
3430 C5D5E340D60940E6 3170 
3445 O9CIESCS40C4C1E3 3170 eS 
3442 CL6B40 3170 
3171 * 
3450 3172 MSG91 = EQU. st 
3450 CSE4D3E3C9D703C9 3478 3173 MSGSIN DC CL4I*MULTIPLIER -DECIMAL-. USE ALL & SWITCHES* . 
3458 C5094060C4C5C3C9 3173 
3460 04C103604B4040E4 3173 ' 
3468 E2C540C1D30340F4 3173 
3470 40E2E6C9E3C3C8CS 3173 pe 
3478 E2 3173 | 
3174 * . 
3479 3175 MSG92. 0 EQU.) 
3479 C5D5E3C5SD940E2C3 3498 3176 OC CL32*ENTER SCAN ARGUMENT/WRITE DATA, ° ' 
3481 C10540C 109C7E4D4 3176 . 
3489 CSD5E361E6D9C9E3 3176 
3491 C540C4C1E3C16840 3176 ' @ 
3499 EZEGD6G0C2ESE3C5 3483 3177 MSG92N OC CL27*TWO BYTES -HEX- AT A TIMES @ | 
34Al E24060C8C5E76040 3177 
34A9 C1E340C140E3C904 3177 
3481 C55E40 3177 
3178 
3484 3179 MSG93 EQUS ie @ 
~  -'34B4 C9D540E2ZE6CSE3C3 34C8 3180 DC CiL21°IN SWITCHES 3 AND 4 8 : 
34BC C8C5E240F 340C1D5 3180 
34C& C440F44B40 3180 mS) 
34C9 DTESES40C140E9CS 34E6 3181 MSG93N OC CL30*PUT A ZERO IN SWITCHES 1 AND 2° : 
3401 090640C90540E2E6 3181 
3409 C9E3C3CBC5E240F 1 3181 ' © 
34E1 400105C440F2 3181 
3182 * ; 
34E7 3183 MSG9® 8 =EQU ® ' © 
34ET EZE6C9E3C3CB40F1 3509 3186 DC CL35*SWITCH 1 NON ZERO TERMINATES ENTRY * | 
34EF 40D5D60540E9C5D9 3184 
34F7 0640E3C50904C905 3184 ' © 
34FF CLE3C5E240C5D5E3 3184 
3507 D9EB40 3184 
350A C1OSC440C32CLESE2 3532 3185 MSG94N DC CL4L*AND CAUSES SWITCHES 3 AND 4 TO BE IGNOREDE ' @ 
3512 C5E240E2E6C9E3C3 3185 | 
351A C8C5E240F340C105 3185 | 
3522 C440F440E30640C2 3185 | © 
3524 C540C9C7D5D6D9C5 3185 
3532 Ce 3165 
3186 ) 
3533 3187 MSG95 EQqU) & | 
3533 OSCSETES 3536 3188 MSG95N OC CL4&*KEXxT®? 
3189 © | © 
3537 3190 MSG96 = EQU.Sst 
3537 FOTEC3D6D5E3C9D5 355C 3191 OC CL3S*O=CONTINUE COMMAND ENTRY, LeRETURN TO * | 
353F E4C540C3D6D4D4C1 3191 | @ 
3547 05C440C5D5E309E8 3191 | 
354F 6B40F 1 7ED9C5E3E4 319% 
3557 09054030640 3191 © 
3550 0607E3C906054068 356F 3192 MSG96N DC CLI9*OPTION ,2=TERMINATE® | 
3565 F27EE3C5D9D4C905 3192 
3560 C1E3C5 3192 - |g 
3193 @ 
3570 3194 MSG97 ss EQUSst | 
3570 E30640C1E506C9C4 358A 3195 OC CL27*°TG AVOID ALL 7 ENTRIES PER * i © 
3578 40C1030340F740C5 3195 : 
1@ 
DATE 1S5AUG75  OSNOV75 24mAR76 PROG ID C18-2' “pate 1S5AUG75 = OSNOVTS =—s-24MAR76 PROG ID Ci8-2 
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C182 


3340 FRIENDS TEST = MOD 12 


ERR LOC OBJECT CODE 


3580 
3582 
35B4 
3586 
3587 
3588 
3589 
3586 
358C 
3580 
35BF 


35C1 
35€5 
35CA 
35CE 
3503 
3508 
3500 
35E2 
35ET 
30EC 
35F1 


35F6 
35Fa 
35FF 
3604 
3609 
360E 
3623 


3618 
361¢C 
3621 
3624 
3628 


3628 
3631 
3633 
3636 
3639 
363C 
363F 
3642 
3645 
3648 
364E 
3650 
3652 
3654 
3656 


DATE 
EC AO. 


t 
we 


OF 
0002 


09 
OFFF 
$18} 


E2C5CS5b2 

DSC5C3C 103 
09C4D2C4 

O9C4cscics 
O09C4C3D2C4 
D9OC4ESD2C4 
O9C4C4C705 
D9OC4D3D6C7 
O9C4E205E2 
O9C409FOD6 
D9C4C8C106 


E60902C4 

E6D9C8C1IC5 
E609C 30204 
E609D9C507 
E6D909F 006 
E6D9C3C3C4 
E609C8C 106 


E2C3D9C5 
E2C309C8CsS 
E2c3csS 
E€2c3cecs 
C505c4 


FOFOFOFOFOFO 


FOF 

FOFOFS 
FOF LF6 
FOF4F? 
FOFSF4 
FOF OF2 
F2F0FS 
F2FSF6 


FOF SF OFOFSF9 


0000 
0001 
0004 
0014 
0028 


15AUG75 
827785 


OSNOV? 
&27827 


ADDR 


3581 
3583 
3585 
35B6 
3587 
3588 
35BA 
3588 
3586C 
35BE 
35C0 


35C4 
35C9 
25C0 
3502 
3507 
350C€ 
35E1 
35E6 
35EB 
35F0 
35F5 


35F9 
35FE 
3603 
3608 
3600 
3612 
3617 


3618 
3620 
3623 
3627 
362A 


3630 
3632 
3635 
3638 
3638 
363€ 
3641 
3644 
3647 
3640 
364F 
3651 
3653 
3655 
3657? 


5 




















PART NO. 
PAGE 





424761 
32 ©> 


C182 

STMT SOURCE STATEMENT “€RR LOC 
3195 © | "* 3658 
3200 CRSESHESS SESE S £4945 08 O4446SSEEES $EEEEEEESEEEETEEETEEEEEEEREEE4$9604448 365A 
3201 * *  365C 
3202 * CONSTANTS AND RESERVED STORAGE AREAS * (3 365€ 
3203 ¢ e “". 3656 
3204 FECES S8SSESESEEEEEESESEEEESEEE SSS 808940624948 E6ERE 00090050058 00808 54408 oe 3662 
3205 ¢ C3665 
3206 * 3668 
3207 #——-~~----.— —~SWITCH ENTRY CONSTANTS AND STORAGE a----~--- 366B 
3208 ¢ E3  -366c 
3209 @ 
3210 SWITCH DS  xL2 _ 366E 
3211 CNTR oS = xt2 SCAN ARGSBUFFER POSITION C3 3670 
3212 XRISAV. DS ~~ XL2 COUNTER / 3672 
3213 STORE OS XLI _ 3674 
3214 F OC —s XL OF* €: (3676 
3215 x OC = CLA *x® EBCDIC x BTC 
3216 Two oc 8 sdrL2*2 3682 
3217 € oC = XL #0C* (© 
3218 NINE OC = XL "09° | 3684 
3219 LPEND) «= OC—Os€=XL2° OF FF* ». 3688 
3220 X8181 =0C = XL. 2* 82818 DATA SW AMOP ENTRY {> 3690 
3221 . 3698 
3222 OEOC IN THE DATA SWITCHES DURING A COMMANDO i py BeA0 
3223 © ENTAY SEQUENCE TAKES YOU TO THE END OF {2 36a8 
3226 THAT SEQUENCE 36AC 
3225 ¢ ; 
3226 SEEK OC CL4*SeEK® COMMAND INFUT 10 | 36AD 
3227 RECAL = 0C —- CLS*RECAL* COMMAND INPUT 20 | 
3228 RDKD DC = CL&*ROKDE COMMAND INPUT 31 3605 
3229 RDHAE = «DC = CLS *RDHAE* COMMAND INPUT 32 € 3600 
3230 RDCKD §=0C ss CLS * ROCKO COMMAND INPUT 33 36E5 
3231 RDVKD = DE CLS*RDVKD® COMMAND INPUT 36 : 36ED 
3232 RODGN OC CLS5*RDDGN® COMMAND INPUT 35 | €}  36F5 
3233 ROLOG §=©0C = CLS * RDLOG* COMMAND INPUT 36 | 36FD 
3234 RDXNS DC CL5*ROSNS® COMMAND INPUT 37 
3235 ROROD =60C )~— ss CLS *RDROO' COMMAND ENPUT 38 l@ 
3236 RDHAQ =0C CCL * ROAD COMMAND INPUT 39 
3237 | 
3238 WRKD OC = CL4*WRKD® COMMAND INPUT 42 © 
3239 WRHAE = 0C CLS*WRHAE* COMMAND INPUT 42 | 
3240 WRCKD = 0C CL * WRCKD® COMMAND INPUT 43 | 
3241 WRREP OC CLS*WRREP* COMMAND INPUT 46 8 
3242 WRROD =©0C- —s CLS * WRROOS COMMAND INPUT 45 | 
3243 WRCCO OC CL5*WRCCD® COMMAND INPUT 46 | 36FE 
3244 WRHAD = DCC CLS * WHOS COMMAND INPUT 47 : € 3700 
3245 9 | 3702 
3246 SCRE DC =: CL@* SCRE COMMAND INPUT 51 3703 
3247 SCRHE OC CLS5*SCRHE® COMMAND INPUT 52 3705 
3248 SCE oC =—s-« CL 3 *SCE* COMMAND INPUT 53 | 3707 
3249 SCHE DC —s- CL&* SCHE® COMMAND INPUT 54 . 3709 
3250 END OC CL3*END® COMMAND INPUT 60 , © 3708 
3252 D000 OC CL6*N000000 3700 
3253 001 DC Os CL." 01 | @ 
3254 D008 oc CL 3°008* 
3255 D016 DC = CL3 "0168 370F 
3256 D047 DC = CL3 047° | 3721 
3257 DO54 OC = CL 3 #0548 3713 
3258 0062 OC = CL3*062¢* 3715 
3259 0209 OC = CL3*209° 1 ©) 3717 
3260 D256 OC CL3*2568 3719 
3261 0999 BC =: CL6* 9999998 | 3718 
3262 10 OC =—_«IL2* 08 ss | & 3710 
3263 IR oc 8 <IL2*2°8 371F 
3264 14 pC 8k 24s | 3720 
3265 120 oC =—-«TL2"20° | & 3721 
3266 140 CC = «IL 2" 40" 3723 

{ 
24MARTG PROG I0 c1e-2 Oot 
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OBJECT CODE ADDR 
0102 3659 
0002 3658 
8000 365D 
oo 365E 
404040 3661 
EVETE? 3664 
C304C4 3667 
O6D7E3 366A 
oo 3668 
2067 366D 
1E0F 366F 
3801 3671 
36FC 3673 
3790 3675 
FOFOFOFOFOFO 3678 
FOFOFOFOFOFO 3681 
FOFO 3633 
3684 
3687 
£040404040404040 36A8 
4040404040404040 
4040404040404040 
4040404040404040 
40404040 
40 36AC 
36AD 
3604 
3605 
4040404040404040 36FC 
4040404040404040 
4040404040404040 
4040404040404040 
4£040404040404040 
40 36F0 
3607 
3600 
36E0 
36E4 
36EB8 
36EC 
36F0 
36F4 
36F7 
0000 36FF 
oo0o 3701 
00 3702 
3F00 3704 
3706 
4000 3708 
6800 3T0A 
8000 370C 
0008 370E 
370F 
o8sd2 3710 
1802 3712 
2802 3714 
A802 3716 
6FOB 3718 
O20F 371A 
SBOE 371C 
O8GE 371E 
371LF 
02 3720 
2005 3722 
0003 3724 
15AUG7S OSNOV75S 
827785 827827 
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3340 FRIENDS TEST - MOD 12 


STMT 


3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3287 
3287 
3287 
3287 
3288 
3289 
3290 
3291 
3292 
3292 
3292 
3292 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 


3303 


3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 


SOURCE STATEMENT 


1258 
SNS23 
X8000 
DEVICE 
BLANKS 
XXX 
CMD 
OPT 
DATASW 
PRKBIa 
s 
DASOI3a 
RD SNSd 
AIN 
4SGNa 
LOOPCT 
ERRCNT 
CMOCNT 
INPUT 


INPUTN 


* 


INSAVE 
INSAVN 
KIN 

KINEND 


BUFORY 
BUFCMD 
BUFFFX 
BUFCCX 
BUFHHX 


BUF KLX 
BUFOLX 
BUFNNX 
SAVXR1 
KYSTAT 
KBSTAT 
IDOCR 
10DDR 
IDDDR1i 
1oD0R2] 
IDDDR3 
2 

PRIV 

s 
RESET 


S¥PREQ 


24MART6 
827879 


cc 
OC 
oc 


DC 
EQU 


EQU 


oc 

EQu 
EQU 
EQu 
EQU 


. EQU 
BUFRRX ~- 


EQU 
EQU 
EQU 
EQU 


oc 
DC 
oc 
OS 


oc 


oc 


EQU 
oc 
DC 
oc 
DC 
oc 
oc 
Oc 
oC 
DS 
oc 
oC 
oc 


1L2*256¢ 
fe2'*2¢ 
XL2°8000* 
XL1*00* 
ct3* ‘ 
CL3*XxXX* 
CL3*CHD! 
CL3*opT® 
XL1°00° 
AL2(PRKBI} 


AL2(0AS01) 


AL2 (ROSNS-23} 


AL2(KINEND) 
AL2(MSGN) 
CL6*000000* 
CL6*000000' 
XL2°FOFO® 
* 


CL4é 
36XL1*40* 


XL1° 405 

& 

CL40 

& 
40RL i *408 


XLLféoe 
KINe2 
KINeS 
KIN¢1} 
KINe¢LS 
KINt1LS 
KINe23 
KIN¢27 
KIN¢32 


KINGZ4 
XL2*0000" 


XL2*0000° 
XL1°00° 
XL2°3FO0* 
XL2 
XL2*4000° 
XL2*6800* 
xL2*8000° 


XL2*0008* 


* 
XL2*0802* 
xXL2*21802* 
Xt 2*2802¢ 
XL2*A802¢ 
XL2°*BFOB* 
XL2*O20F * 
XL2*8BOE® 
XL2*O80E® 
XLi 
XL2°02° 
XL2*2009° 
XL2*0003* 


PART NOs 
PAGE 


#247613 
32A 


LINK ADDR REG FOR SNS BYTES 2-3 
32K MEMORY 


AOOR OF 5471 INTERRUPT RTNE 


AOOR OF 3340 INT RINE 

ADOR OF RD DIAG SENSE AREA 
ADDRESS OF K/B INPUT AREA END 
ADDR OF MESSAGE DISPLAY AREA 
LOOP COUNTER 

ERROR COUNTER 

COMMAND COUNTER 


INPUT 
FIELD 


INPUT SAVE AREA 
K/8 INPUT BUFFER AREA 


XR SAVE AREA 
KEYBOARD STATUS 

SAVE KEYBOARD STATUS 
IMITIAL OOCR VALUE 
ENETIAL DDDR VALUE 


PROGRAM MODE REGISTER RESTORE 


SYSTEM RESET SVP CONTROL STRING 
HALT MICROPROCESSOR 

RESEY MICROPROCESSOR CLOCK 

SET SERVICE MODE 

EMHIBET IOP CHECK STOP 

IMDER VALUE (6F? --> OP REG Y 
GP REG ¥ ~-> A REG -—> D REG 

BD REG —> INDEX REG 

SERWICE ACCESS CYCLE 

RESTORE K REG 


SWS RESET FLAG --> X REG - 
SEF SvP REQUEST 


c18-2° 
32k 


PROG 10 
PAGE 


“-"7ererr fs Seeeeeeeaeaeaeaeeeee8dse 


| & 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOs 4247613 IBM MAINTENANCE DIAGNOSTIC PROGRAM 
PAGE 33 | ©} 
Ci82 3340 FRIENDS TEST - MOD 12 ae 3340 FRIENDS TEST — MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ; “ERR LOC QBuECT Cape ADDR STMT SOURCE STATEMENT 
3725 000E 3726 3327 DC = XL2*000E* START MICROPROCESSOR | © 3395 
3727 FFFF 3728 3328 XFF OC = « XL2*FFFF® END SVP STRING 3839 3396 DRVWKL EQU ® 
3329 | 3397 * 
3729 CO09 372A 3330 CEMODE 0C xL2*C009° CE MODE IND --> X REG | ©) 3839 3839 3398 DFLG oS = Xk 
3728 C809 372C 3331 CEWR OC = XL2 "C8098 CE MODE IND --> X REG : 3399 + 
3332 * i, 383A 383B 3400 FFC os cL2 
3333 ¢-—--— eae elena! i Oe | | 383E 3401 CCP OS CL3 
3334 * | 383F 3841 3402 CCL 0S CL3 
372D 3335 MSG equ e | COMMON MESSAGE AREA 3842 : 3844 3403 HHP OS CL3 
3720 3790 3336 MSGN DS = CL100 €3 3845 3847 3404 HHL DS €L3 
3791 40 3791 3337 DC = XLA*4Ot USED TO CLEAR MESSAGE AREA “3848 384A 3405 KLO oS CL3 
3338 * | 3845 384D 3406 KLN DS CL 
3792 3339 MES equ * | C3  384E 3850 3407 DLO oS = CL3 
3792 37E1 3340 MESN DS = CLB0 ERROR MESSAGE AREA | "3852 3853 3408 DLN DS = CL3 
37E2 40 37E2 3341 DC = XL *40'- 3409 * 
3342 * | €2 3856 3854 3410 UCKMSK ODS ~~ XL1 
37E3 372C 37E4 3343 MSGAD CC AL2¢MSG=1} ADDRESS OF MESSAGE AREA ! 3411 * 
3364 : | | 3855 3856 he ORVCHD «OS XL2 
3346 * PROGRAM INDICATORS ANDO WORK AREAS | 3857 3858 3414 ORVSNS OS  XL2 
3347 * ; 3415 @ 
37E5 3348 WORK equ # | 3859 3859 3416 Dava OS = XL 
3349 * | . 385A 385A 3417 ORVR. OS XLII 
37E5 00 37ES 3350 FLAGS OC — XLitOF PROGRAM INDICATORS 3418 # 
376 00 37E6 3351 PRIFLG DC ~~ XLI*O® PRINT FLAG | €3 3858 385C 3419 ORVRCR OS XxL2 
3352 * | 3850 385E 3420 ORVROR OS  xXxL2 
37E? 37E7 3353 CFLG oS XL COMMAND ENTRY/EXECUTION CONTROLS ~~ | o | 3421 4 
37E8 37E8 3354 CFLGN DS XLi 385F 3868 3422 ORVICF OS XL10 
3355 3869 3872 3423 DRVRCF OS  XLI1O 
37E9 37EA 3356 LPXRL = =©0S ~~ AL2 PROGRAM LEVEL XR1 STORAGE 3424 
37EB 37EC 3357 LPXR2 DS  AL2 PROGRAM LEVEL XR2 STORAGE @ 3873 3425 DRYWK2 EQU ¢ 
= 3358 * 3873 3BAC 3426 oS 
37D 37EE 3359 LIXRL = =DS = aL2 5471 INTERRUPT LEVEL XR1 STORAGE = | 3427 + 
37EF 37FO 3360 L2xR2 DS AL2 .  S&71L INTERRUPT LEVEL XR2 STORAGE © 3428 #- -——- —-- 
37F1 37F2 3361 L1PSR OS) at 2 5471 INTERRUPT LEVEL PSR STORAGE 3429 * 
37F3 37F4 3362 LIPIAR OS = AL2 5471 INTERRUPT LEVEL PIAR STORAGE @ 3430 + 
3363 * } 38AD 3431 CMDTeL EQqU * 
37ES 37F6 3364 L5XR2 DS AL2 3340 INTERRUPT LEVEL XR2 STORAGE 38aD 38AE 3432 CFLGS CS  xL2 
ATT 37F8 3365 LSPSR = OSs AL 2 3340 INTERRUPT LEVEL PSR STORAGE = | 2 38AF 38AF 3433 S10Q OS XL 
3366 3880 3880 3434 SIOR 0S XL1 
37F9 37F9 3367 OPTION OS C11 RUN OPTION SELECTION | 3881 38BA 3435 DDCF -0S  XLi0 
37FA 37F8 3368 SELID = OS = CL 2 COMMAND ID SELECTION | 388B 38BC 3436 OS = x2 
37FC 37FC 3369 ERRIO OS XL1 ERROR CODE © 3880 38E% 3437 DATA OS = XL40 - 
3370 # . 3438 + 
37FD 37FE 3371 CMDID = =oS = XL2 CURRENT COMMAND ID 
3372 * © 
37FF 3800 3373 SNS oS = xxt2 3340 ADAPTER SENSE INFO 
3801 3818 3374 ROSNS ODS  xXL24 3340 SUBSYSTEM SENSE DATA 
3375 * | © 
3819 3819 3376 Q oS XL SIO INSTRUCTION Q BYTE | 
381A 381A 3377 R DS XL 1 SIO INSTRUCTION R BYTE i 
3378 ¢ | @ 
3818 381C 3379 RODCR DS = AL2 RESIDUAL DOCR VALUE 
3810 381£ 3380 RDDDR =D0S = AL2 RESIDUAL DODR VALUE | 
3381 # | © 
381F 3382 ID0CF EQU ® 
361F 3828 3383 IDDCFN ODS  xL10 INITIAL DOCF | 
3384 @ i © 
3829 3385 RDOCF E£Qu s 
3829 3832 3386 ROOCFN OS = xLiO RESTOUAL OOCF 
3387 # | ®@ 
3833 3834 3388 WORKA = OS) XL2 WORK AREA A 
3835 3838 3389 WORKN DS = xLe END OF COMMON WORK AREAS 
3390 * 7 
3392 © DRIVE DEPENDANT INDICATORS AND WORK AREAS | 
3393 ; | @ 
3839 339% DRVNK = =6EQU os START OF ORV DEPENDANT WORK AREAS 
'® 
DATE 15AUG7S5  OSNOV7S = 24MARTE PROG 10 Cl8-2 "SATE 15AUG75  OSNOVTS 4MART 
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START OF ORIVE 2 WORK AREA 
DRIVE DEPENDANT INDICATORS 


CURRENT FLAG VALUE 

CURRENT PHYSICAL CYLINDER 
CURRENT LOGICAL CYLINDER 
CURRENT PHYSICAL HEAD 

CURRENT LOGICAL HEAD 

CURRENT KEY LENGTH RECORD ZERG 
CURRENT KEY LENGTH RECORD W 
CURRENT DATA LENGTH RECORD ZERO 
CURRENT DATA LENGTH RECORD N 





UNIT CHECK MASK 
LAST COMMANDO [0 
3340 ADAPTER SENSE INFO 


SIO INSTRUCTIGN Q BYTE 
SIO INSTRUCTION R BYTE 


RESIDUAL DDCR VALUE 
RESIDUAL DODR VALUE 


INITIAG DOCF 
RESIDUAL DOCF 


START GF DRIVE 2 WORK AREA 
SAME AS DRIVE 1 WORK AREA 








A A I EE ALG AERP 


CMD EXECUTION CONTROLS 

SIG INSTRUCTION Q BYTE 

SIG INSTRUCTION & BYTE . 
3340 DISK ORIVE CONTROL FIELD 


WRETE DATA OR SCAN ARGUMENT 
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" ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT © nr LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ; 
3440 SKSVESCK KE SKKESEKKSE SSS ESEKESLESKESKSLESESTSEEREKSKRESSEFEKSESESSSSSSSSSEKSSE SH SSRSERKS & 3508 Seem ww wee ewe women ae an ae chewes ae ae — Se 
3441 © * 3509 ¢ CMD ENTRY/EXECUTION CONTROL INDICATORS (CFLG) 
3442 © SYMBOL DEFINITIONS * 3510 * 
é 3443 © «* @ 0080 3511 CBITO EQU x*B80* 0 - RECAL COMMAND 
3QGh SSSSEESES EE EEEESKESRERERESEESSESEEEE TEESE SESESEESKAEKER TERE SSERESTSSVRSSLE 0040 3512 CBIT1 equ x*40* 1 - SEEK pobre 
: 3445 * 0020 3513 CBIT2 EQU  x*20° 2 - ROHA COMMAN 
-@ 3446 © LOCAL STORE REGISTERS. @ 0010 3514 CBIT3 —€QU  _X*108 3 - RDSNS/RDLOG COMMAND 
3467 @ 0008 3515 CBITS EQU = xF08¢ & = WRHA COMMAND 
0001 3448 XR1 EQU = x*oO1? INDEX REGISTER 2 0004 3516 CBITS EQU = KX" 04* 5 - RX REQUIRED 
& 0002 3449 xXR2 equ = X*02¢ INDEX REGISTER 2  @ 0002 3517 CBIT6 EQU = x* 02° 6 - KLOL REQUIRED 
3450 ¢ 0001 3518 CBITT? EQU = xX" OL 7 - MULTI-RECORD COMMAND 
0004 3451 PSK EQU xX*04" PROGRAM STATUS REGISTER 0080 3519 CBITS EQUsK* SOF 8 - FE = XX 
& 0040 3452 PRR EQU  X*40" PROGRAM MODE REGISTER & 0040 3£20 CBITS EGU X* 40° ; - CC = oe 
3453 * 0020 3521 CBIT1O  EQU  x*20° 10 - HH o 
0008 3454 ARR EQU = x08* CURRENT LEVEL ADDRESS RECALL REG 0010 3522 CaITi1l EQU  xX*10* 11 - KL = XXX 
& 3455 © & 0008 3523 CBIT12 EQU x*oOBe 12 - CL © KXX 
0020 3456 PIAR EQU = x20" PROGRAM LEVEL INSTRUCTION ADDR REG 3524 % 
OOCO 3457 IARI EQU x*COr INTERRUPT LEVEL 1 IAR =- CRY/KYBD 3525 # Se 
& 0084 3458 IARS EGU _X"84* INTERRUPT LEVEL 5 IAR - DEV OP END | 3526 DRIVE DEPENDENT ENDICATORS (DFLG) 
3459 © 3527 * 
SAGE Orie cee eee enennaeane 0080 3528 DBITO £QU x*80° O - OREIVE IN USE 
& 3461 © COMMON SENSE SWITCHES -@ 0040 3529 DBITL  EQU x*40F 1 - WRITE ALLOWED 
3462 © : 0020 3530 DBIT2 eQU _ x* 20° 2- 
6 0004 3463 SSHOS EQU = xX" 048 USE ALTERNATE PRINTER - S472 0010 3531 DBIT3 equ xX*10° 3 — DRIVE ERROR DETECTED 
2 3464 © : 0008 3532 DBIT4  EQU  xX*O8® an 
3465 G——--~—------ ee ® 0004 3533 DBITS EQU xt Oat 5 - OP END INTERRUPT EXPECTED 
3466 ¢ SECTION SENSE SWITCHES | 0002 3534 DBIT6 eQu  xto2¢ 6 -— SEEK COMMAND STACKED 
& 3467 © \ & 0001 3535 OBITT EQU ss xx*oL® 7 — SEEK COMPLETE EXPECTED 
0080 3468 $Sui0 EQU = x* B08 BYPASS RESIDUAL DDDF PRINT/DISPLAY 3536 * 
& 0002 3476 SSW16 equ = x" 02¢ FORCE DATA SWITCH ENTRY @ 3536 @ MESSAGE / HALT IDENTIFIERS 
0080 3472 SSH20 EQU = x*30° INHIBIT WRITE HA OPERATIONS | 3539 © fete ee 
0040 3472 SSW21 EQU  X*40° . INHIBIT WRITE ON DISK ORIVE 2 C1EO 3540 HLTEO EQU X*CLEOF HALT FOR USER RESPOKSE 
& 0020 3473 SSW22 EQU = X*20* INHIBIT WRITE ON OISK DRIVE 2 | & C101 3541 HLTOL EQU x*C1O01¢ 3340 ERROR HALT 
0064 3474 SSuz5 EQU Xx" 04" OVERRIDE WRITE HA PREREQUISITES | C177 3542 HLTT7 EQU  X*C177* 3277 ERROR HALT 
34TS © C100 3543 HLTOO EQU x*C100¢ 
€ 0001 3476 SSuZF equ = xo? ENABLE AMOP (SECTION C19) | @ 3544 © 
3478 #—--~—--——----—- aa | 3546 * DCP SECTION REFERENCE TABLE 
& 3479 & 3340 COMMUNICATION AREA (COM) INDICATORS | @ 3547 * oe 
3480 © 0203 3548 SIZE “equ x*02038 MAIN STORAGE SI 
0080 3481 ADRSTP' EQU xX*80! MICROPROCESSOR ADDR STOP ENABLED { 3549 © 
& 0020 3482 MPLFLG EQU x*20° MICROPRGGRAM LOADED INDICATOR @ 0208 3550 SBYTEO EQU x*0208° COMMON SENSE SWITCHES 00-0T 
3483 © 0209 3551 SBYTEL EQU  xX*0209° COMMON SENSE SWITCHES 068-OF 
ne Ses 020A 3552 SBYTE2 EQU  xX*020a* SECTIGN SENSE SWITCHES 10-17 
€ 3485 * COMMON PROGRAM INDICATORS CFLAGS) 8 020C 3553 SBYTES EQU  x*020C* ; SECTION SENSE SKITCHES 20-27 
3486 * 020D 3554 SBYTES5 EQU  xX*O20D° SECTEON SENSE SWITCHES 28-2F 
O080 3487 BITO EQU = X BO O - PROGRAM RESTART 3555 = 
0040 3488 BITl EQU  xX*4OF 1 - COMMAND ENTRY COMPLETE eS 0212 3556 TEST EQU Kto2Z12e TEST CONSOLE SWEVCHES 
0020 3489 BIT2 equ x*20" 2 - CMD EXECUT io PADGRESS | 0216 3557 LINK EQU X*'0216" cia 10 ee ecugne OR SECTION 
0016 3490 8173 EQU = X*10° 3 - 3340 ERROR DETECTE 021A 3558 PRINT EQU  xX*O21A ) 
00CS 3491 BIT4 €Qu = x*08* & - LOOP COUNTFR OVERFLOW | & O21E 3559 UNPACK EQU  xX*O2iE* UNPACK DATA - HEX TO EBCDIC 
0004 3492 8175 EQU _-X° 04° 5 - CRT WRITE INHIBITED 0222 3560 HALT EQu x*0222° HALT AND DISPLAY HALT IDENTIFIER 
0002 3493 BIT6 EQU) = xX*02° & - CRT DISPLAY CHANGED | 0226 3561 PACK EQU X*0226# PACK DATA =— EBCOIC TG HEX 
0080 3496 MULTSH EQU X*80F MULTIPLE DATA SW ENTRIES eS 022A 3562 LOAD EQU  xt022A° LOAD NEXT SECTION OR RECORD 
OGOL 3495 FFREQD E£QU xXx*01° FLAG FIELD REQD(DATA Sw) | 3563 ¢ 
0040 3496 SELOPT EQU X*40° GPTION SELECTION ENDIC 3564 ¢--- Seca fees as 
0020 3497 SCNARG EQU X*20° SCAN-WRITE ARG INDIC | @ 3565 * «OTHER REFERENCES EXTERNAL TO THIS SECTICK 
0010 3498 RESIND EQU  xX*10* MESSAGE INDICATOR 3566 * 
3493 ¢ | 0879 3567 CRTFLG EQU X*0879* 3277 MECROCODE FLAG 
3502 @ 5471 KEYBOARD INDICATORS | 4000 3569 ANOP €Qu x #40008 ADAPTER MANUAL GPERATICNS PROGRAM 
3562 ¢ ' 6C0O 3570 LOR equ x*ecoo* 3340 ATTACHMENT MICROCODE LOADER 
0041 3503 RET) EQU = _-xX*41? CARRIER RETURN 2 | & 3571 * 
OOLG 3504 KEY equ = X*108 CONSOLE KEYBO&RD FFFE 3572 END 
OCLe 3565 PRT equ = x*1e¢ CONSOLE PRINTER | 
es QOS 3506 PRINTL EQU xX*B80* PRINT ONE CHARACTER | 2 
3507 & | 
ee : 
| DATE —ASAUGTS OSNCVTS Z4RARTS PROG 1D c1e-2! @ ase 15AUGT5 OSNOV75 2SRARTO ; PROG 1D Cis-2 
. EC NOe 627785 827827 62TETS PAGE 34 | EC NO. 827785 927827 827879 PAGE 34h 
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CROSS-REFERENCE G CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES C SYMBOL T LEN VALUE CEFN REFERENCES 
ADRSTP C 0O1 0080 3481 1155 | . CLRSTG A003 0858 0169 0173 
AIN A 002 3673 3280 2360 - ¢ CMO A 003 3667 3273 1830 
aMOoP C 001 4000 3569 2418 2432 et _ CMOCNT A 002 3683 3284 0148*% 0215 0269 0988 10448 
AMOPEN A 004 20F3 2439 2406® 2408 2411 _ CMOID A 002 37FE 3371 1170* 1230% 1428 1598% 1829 
AMOPID A 002 OAIE 0032 2415 ¢ CMOTBL A 001 38AD 3431 0160 0163 1168 
AMOPLD A 004 20CE 2421 2416 ; : CNTR A 002 3583 3211 
AMOPRN A001 20A1 2405 0196 1144 2329 2666 2616 . , CNVRT A004 1F19 2232 1009 1014 1019 1024 1029 1036 
ARR C 001 0008 3454 2126 2115 2185 2232 2270 2307 2406 1 { CNVRTN A 004 1F64 2261 2232* 2236 22390 
BEGIN A 004 OA3E 0048 ' CNVOL A 00S 1F46 2251 2254 
3GNX1 A 004 OA65 0059 0056 i , CNVO2 A004 1F58 2256 22419 2249 
BGNX2 A 006 OAT77 2063 0060 ; € CNVO3 A 004 1Ff5C 2258 2252 
BGNX3 A 004 OA7D 0065 0058 0062 cOM A 001 0A19 0028 0065 1155 2286 2413 
BGNO2 & 004 O0A85 0070 |  CRTFLG € 001 0879 3567 
BGNO3 A001 OAAD 0096 | € c17 A 002 1F9C 2290 227% 2277 
BGNO3A A 004 OAC2 0105 0099 ; '  €182 A 001 0000 0007 
BGNO3B A 004 OBOF 0135 0144 | ¢19 A 002 200F 2430 2415 2418 
BGNOS A 005 OB2F 0146 0119 0130 2095 2437 | € DASOL A 004 LEOF 2115 1404 1434 1438 1469 1566 1622 1718 3278 
BITO € 001 0080 3487 0054 0166 1069 1070 ' ’ DASDI@ A 002 366F 3278 
BiTl € 001 0040 3488 0129 0166 0275 0969 2435 '  DASOIA A 004 1613 2116 2174 
BIT2 C001 0020 3489 0150 1172 2077 2407 | € OASDIX A 00% 1EA6 2176 21159 
BIT3 C001 0010 3490 1185 1405 1435 1454 1572 1672 1699 1603 1823 1837 1947 2074 -  DASIRS A 003 1E9B 2172 2124* 21298 21368 2167* 2168 
2165 i _ DASIOl A 003 1E5F 2146 2140 
BIT4 € 001 0008 3491 1172 1177 «1805 , € OASIO2 A 003 1665 2149 2126 2132 
BITS € 001 0004 3492 1190 1202 1980  DASIO3 A 005 1£70 2154 2147 
BIT6 € 001 0002 3493 |  DASIOS A 004 LETC 2159 2154* 2156 
BLANKS A 003 3661 3271 0143 0485 0819 1927 2096 2195 2320 2573 i £ DASICS A 003 1E87 2163 2157 
BUFCCX A 001 36E4& 3297 2799% 2800* 2801% 2803* 28048 2805e ' ” DASIO6 A 004% 1E8A 2165 21212 2134 2144 2150 
BUFCMD A 001 36DD 3295 2625* 2630% 2635% 2640% 2645* 26508 2655% 2660% 2665¢ 2670* 2675* 2680% _ _.DASIOT A 004 1E8E 2167 
2685* 2690% 2695% 2700* 2705% 2710® 2715% 2720% 2725* 2730% | €{DASI08 A 005 1696 2170 2161 
wormomrmmrn—nn———————= BUEDEX A 001 36F4 3301 2865* 2866* 2857*% 2869% 2870% 2871¢ |  OATA A 040 3864 3437 = 
BUFDRV A 001 3607 3294 2615* 2616% 2620¢ DATASW A 001 3668 3275 C211* 0225% 0520% 0523% 0852 0855 1099% 11099 2078% 2081% 2452 24671 
BUFFFX A 001 360 3296 27608 2761* 27648 27658 1 2544 2546 2569 2584 
BUFHHX A 001 36€8 3298 2762# 2763% 2766% 2767* 2769% 2771 27748 27768 2778 27819 27839 ' ““DBITO € 001 0080 3528 0316 0913 
BUFKLX A 001 36FO 3300 2843% 2844% 2845% 2847% 28488 2849% _OBIT1 € 001 0040 3529 0265 0303 
BUFNNX A 001 36F7 3302 2687* 2888% 2889s 28918 2892¢ 28938 “DBIT2 € 001 0020 3530 
BUFRRX A 001 36EC 3299 2821# 2822* 2823% 2825% 28266 2827% DBIT3 C€ 001 0010 3531 1589 1595 2163 
Cc A001 3585 3217 2525 2532 2591 2598 277% 2781 DBIT C 001 C008 3532 
CANHIT & 004 1FCD 2320 2334 € OBITS C001 0004 3533 1402 1457 2139 2143 2146 
CBITO C€ 001 0080 3511 0284 0916 1396 1460 1496 1502 OBIT6 C€ 001 0002 3534 1417 1422 1470 1473 2149 
CBITL C001 0040 3512 0293 0537 0581 0931 0936 0948 1396 1460 1496 1505 1531 OBIT? C€ 001 0001 3535 1417-1422 1470 1473 2149 
CBIT10 C 001 0020 3521 1030 1270 €.D0CF 4010 36BA 3435 1041# 1254 
CBIT1L1 C 001 0010 3522 1020 1279 . DEVICE A 001 365E€ 3270 0100* 0107* 0118 0198 0835 O972 1146 1193 2079 2316 
CBIT12 C 001 oO008 3523 1015 1290 OFLG A001 3839 3398 0265* 0303 0316 0911% 13998 1402@ 1417 1422 1457 1470 1473 1589 
C8IT2 C001 0020 3513 0337 0936 1505 1521 : 4595 1719 2139 2143 2146* 2149 2152@ 21639 
CBIT3 C 001 0010 3514 0347 0913 1491 DLN A003 3853 3408 0667* 0734 0925* 0958* 1299 15408 
CBIT C001 0008 3515 0392 0546 0590 0936 0942 1265 1276 1505 1525 _ DLO A 003 3850 3407 0661* 0726 0923% 0963% 1293 15208 1545¢ 
CBITS C 001 0004 3516 0357 0368 0373 0452 0625 0684 0728 0951 1283 1294 1536 € DRVCMD A 002 3856 3412 1428 1598 
CBIT6 C 001 0002 3517 0373 0392 0432 0676 0718 | ; DRVICF A010 3868 3422 1426% 1602 
CBIT? C001 0001 3518 0368 0452 0761 0770 _.DRVQ A001 3859 34616 
CBIT8 € 001 0080 3519 1001 1256 / € ORVR =A 001 385A 3417 1425@ 1599 
CBIT9 C 001 0040 3520 1035 1261 “DRVRCF A OLO 3872 3423 1452% 1663 
CCL A 003 3841 3402 0549 0552 09458 1264 15178 315288 _ORVRCR A 002 385C 34619 1444% 1600 
cce A 003 383E 3401 0555 0558 09399 1268 1508¢ * €7ORVROR A 002 385E 3420 1445? 1601 
CEMODE A 002 3724 3330 1211 “DRVSNS A 002 3858 3414 1575 21768 
CEWR A 002 3720 3331 1216 DRVWK A 001 3839 3394 0161 0164 
CFLG A OOL 37E7 3353 0284* 0293% 0337 0347* 0357% 0363¢ 0368% 0373* 0382% 0392% 04119 04328 | Ecorvwe1 a 001 3839 3396 0238 1182% 1237 1568 1587 2123 2138 3426 
0452% 6490 0537 0540 0546 0581 0584 0590 0625 0676 0684 O718 ORVWK2 A 00lL 3873 3425 0244 1183* 1233 1569 1592 2128 2162 3426 
0726 0761 0770 0913 0916 0931 0936 0942 0948 0951 1265 1274 0000 4 006 «3630 3252 = 0146 +0147 0488 0543 0587 0628 066C 0638 0674 0687 0716 0731 
1263 129% 1396 14660 1491 1496 1502 1505 3511 1525 1531 1536 gS 0758 0764 0919 0922 0924 09329 0954 1086 1097 1098 i170 1318 
CFLGN A ODL 3766 3354 0213% 1001* 1039 1242* 1256 1261 1270 1279 1290 22560 1348 
CFLGS A 002 38AE 3432 1039® 1242 ' 0008 A 003 3635 3254 0661 0923 
CKDEC A 004 1EAA 2185 0532 0576 0620 0669 0711 0753 ‘ ' €:901 A 002 3632 3253 0148 0269 1044 1178 1230 1364 1808 2251 
CKOR A004 1F15 2223 2185* 2169 22008 2214 22189 - ~ 0016 A 003 3638 3255 0787 
CKO004 A 004 1£D7 2202 D047 = =68 003 «3638 «63256 0796 
CKDO5 A003 1F06 2217 2193 2196 - €50054 a 003 363 3257 0789 
CkD06 A 004 iFOD 2220 2205 2208 2210 2212 2215 0062 & 003 «43641 3258 0781 
DATE 15AUGT75 OSNOV75 24MART6 PROG ID C16-2 i 15AUG75 OSNOV75 24MART6 PROG ID C18-2~ 
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C182 3340 FRIENDS TESY - MOD 12 tb? 3340 FRIENOS TEST ~ MOD i2 


CROSS-REFERENCE CROSS-REFERENCE 


SYMBOL T LEN VALUE DEFN REFERENCES | (°SYMBOL T LEN VALUE DEFN REFERENCES 
0209 A 003 3644 3259 ENT29° & 001 OFOB 0530 0492 0495 0510 OS571 
D256 A 003 3647 3260 0651 0667 0705 0721 0800 0925 { ENT29A & 004 OFOB 0532 
0999 A 006 «63640 «3261 1174 ENT30 A 004 OF2C 0546 0541 
END A 003 362A 3250 2581 2620 . ENT31 A 003 OF41 0555 0547 0550 
ENDCMD A 004 1660 1817 1576 1806 ! ENT32 A 006 OF4F 0561 0535 0538 0556 
ENDIN A 004 2063 2371 2307* 2894 ENT33 A 004 OF6B 0576 0534 0544 0553 0559 0615 
ENDINL A 003 2052 2364 2343 2361 _ENT34 4 004 OFBC 0590 0585 
ENDSH A 004 270F 2894 2467 2515 2574 2578 2582 2586 2597 2601 2621 2758 2797 2819 © ENT35 & 003 OFAL 0599 0591 
2841 2863 2885 ' ENT36 A 006 OFAF 0605 0579 0582 059% 0600 . 
ENDOL A 006 187A 1828 162i ENT37 A 004 OFCB 0620 0578 0588 0597 0603 0649 
ENDOLA A 004 18AF 1843 1835* 1838 1841 ¢ €NT38 A006 OFES 0631 0623 0626 0652 
ENDO2 A 006 1889 1849 ENT38A A 006 1022 0651 0622 
ENDO2ZA A 001 1CAB 1964 1948 . ENT38B A 004 100C 0641 0635 
ENDD26 A 001 1C38B 1972 1962 { ENT39 A003 102C 0657 0629 6703 
ENDOS A004 1CB8 1975 ' ENT40 A 003 103C 0663 0658 
ENDOGA A 001 iCBF 1976 1952% 1967* _ ENT41l A 004 104C 0669 0664 
ENDOS A 00% 1CC3 1980 . { ENT42 A 006 1089 0693 0672 0706 
END06 A 00L LCC? 1982 : ~ ENT42A A 006 10A5 0705 0671 
ENDO6A A 001 10068 2007 1953% 1968* _ENT43 & 004 10AF 0711 O677 0680 0685 0688 0691 0748 
END06B A 006 1C04 1989 1985 € ENT44 A 006 10F2 0737 O714 
ENDO’ A006 100F 2011 — ENT45 A 004 1314 0753 0713 0719 0724 0729 0732 0735 0813 
END08 A 004 1020 2017 2063 ..ENT46 A 006 112E 6764 0759 
ENDOY A 004 102A 2021 2047 i ENT47 A006 1137 0767 0756 O762 080i 
ENDIO A 004 1D55 2033 20246 ; — ENT47TA A 006 118C 0792 OTT% 
ENDIOA A 001 1D59 2034 2011% 2026¢ -ENT48 A 006 1148 0860 0755 
ENDLOB A 062 1056 2035 2015% 2027* 2038¢ € ENT51 A 004 113B6 0805 O771 O779 O784@ 0788 6790 0793 O798 
ENDIOC A 002 105D 2036 2021* 2028% 2029¢ ~ ENT52 A 004 11CC 0818 0765 0803 
END11 A 003 1076 2046 ENT524 A 001 1203 0834 0903 
ENDi2 A 001 1070 2049 2041 2044 € ENT52B A 004 122C 0852 0836 . heen ctstan. 
~~" €NDL2B A 001 1080 2056 1954% 1969¢ ENT53 A003 1246 6861 0893 
END12C A 002 1090 2058 _ENT53A A 003 1240 0865 0870 
END132 A006 1097 2062 € ENT53B A 003 1260 0872 0866 
ENDISA AOOL 1DA5S 2066 1955* 1970¢ “ENTS A 004 1269 06877 0898 
ENDLSB A OO 1DA6 2068 1834 1991 1994 1997 2004 ENT54¢A A 003 126D 0879 0890 
END15C A 0Ol 10BE 2076 1140 1151 2053 2073 © ENTSS A 003 127F 0888 osec 
ENDISE A 00% 10E£1 2093 2080 2106 ENTS? A004 29D 0900 0873 0883 0886 
ENTCMD A 004 0848 0163 ENT58 A 003 i2A5 0905 0896 
ENTXX1 A 004 1172 0785 0783 _ €/ENT60 A 003 12aC «0911 0832 
ENTXX2 A 006 1183 0789 0786 /  ENT6L A OOS 12C@ 0922 0949 
EN‘Ol A OOL OBEO 0223 0258 0329 0447 ENT62 A005 1200 0929 0917 
ENTO3 A004 OCO5 0238 0228 €ENT63 A 004 12EE 0936 0932 
ENTO& A 004 OC17T 0244 0231 “ENT64 A 004 12FF 0942 0937 
ENTOT A004 0C29 0250 0236 ENT65 A 00% 1310 0948 0943 - 
ENTOS A 003 OC3F 0263 0242 0248 €ENT66 A 005 1335 0962 0952 0955 
ENTO9A A 006 0C45 0269 0263 ENT67 A OO1l 133F 0968 0279 0914 0927 0960 
ENTIO A004 OC57 0275 0234 ; _ENT67A A 006 1356 0980 0973 
ENTL1L A 006 O0C62 0281 0270 0273 ; C{ENT68 A 006 136F 0987 0984 
ENT12 A 006 OC77 0288 0282 “ENT69 A 004 1383 0998 
ENT14 A 006 O0C90 0297 0289 _ENT7TO A004 1391 1004 0999 
ENT1S A006 0C99 0300 : ( ENT71 A 004 1394 1009 1002 
ENTISA A 006 OCBD 0311 0391 ERRA A 005 194) 1598 1590 
ENT16 & 004 OCD9 0321 0309 0317 . _ERRB A 006 1985 1613 1706 
ENTLT A006 OCEF 0334 0298 % € ERRC A 003 1997 161° 1613% 1614% 1615¢ 
ENT1B A006 OD9A 0386 0379 ERRCNT A 006 3681 3283 
ENT19 A 004 ODA32 0392 0306. . _ERRD A 004 19CE 1637 1608 
ENT20 ACO4 ODC5 0403 0397 € ERRE A004 190C 1641 1596 
ENT21 A 004 ODEL O411 0401 “ ERREND A 001 19238 1585 1406 1455 1573 1673 1700 
ENT22 A 004 ODF9 0420 0414 ERREL A 004 19ED 1647 
ENT23 A 004 O€37 0439 0387 0409 € ERRE2 A004 19FD 1652 1635 
ENT24 A004 OF4D 0452 0312 0480 “ERRF =64 004 1800 1657 381642 
EXT25 A 006 OESD 0485 0286 0295 0341 0345 0351 0355 0361 0366 0371 0376 0384 0404 ERRG A 004 1A26 1665 1659 
OF18 0422 0426 0430 0435 0457 0461 0465 0469 0525 =  €ERRID A 001 37FC 3369 1610* 16334 1637# 1644% 1661 1665* 1675¢ 1682¢ 1689 1704% 17118 1727¢ 
ENT26 A006 OEA6 0488 1734* 1747% 1764* 1771¢ 1779* 1786% 1793¢ 
ENT27 A 004% OEBE 0497 0486 Maite / ERRN A 003 1848 1800 1677 1684 1692 1766 1774 " 
ENT27A A 00% OEFD3 0506 0498 os —"% ' E[ERRNA A 004 184F 1803 1626 1639 1655 1663 1667 1759 1781 1788 1795 
ENT26 A 006 OFEL 0512 0502 0504 0507 — “ERROL & 004 1A34 1672 1380 
e . 
DATE 15auGT5 OSNOV7S = 24MARTG PROG 10 Cia-2° “pate 1SAUG75 OSNOV75 24MART6 PROG ID Cis—2 
EC NO. 827785 827627 S27s79 PAGE 36 oe” NQ. 827785 827827 s27e7S PAGE 368 
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IBM MAINTENANCE OLAGNOSTIC &xUGaan PART NOe 4247633' _ IBM MAINTENANCE DIAGNOSTIC PROGRAM PART MO. 864247513 
PAGE 37 | & PAGE STA 
4 } 
C182 «- 33340 FRIENDS TEST = MOD i2 / C182 3340 FRIENDS TEST - MOD 12 
{ 
CROSS-REFEREMCE | CROSS-REFERENCE 
SYMSOL T LEN VALUE DEFN REFERENCES | E3svmMeot T LEN VALUE DEEN REFERENCES 
t 
ERRO2 A G04 1ASA 1682 1387 | _KBEND A 003 2094 2396 2366 2389 2394 
ERRO3 A004 1A58 1689 1394 f KBENDA A 004 208F 2393 2391 
ERROS A 003 1a6H 1697 1408 /  BENOB A001 2070 2387 2384 
ERROG A 004 1A88 17211 1413 | _ KBSTAT A 00i 3702 3305 0167# 0191 0193 0195 1064 1138 1139 1141 1143 2051 20528 2361¢ 
ERRO6A A 006 LADS 1716 1720 | €° 2385% 2392¢ 23952 
ERROT A 004 IAAF 1727 1418 KEY C 001 0010 3504 0102 0103 2326 2335 2365 2366 2396 2426 2434 
ERROG A 004 ABC 1734 1423 KEYIN A OOlL 1FAD 2306 0140 O217 0255 0326 0444 0477 0522 0568 0612 0646 0700 0745 
ERROSA A006 LAC6 1737 1729 €> 0810 0853 1101 2093 
ERROSB A 006 1ACC 1739 1741 KIN A001 3605 3291 0141 0143 0218 0256 0327 0445 0478 0522 0569 0613 0647 O701 
ERROO A 00% 1A0C 1747 1433 0746 0811 0854 1103 1105 1108 209% 2096 2098 2323 2465¢ 24668 
ERRO9A A 003 LAEG 1750 1717. «1740s: 742 e@ 2486% 2487* 2488% 24894 2490% 2491% 24928 2493% 2507* 2508 2560% 2561% 
ERROOB A 004 AED 1753 1722 2562% 2563* 2564 2565* 2566% 2567* 2571 25738 2575 2577% 2579 25819 
ERROSC A 004 1AFS 1756 2588 2591* 2593 2595 25984 2600* 3294 3295 3296 3297 3298 3299 
ERR10 A 00% 1801 1764 1458 €& 3300 3301 3302 
ERRLL A 00% 1B0E 1771 1474 1565 KINEND A 001 36FC 3292 2324 23248 2448 2448% 3280 
ERR12 A 004 1821 1779 _ KLN A003 384D 3406 0563 0666* 0690 0924 0957# 1288 15398 
ERR1& AGO 182E 1786 1481 € «Lo A003 384% 3405 0657 0660* 0682 0922% 0962* 1282 15199 15440 
ERR15 A 004 1838 1793 1486 KYSTAT A 002 3701 3304 2327* 2328 2330 2332 2340 2342 2344 2355 2356 2382¢ 2383 2388 
F A 001 3587 3214 2466 2490 2491 2492 2493 2519 2520 2564 2565 2566 2567 2616 2390 2393 
2764 2765 2766 2767 2803 2806 2805 2825 2826 2827 2847 2848 € 10R C 001 6C00 3570 2277 2292 
2849 2869 2870 2871 2891 2892 2893 ~ LORGO A 00% 1F9D 2292 2278 : 
FAOID A 002 Oa20 0033 LORIO A002 OAIC 0031 2274 
FFC A 002 3838 3400 0491 0494 09298 0934¢ 1259 14940 € {0PLD A004 1F86 2280 2275 
FFREQD C 001 0001 3495 0520 0523 2584 LINK C 001 0216 3557 0194 1142 2099 2336 
FLAGS A 001 37E5 3350 0053* 0054* 0129 0150% 0166¢ 0275e 0969 1084 1172¢ 1177 1185 1190 _ GAD C€ 001 022A 3562 2288 2428 
1202@ 1405 1435 1454 1572 1672 1699 1803® 1805 1823 183% 1947 € LOOPCT A 006 3678 3282 
1980* 2074 2077* 2165% 2407 24635 “LPEND A 002 358E 3219 1350 
HALT C 001 0222 3560 0090 2351 2459 2482 2509 2556 2609 2737 2750 2789 2811 2833 _LPXR1 A 002 37EA 3356 O857* 0900 0906 1301% 1378 1447% 1650 1514# 1522 2186% 2220 2233% 
2855 2877 o 2258 2318% 2368 
~ HHL A003 3847 3404 0593 0596 0919¢ 09206 0946* 1273 1499% 1500 1500% 1516¢ 1529% LPxR2 A002 37EC 3357 2187* 2221 22348 2259 23198 2369 o—ereererrmameeeeeenmattan 
HHP A 003 3844 3403 0599 0602 0920% 09408 1277 15096 LIPIAR A 002 37F4 3362 
HLTEO C 001 CiEO 3540 0074 0091 .L1PSR A 002 37F2 3361 
HLTOO C 001 €100 3543 2264 L2XR1l A002 37EE 3359 
HLTOl C001 C101 3541 1847 L2xR2. A 002 37FO 3360 
HLT77 C 001 C177 3542 U5PSR A002 37F8 3365 
TARL C002 00CO 3457 o10ls¢ L5XR2 A 002 37F6 3364 2116% 2173 
TARS C001 008% 3458 MES A 001 3792 3339 1611* 1634 1638% 1645* 1662% 1666% 16768 1683¢ 1690e 1691¢ 1705® 17129 
IDDCF AOOl 381F 3382 1007 1017 1022 1027 1032 1037 125s" 1266@ 12688 12736 1277¢ 12826 €: 1728* 1735* 17489 17656 17722 1773¢ 1780® 1787* 17949 
1285 1288% 12938 1296 12998 1536 MESIND C 001 0010 3498 2078 2081 2546 2569 
TOOCFN A010 3828 3383 1012 1041 1254* 1303 1376 1426 16028 1922 MESN A O80 37E1 3340 0151 .0151* 1586 1586% 1960 
I00CR A 002 3704 3306 O172 1089% 1220 1221¢ 1224* 1304 1275 1382 1386 1448 1756 1910 Emer A 00% 1F68 2270 0066 
IO0DDR A 002 3706 3307 0057* 0061* 0063* 1090 12228 12258 1225 1315 1389 1393 1515 1916 MPLFLG C 001 0020 3482 0065 
1990 ©2013 _MPLX A 004 1FAQ 2297 22708 - 
IDDDR1 A 002 3708 3308 0063 EHPLXi =A 004 «FAL 2294 22712 
IDDDR2 A 002 370A 3309 0061 ; MPLX2 A 004 1FA5 2295 22728 
I0D00R3 A 002 370C 3310 0057 a MSG A 001 3720 3335 O111* O116 0121% 0122% 0127 0132% 0133% 0138 0177% 0178% 0183 0307¢ 
INPUT A 00] 3684 3285 0215 0227 0230 6233 0256* 0272 ~.%: 0288 0291¢ 0297 0300 0311 03084 0314% 0319* 0324 0356% 0407% 0408* 0437% 0512 0513% 0518 0561% 
©327* 0340 0344 0350 0354 0360 © = 6370 0375 0378 0381% 0396 ; 0566 0605% 0610 0632* 0637% 0638% 0639% 0644 0693* 0698 07378 0738% 
0400 0413 G417* 0421 0425 0629 :- 4 0645% 0456 0460 0464 0468 0743 0768* 0776% 0795 0796* O79T* 0808 0837*% 0838% 0843 0845¢ 9850 
C O478* 0485 0488% 0494% 0497 0500 <3 0506 0509 0522® 0533 0543¢ rd) 0981% 0985* 0967* 0988* 0993 1066* 1073* 1075* 1077® 10799 1081® 1094% 
0552* 0558 0569% 0577 0587% 0596% (a2 0613" 0621 06288 0634 0647¢ 1113* 1128 1186* 1196# 1200 1829% 18308 1831% 1840% 1846 18698 1854 
0651 0670 O674* 0679 0682% 0687 eS 0701% 0705 O712 07168 o721¢ i 1860 1865 1870 1875 1880 1888 1893 1898 1902* 1907# 1911 1917 
0723 0726* 0731 0734* O746% 0754 0758 0764* 0773 0792 O811e 0818% 1923 1927* 1928* 1933 1938 1943 2001* 2009 2017 2058 3343 
0819% 0820* 0821 0822% 0823% 0824% U#25e 0826¢ 0827% 0859 MSGAD A 002 37E4 3343 
IMPUTN A 00L 3648 3287 O214 0214* 0216¢ 0800 0829 08543 0985 1049 MSSN A100 3790 3336 0109 0109% 0175 0175% 0224 0224% 0306 0306% 0334 0334% 0406 0406% 
INSAVE A001 3640 3289 0954 0998 1006 1012 1016 1021 1026 1031 1036 04452 0631 0631* 0767 0767* 0781% O787* 07892 0980 0980 1187 1187¢ 
INSAVN A 040 3604 3290 ©829% 0981 1204 1204* 1828 1828¢ 18656 1856* 188% 1884% 1901 - 19019 1306 1906¢ 
10 A 002 364F 3262 0048 0213 1317 1499 1714 1737 2031 2060 2062 2246 1999 1999% 2062 20609 3281 
iH & 002 3651 3263 ©0869 08689 1328 1345 1362 1399 1430 1432 1466 1467 1562 1564 €°MSGNS A 002 3675 3281 
A716 «©1739 2043 2152 2253 MSGOA A001 2854 2930 0188 0223 0272 0281 0288 0297 0306 0311 2098 
120 A 002 3655 3265 MSGOAN A O12 2883 2932 0314 
1258 & 002 3659 3267 1987 a € MSGoB a 002 2884 2934 
14 A 002 3653 3264 2011 2019 2023 2038 MSGOBN A 031 28A2 2935 0319 
140 A CO2 3657 3266 _MSGOC A OO 2843 2937 
K A001 371F 3323 1153¢ 11590 € “scocn A 032 28C2 2938 0253 . 
KBAMOP A 004 20F0 2432 2419 MSGOD A 002 2863 2940 
DATE 15auG7s OSNOVTS 24MART6 PROG ID Cis-2 Oar 15AUGT5 OSNOV7S 24HART6 PROG 10 €18-2° 
EC NO. 827785 827827 e2T879 PAGE 37 EC NOw 927785 827827 827879 PAGE 37a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247613 _ IBM MAINTENANCE DIAGNOSTIC PROGRAM ; PART NO. 4247613 
PAGE 38 ¢ PAGE 36A 


182 3340 FRIENDS TEST = MOD 12 


e™ 


C182 3340 FRIENDS TEST - MOD 12 


CROSS-REFERENCE 


' 


CROSS-REFERENCE ’ 
SYMBOL T LEN VALUE ODEFN REFERENCES (SYMBOL T LEN VALUE DEFN REFERENCES 
MSGOON A 022 28D8 2941 _MSG37N A 030 2D4F 3027 1611 
MSGOF A001 2809 2943 0340 0344 0350 0354 0360 0365 0370 0375 0378 0773 * MSG38 A001 2050 3029 
MSGOFN A 032 2910: 2945 0386 _  -MSG38N A023 2D8E 3031 1638 
MSGOL A OOL 2713-+ 2906 2282 _ 4SG39 A 001 208F 3033 
MSGOIN A019 2725 2905 2262 2283 ' £ MSG39N A 014 2090 3034 1645 
MSGO2 A 001 2726 2907 0072 ° MSG40 A001 2090 3036 
MSGO2N A 044 2751 2908 0072 0073 _ MSG4ON A 038 20C2 3037 1666 
MSGO3 A001 2752 2910 O17? { MSG41 A 001 20C3 3039 
MSGO3A A029 276£ 2911 Olli MSG41N A020 2006 3040 1662 
MSGO3b A 006 2774 2912 0122 MSG42 A001 2007 3042 
MSGO3C A 030 2792 2913 0122 { MSG42N A 034 20F8 3043 1676 
MSGO3E A 039 2789 2914 0133 MSG43 A001 20F9 3045 
MSGOS4 A001 276A 2916 MSG43N A 027 2£13 3046 1683 1690 
MSGO4N A018 27CB 2917 0178 { MSG44 A 001 2£14 3048 
MSGOS AO0Ol 27CC 2919 0977 “ MSG44N A 004 2£17 3049 1691 
MSGOSA A 047 2810 2921 0209 _ 4SG45 A001 2€18 3051 
MSGOSN A 035 27£E 2920 0204 0977 0978 ' € MSG45N A 038 2E3D 3052 1705 
MSGO6 A O001l 281E 2923 ee MSG66 A 001 2£3E 3054 
MSGO6N A 028 2839 2924 0308 0408 0513 : MSG46N A 037 2662 3055 9712 
MSGO9 A001 283A 2927 ' € MSG47 A 001 2€63 3057 
“SGOON A026 2853 2928 |  MSG47N A 036 ZzE86 3058 1728 . 
MSG10 A 00L 291E 2947 : . . MSG48 A001 2E87 3060 
MSG1ON A 016 2920 2948 0307 ' € MSG48N A 040 2EAE 3061 1735 
MSG1L A O00L 292E 2950 0396 0400 0413 0421 0425 0429 0434 0634 0679 0723 0792 i  MSG49 A 0Cl 2EAF 3063 
MSG1IN A 019 298F 2954 0437 ee ' . MSG49N A 036 ZED2 3064 1748 / 
MSG12 A001 2990 2956 “s ' { MSG50 A001 ZED3 3066 / 
MSG12N A019 2942 2957 0407 .  MSGSON A 039 2EF9 3067 1765 1773 
MSG13 A 001 2943 2959 '  MSG51 A001 2EFA 3069 
_ MSG13N A 030 29C0 2960 0456 0460 0468 0675. | & MSGSIN A022 2FOF 3070 1772 ; 
Sr as MSG14 A001 29C1 2962 . ' MSG52 A 00L 2F10 3072 ; 

MSG14N A 023 2907 2963 0512 | , MSG52N A 039 2F36 3073 1760 . 
MSG1S A001 2908 2965 0561 : . € MS6S3 A 00L 2F37 3075 | 
MSGISN A015 28469 2970 i  MSG53N A 037 2°58 3076 1787 / 
MSG16 A001 2AGA 2972 | . MSG54 A 001 2F5C 3078 
MSG1EN A 026 2A63 2973 0605 € MSG54N A035 2F7TE 3079 1794 
MSGI? AOOlL 2864 2975 |“ Ms662 a 001 2€7F 3081 0146* 0147# 1086 1097% 10989 1174 11788 18088 
MSGL7N A 030 2A81 2976 0632 i. MSG62N A040 2FAG 3082 1094 1978 
MSG18 A001 2482 2978 | € MSG63 A002 2FA? 3086 ee 
MSG18N A O27 2A9C 2979 0693 , | “"MSG63N A 019 2FE1 3086 1188 : 
MSG19 A001 2A9D 2981 oo its, | .. MSG6%4 A001 2FE2 3088 
MSG19N A 028 2AaB8 2982 0737 - 'MSG64N A 036 3005 3089 1634 
MSG20N A037 2A0D 2986 0738 | MSG65 A 001 3006 3091 0132 2086 
MSG21 A O01 Z2ADE 2986 | .MSG6S¥ A 025 3078 3094 2091 © 
MSG21A A 027 2820 2988 0768 . | € MSG66 A 001 3079 3096 
MSG21N A 030 2B4A 2990 0776 : MSG66N A 031 3097 3097 2424 , 
MSG23. A001 2866 2992 | | MSG67 A 001 3098 3099 - 
MSG23A A 017 2858 2993 0837 | € MSG67N A 030 3085 3100 0637 0797 
MSG23B A 031 2B7A 2994 0838 MSG68 A001 3086 3102 
MSG23N A039 2809 2996 0845 | _ MSG68N A 004 3089 3103 0638 
MSG27 A001 2BCA 2998 1073 1075 1077 1079 1081 | €1sc69 A 001 308A 3105 
MSG2TA A 040 2CB9 3004 1066 MSG69N A 007 30CO 3106 0639 _ 
MSG27N A040 2C€91 3003 | _MSG70 A001 30C1 3108 2348 
MSG30 A 001 2CBA 3006 | E€°-MSGTON A 022 3006 3109 2348 2349 
MSG30N A014 2CC7? 3007 1831 MSG7% A001 3007 3111 2104 
MSG3IN A OL¢ 2CD5 3009 1840 a | _ MSG71N A 040 30FE 3112 1113 
MSG32_ A 001 2CD6 3012 fae 7 | €msc72 A001 30FF 3114 
MSG32N A 034 2CF7? 3012 1849 a MSG72N A 010 3108 3115 0987 
MSG33 A001 2CFB8 3014 | - MSG73_ A OOL 3109 3117 0083 
MSG33N A 030 2015 3015 1902 | E:MSG73N A 013 3146 3119 0083 0084 
MSG34 A001 2016 3017 MSG74 A O0G1 3147 312121 0087 
MSG34N A 007 2D1C 3018 1907 |  MSG74N A 014 3180 3123 0087 0088 
MSG35 A001 2D1D 3020 - | €'Msc75 A 001 3181 3125 0078 
HSG35N A 008 2024 3021 1928 — ; MSG75N A 047 31AF 3126 0078 0079 
MSG36 A001 2025 3023 | ‘MSG79 A001 3180 3128 ¥ 
MSG36N A 013 2031 3024 2001 . | € MSG79n a 022 31€7 3130 1196 
MSG37 A001 2032 3026 1588 15432 - MSG8O0 A OOl 31£8 3132 2607 
DATE LSAUGTS OSNOV7S 24MART6 PROG ID eie © Ft: 1SAUGTS OSNOV7S 24MART6 PROG 1D C182 
EC NO. 827785 827827 827879 a PAGE | 38 | EC NO. 827785 827827 827879 PAGE 38A 
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160 MAINTENANCE OLAGNOSTIC PRoGRAN PART MOe 4247613 18M MAIMYENAKCE DIAGNOSTIC PROGRAM PART WC. szaveis 
PAGE 33 PAGE 39, 
{ 


Cis2 3340 FRIENDS TEST — MOOD 12 €La2 3340 FRIENDS TEST - MOD 12 


CROSS-REFERENCE © CROSS-REFERENCE : 
SYMBOL T LEN VALUE OEFN REFERENCES €SYMBOL T LEN VALUE DEFN REFERENCES 
M 0 3 3134 0o7 R A001 381A 3377 0285* 0292* 02399 0343% 0349% 03536 0359¢ 03648 03698 03748 03832 03952 
meeai” ; aor aoec sas 3735 sere & 0399% 0416 0420% 04248 0428 0433% 0455* 0459% 0463 0467 1040 
MSG81N A 038 3251 3137 2735 2736 ‘“ RDCKD A 065 3507 3230 2645 
MSG82 A001 3252 3139 2748 . RDDCF A OOL 3829 3385 1494 1508 1509 1528 1529 1539 1540 1544 1545 
MSGB2N A 044 32AA 3141 2748 2749 { RDDCFN A 010 3832 3386 1303* 1449% 1452 16038 17572 1942. 
MSG83 A001 32AB 3143 2787 RDDCR A 002 381C 3379 1304* 1384*% 1386 1460% 1444 16008 1753 1932 
MSG83N A 035 32E8 3145 2787 2788 _ROODR A002 381E 3380 1305# 1391 1393 14414 14645 1601% 1754 1937 19878 19389 
MSG84 A OCOL 32E9 3147 2809 { RDDGN A 005 35£1 3232 2655 
MSG84N A 035 3327 3149 2809 2610 “RDHAE A 005 3502 3229 2640 
MSGk&5 a 001 3328 3151 2831 ROHAO A005 35F5 3236 2675 
MSG85N £035 3366 3153 2831 2832 { RDKD A 004 35CD 3228 2635 
MSG86 A001 3367 3155 2853 ROLOG A 005 35E&6 3233 geen 
MSG86N A 035 3346 3157 2853 2854 ROROG AOOS 35FO 3235 6 
MSG87 AOOl 33A7 3159 2875 _ € -ROSNS A 024 3818 3374 1206® 1207 1207* 1628 1629 1629% 16318 1647# 1648 1648% 16506% 1651¢ 
MSG87N A 035 33€9 3161 2875 2876 , 1653*% 1869 1874 1879 1887 1892 1897 3279 
MSG88 A OOl 33EA 3163 2554 _ ROSNS@ A 002 3671 3279 1617 
MSGBB8N A 032 3409 3164 2554 2555 { RDVKD A 005 350C 3231 2650 
MSGE9 A001 340A 3166 2457 RDXNS A 005 35EB 3234 2665 
MSG89ON A 035 342C 3167 2457 2458 RECAL A005 35C€9 3227 2630 
MSG90 A OGL 3420 3169 2475 € RESET A O01 370F 3316 1160 
MSGION A 035 344F 3170 2475 26476 ' RETL C001 0041 3503 2333 2364 . 
MSG91 A001 3450 3172 2480 RIN A 001 0a03 0018 
MSGOIN A 041 3478 3173 2480 2461 € RTNPFC A 00l OA3A 0066 0020 
MSG92, A 001 3479 3175 2496 SAVARR A 004 1485 1129 11240 
MSG92N A 027 3483 3177 2496 2497 : SAVXR1 A 002 36FF 3303 2359 2360 
MSG93° A001 3484 3179 2500 { SBYTEO C 001 0208 3550 2309 
MSG93N A 030 3466 3181 2500 2501 “ SBYTEL C 001 0209 3551 
MSG94 A001 34E7 3183 2504 _ SBYTE2 C 001 020A 3552 0105 1996 
MSG94N A 041 3532 3185 2504 2505 € SBYTES C 001 020C 3553 0049% 0241 0247 0403 1213 
~ " M§695 £001 3533 3187 2538 ' “ SBYTES C 001 020D 3554 0059 0785 2410 PS ae Be ee eS eT 
MSGY5N A 004 3536 3188 2538 2539 : _ SCE A 003 3623 3248 2725 
MSG96 A001 3537 3199 2550 € SCHE A004 3627 3249 2730 
MSG96N A019 356F 3192 2550 2551 : SCNARG C 001 0020 3497 0852 0855 2471 
MSG97 A001 3570 31946 2743 - — SCRE A 00% 3618 3246 2715 
MSGO7N A 037 35AF 3196 2743 2744 € SCRHE A 005 3620 3247 2720 
MULTSW C 001 0080 3496 0212 2544 SEEK A 004 35C& 3226 2625 
NEXKEY A 003 LFDE 2326 2341 2362 _SELECT A OOL 13FC 1062 0142 0192 0970 2097 2436 
NINE AOOl 358C 3218 2526 2533 2592 2599 2775 2762 € SELIO A 002 37FB 3368 
NOCX AOOL 2031 23546 2345 SELOPT C 001 0040 3496 1099 1109 2452 
NOEC A001 2006 2338 2331 ' ' _ SELOO A006 1447 1084 1071 
NOSKIP A 001 1FBD 2315 2310 €[:SELOl A006 145F 1096 1087 
NXCMD A OO} OB91 0190 1047 1653 SELO2 A 005 1469 1097 1092 
NXCMO2 A COs O8CO 0211 0199 SELO3 A 00% 1479 1101 1115 
DPT A 063 366A 3274 0141 2096 2577 ; €°SELOS 4061 1498 2112 1104 1106 
OPTENT A Gos 20FD 2452 “ SINGFF A 004 22CF 2587 2585 
GPTION A © 37F9 3367 1108* 1817 1820 1833 2003 2070 2072 _ SINGFX A CO4 22F3 2594 2590 
PACK Ci 0226 3561 1004 1357 € SINGFY A 004 22€3 2584 2570 
PFC AGL: OAOT 0020 SINGN A 004 2281 2579 2576 
PIAR C001 0020 3456 SINGOP A 004 229F 2575 2572 
PIO A CG2 QAO] 0016 € SINGSW A 064 2243 2552 2547 2580 
PRR C COL 0040 3452 sio A 003 177F 1410 12449 1463 1480 1485 1552 15998 1613 i85@ 1984 1993 
PRIMT C 002 OZ21A 3558 QG7C GOTE 0081 0085 0113 0124 6135 O180 ©6185 0201 0208 0250 S1GQ  AOOl 36AF 3433 1234 1246 1310 1463 
0321 0439 0472 0515 0563 0607 0641 6695 0740 0805 0860 0847 € SIOR A001 3880 3434 1040% 1244 1425 
0975 0990 1125 1197 1843 1851 1957 1975 2006 2055 2065 2083 “SIZE C€ 001 0203 3548 0055 O778 O782 1354 
2086 2101 2280 2312 2346 2421 2455 2473 2478 2494 2498 2502 SNS & 002 3800 3373 1575* 1606 1607 1641 1650 1657 1658 17028 17518 18013 1864 2118¢ 
2536 2548 2552 2605 2733 2741 2746 2785 2807 2829 2851 2873 Z 2120 2125 2130 2133 2159 2160 2170 
PRINTL C 001 O080 3506 2321 2357 SNS23 A 00Z 3658 3268 1652 
PRIV A 002 370E 3312 SRETRY & 004 2329 2612 2739 
PRKBI A001 2067 2380 2397 3276 € SSwWOS C 001 0004 3463 2309 
PRKBI@ A 002 366D 3276 0101 '$SW10 C001 0080 3468 1996 
PRNTAA A 004 1409 11246 1067 1074 1076 1078 1080 1082 1095 1116 1882 1900 1904 1925 SSW16 C001 0002 3470 0105 
1945 - € ssw2F C001 0001 3476 0059 0785 2410 
PRY C 001 0018 3505 2320% 2321 2333 23568 2357 2364 SSW20 C001 0080 3471 0403 
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C192. 33340 ADAPTER MANUAL OPERATIONS PEM - HOD 22 





ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT “ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
29 | | LAST CHG 03 12 76 | 67 2 
3 DECK 4 : , e 4036 F2 87 10 68 J AMOPGO GO TO START ANOP 
4 SEQ 0 £2 ; : 69 # ; 
oe 5 ae , ; & 4039 38 01 OA1S ae LKRTRN SBF COM, AMOPSH RESET PROGRAM LINK INDICATOR 
0 6 BEGIN START O 
7 tOROOLASESESERERESE NERS AESES EDS SD CE SERELEDEE ETE EDSREDS EAST SETREREEEEEE : 4030 35 CO SDSS 72 L SIAR1, IARI RESTORE INTERRUPT LEV 1 IAR 
3 : €: 4041 CO 87 0000 73 AMOPX 8 to RETURN TO CALLING SECTION 
9 8 SECTION PREFACE 74 % 
10 ¢ 7 
ll Boece aetna oss ee & 
i2 * 
GAOO - 13 ORG X*0a00* 
14 2 . © 
ocis 15 C19 EQU x*ocige SECTION IDENTIFIER 
16 2 
Oa0d C192 0801 17 PIO oc XL2*Ci92¢ SECTION £0 AND REVISION LEVEL & 
0402 00 OA02 i8 oc XL1¢OG*s SECTIGN FLAGS ; 
0403 O1 OAQ2 19 RIN oc XL1‘*O1°8 CURRENT ROUTINE NUMBER 
0404 00006 GAO5S 20 oc XL2*0000* RESERVED é 
QA06 4045 OA0T7 21 PFC oc AL2ERINPFC? ADDRESS GF ROUTINE PREFACE : 
OA08 FFFF QA09 22 oc XL2°*F FEF ¢ RESERVED ‘ @ . 
23 * , 
O£0A €14000 cacc 24 UDTO oc XL3°C14000° 3340 YvdT = , 
OAOD 161000 OAOF 25 yvdTi Oc XL3"°201000° 5471 udT ! @ 
26 & , ' 
OA10 CAl8 27 os xL9 . RESERVED i 
28 & s i 
0419 00 O0Al9 29 CON DC ZL 2E*O08 3340 PROGRAM COMMUNICATION AREA i @ 
OAlA OA1A 30 DS XL RESERVED | 
31 © | 
OAL8B OAC 32 LORIO oS AL2 MICROCODE LOR (C17) IN STG INDICATOR! @ 
a et OA1D OC19 OALE 33 AMGPIO oc AL2(C19} AMGP (C19) IN STG INDICATOR 
OAILF OA20 34 FAOID DS AL2 ATTACHMENT MICRO-CODE (FAO) IN STG | @ 
35 ® 
0A21 . 0A39 36 SYPFC oS XL25 SECTION PREFACE STORAGE AREA 
37 * | 
38 | @ $ 
38 
38 i 
38 '@ 
39 Sao een pamerseneueiiniiny 
ye 40 @ s 
Bc .41 @ LINKAGE FROM OTHER 3340 DIAGNOSTIC SECTIONS pa 6 
42 ¢ 2 
; 43 CRSUCSSRERERAESES SOR OSSESS EROS SESS eseRENeETERTeSAESTESSERSSEESELESTTES | 
4 a4 & 
4000 45 GRE = X*40008 | ; 
¥ 46 2% 
4000 GSC19 4601 47 anop oc aL 2iC19) SECTIGN IDENTIFIER | & 
48 & 
£002 34 08 4044 49 $T AMOPX< 3 sARR SAVE RETURN ADDRESS | 
50 * 
4006 38 01 0Aai19 $1 Tex COM, ANGPSW BRANCH IF AmMopP | & 
400A CO 10 4184 52 BY CHD WAS ABNORMALLY TERMINATEC e 
53 * | 
4Q00E 3a 01 0a19 54 S8N COB, A#OPS SET PROGRAM LINK INDICATOR 
_ $5 & : 
4012 38 01 SE8A 56 TEN = IND, LDS BRANCH IF THIS 15 NOT | @ 
4016 F2 10 06 57 JT AMOP 1 FIRST ENTRY TC amoP j 
58 ¢ ! 
4019 GC 18 OA16 0439 $9 HVC COM~3 (25) » SVPEC RESTGRE CALLING SECTION PREFACE & 
60 & 
&01F OC 01 SDFF 0402 Si AMGP1 MYC SENSE(2),PID GET 10 OF CALLING PGK | 
4025 3B OF SDFF 62 SBF = SENSE ex*0F* MASK GUT LEVEL IND | & 
4029 00 01 SDFF SEZE $3 Cle SENSE (23,0126 WAS IT CIS(FRIENDSI2 
402F F2 61 04 64 NXE ae7 GO IF NOT 
6s | ® 
4632 34 CO 6112 &&% st STAR, IARI SAVE INTERRUPT LEV 12 Zar 
| @ : : 
DATE 23AUG75S OSnNOVTS 24RARTS PROG ID. ane DATE 23AUGTS OSnOv7S 24HART6 . PROG ID (ClS2° 
EC MO. 627765 827627 ' 827879 PAGE . | e EC NG. 827785 627827 82787$ PAGE 2a 
C 1@ 
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4247615: _ ISM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247615 
PAGE 2. & 3 PAGE 2a 
C192. 3340 ADAPTER MANUAL OPERATIONS PGH —- MOD 12 co 3346 ADAPTER MANUAL GPERATIONS PGK - ¥OD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT | “ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT 
: - , 
76 FSESHERSESSEKESSKSEVESSE KES SKISESE SSSSSSESRLESKARKSSHLKSESSESLSALSS SAKBESLSELESSSIE ' S 2144 ¢ 
77 * AAAAAAAAAA NM me ooooscosocea PPPPPPPPFPP * | &045 CO 8&7 O21A 145 8 PRINT PRINT ®1OP IS RUNNING® 
78 * AAAABAAABARA RMB aMM oacacacacane PPPPPPPPPPPP «& | £049 06 40K9 146 oC KL1L* 06° SPACE 6 LINES AFTER PRINT 
79 ® AA AA aaMM MMMM co 20 pp pp ¢ . €3 4&0AA OF 40AKR 147 oc AL1(HSG2N-MS62¢ 1) LENGTH OF MSG ¥ 
80 & AA BA HM BM OMM BR oo oo PP ep s oy &0A8 6419 40aC 148 oc AL2¢(HSG2N) ADDRESS OF MSG 
Bi * AR BA MM MMMM OMM 80 oo PP PP & 149 * 
62 * AARAARAARABA Mh 0OUMN OM oo oo PPPPPPPPPPPP * € S0AD 3C GO SESS 150 RTNIB MYK OCMDSH.O CLEAR *D* COMMAND SHiTCt 
a3 % AARAAAAAAAAA iM pe so oo PEPPPPPPPPP * 1S ® é 
84 & AA AA mM ah oG co PP + 152 * a cae cn rer ceam anemnan seme ane omen 
85 * Ah aA ae ate so oo pp Fs & 153 % DETERMINE WHETHER TO USE 5471 KEYBOARD OR DATA SWITCHES * 
86 & AA RA He a4 oa oo fF & 154 ® FOR INPUT : 
87 * AA A& wi i coccaocococe pep % 195 Sommer men ee Py 
88 © AA AA ne aM aosonncoocas Pp 2 ec: 40B1i 3B 80 SEBA 156 SSF EMDeSWCNTL RESET DATA SW CTRL INDICATOR 
89 = ®& s iS? , 
GO SkESSSSSES Se EseSSerhKE Sess GESCASSESELKTLERKSSSEREHKHSLS ECSSE ME SRERSTA SASLS £085 38 02 90204 158 TBR SBYTE2Z.SSU1L6 1S SENSE SH¥1iS ON? REH 
a €&. £089 CO 10 4¢92 i59 eT SWENT GC TO SWITCH ENTRY IF IT IS REY 
4065 O1 4045 92 RTNPFC OC XLLEOL¢ ROUTINE NUMBER 160 # 
4046 B80 4046 93 oc XLEfBO* MANUAL INTERVENTION REQUIRED 4080 3¢ 20 OAOE 161 Tae vUpTl-2,X°208 1S 5471 ON SYSTEM? 
4047 FEFF 4048 94 oc XL2°FFFES GNLY ONE RGUTINE E% THIS SECTION €; 0Ci CO 10 C92 162 aT SWENT GO TO SWITCH ENTRY EF OT 
95 & 163 @ 
9G Samara. ARMORY REM EP RS IED SI ES CR SOMES CDN STE DD SE LS I NH > NES eg 16& Baveverercoue en eran om aes acne arc nen cr nae ETD TT ASO RS 
97 PRINT HEADING 2. & 165 * READ THE 5471 KEYBOARC FOR COFMAND IMPUT % 
98 tauewew A A CO LM TORRE DOE EA LINEN CE SOP DIOS gOS CH axnearese BE 166 #=— nen an an en ee een ae eSOLISO CO OLE LE LA OA 
99 & 167 * 
160 @ & 4065 CO 87 4B8E 168 KYBENT 8 READKB READ 5471 KEYSOARD 
4049 CO 87 O21A 101 AMOPGO B PRINT PRINT HEADING 169 & 
4£04D 46 404D 102 pC XL1%46¢ SPACE 6 LINES AFTER PRINT 170 ¢-—~-—--—~--——— renee 
&04E 28 40%E 103 oc ALL CHONGN-HDNG? 3} * ADAPTOR @ i7i * BEGIN SCANNING THE IMPUT BUFFER TO DETERMINE WHAT s 
&0GF 6366 4050 104 oC AL2(HDNGHI MANUAL OPERATIONS L72 * OPERATION IS TO BE PERFORMED. % 
4051 C106 4052 105 pC AL2(HLTOG) PROGRAM L739 Semen ne SL CT OT 
106 * & 174 * 
er ea a £053 38 OL SEBA 107 TBN END,LOSY SUMP ES THES 2S NOT £009 €2 OL 61L0C 175 KYBDEC L& ERPUT pXRE SET UP INPUT BUFFER POTRTER 
4057 F2 10 ZE 108 Jt RTRLA FIRST ENTRY TO ANGP 17@ * 
09 * & £000 7D 40 00 1?? CLE Ole RRLPSS® © WAS & “BLANK® COMMAND DETECTED? 
405 OD OL 6203 SDF4 210 CLC} «$120 25,K8009 IS THIS & 32K BASNERE 2006 CO BL 4174 178 BE CYCLE BRANCH If YES. 
4060 F2 O1 21 Rid JNE = RTRL JUMP TF WOT L739 @ 
Li2 e : “ 6006 TD CL OO 180 CLI Ol oe RRLICtAP WAS AN "At COMMAND DETECTED? 
£063 OC 01 OAZO SDEB Li3 HVC FAOID( 2), KOG00 ENDICATE FAO 1S OVERKRETTER BY Aap ™ £007 CO B81 4485 181 BE ACMD BRANCH IF YES. 
114 @ 182 % 
4069 30 Cl 0232 Lis CLE UTAB,X*CLe WAS EPL FROM 33407 | €3 4008 7D Ce 06 183 CLi «= Gla XRL}.C*D? BAS A *D*® COMMAND DETECTED? 
406D €2 O1 14 Lhe JNE  RTN2 GO LF NOT Ee S0DE CO 61 4870 184 BE OCHD BRANCH IF VES. . 
LL? @ 185 ¢ ’ 
4070 CO 87 O21A ais 8 PRINT PRINY WARNENG MESSAGE © 40E2 7D C7 00 186 CLE Of pXRLF CCG? WAS A *G® COMMAND DETECTED? 
4074 O1 4074 119 OC XLLeEOL® 40E5 CO 61 4478 187 BE GC MD BRANCH IF YESe 
4075 37 4075 120 oc Ai 2 CHWARN3N-WARN3Z¢ 1? 188. 
4076 63€5 4077 122 DC =—_ «AL 2 CWARNSHE € 09 70 ce 00 189 CLE OC o MRED SEO WAS AN ‘tH* CORHAND DEFECTED? 
4078 CO 87 021A 122 8 PRINT GOEC CO 8) 4214 190 BE HCMD BRANCH IF YESe 
407C 06 4070 123 Oc XL 2°06" 191i @ 
4070 45 407D 124 oc ALL ( HARNGN-WARNGCL © 40F0 70 C9 OG 1$2_ CLE Gl eXRLP CE? WAS AN °1* COMMAND DETECTED? 
GOTE 640A 407TF 125 oC AL2¢WARNGONE 40F3 CO 61 422£ 193 BE ECHO BRANCH IF YVESe 
126 © i 194 ¢ 
4080 3A 40 OA19 127 SBN COM, NOMPL IMHIGIT *APL*® COMMAND ON 22K © SOFT 7D E3 00 195 CLE Of, RRED-C*TE WAS A *T*® COMMAND DETECTED? 
128 ¢& i &0FA CO BL &I646 196 BE TCRD BRANCH IF VESe 
084 3A O1 SEBA 129 RTNL SBN [ND,L0SH 197 & 
130 =< i &3 S40FE 38 40 Oats 198 TBR COM, MOMPL BRANCH TF MPL 
131 cern ee we ees commen amare va eine an ner em nem ee comer cee <6 | &102 62 16 6¢ 199 st CHDERR COMMANG ES INHEBITED 
132 @ ENEFEALEZE THE EGP REGISTERS STQRAGE AREA | 200 © 
si 133 e noone > ooo eve enone eae een | & 4105 40 02 02 SE4&4 201 CLE =- BABE ARL De MPL WAS AN °MPL® COMMAMD DETECTED? 
134 * 429A CO 81 4ilA 202 BE MPLCKD BRANCH LF VES 
408 3C 46 6165 135 RTMLA MMVI REGTBN.C* ¢ CLEAR REG STORAGE AREA ' 203 * 
4O8C OC 5B 616% $165 136 - MVC REGTBEN-LEREGTSN-RESTELE RECTAN TO BLANKS i & &LOE CO BT GZla 204 CMDERR 8 PRINT PRINT "INVALIO COMMARD® 
13? @ | GL12 06 4412 205 oc RLBL OSE SPACE 6 LINES AFTER PRINT 
4092 3C O1 SES84 23Q RINIC MVE RUSH, F SET ATTACHMENT RUNNING INDECATGR &i13 iF 4113 206 oc AL LUERREN-ERR 1¢ 1) LENGTH GF 45G 
4096 31 CT SE2S 239 LIG SHHALT.x*C7* CHECK TG SEE : gs &11& 656% 4123 207 ec AL2(ERRIN} ADDRESS OF MSG 
09% 30 C? 586D 240 SNS  SYPTEM,KtCT® 1€ IGP {$ RUBAI AS ; 4116 €O 87 40AD 208 8 RTNLB RETURH TG AWAIT NEXT COMMAND 
241 & \ 203 & 
&£09E 38 02 5860 142 TEN S¥PTEM, KO IGP MALTED? | & 210 Hemme - Sk A A LN OORT Ce a 
40a2 F2 10 08 143 37 RTRLB IF SG>, SKEP PRINTING *RURRING® HSC 2ii ® MPL ¢MICRO-PROGRAM LOAD} CGMMAND ENTERED. SECTION CIT © 
: { @ * 
DATE 23AUGTS OSNOVTS 26MAR TC PROG 1D 619-2! DATE 23 AUGTS OSNOVTS 24MAR TC PROG ID Ci%~2° 
EC NO. 827785 827827 6273879 Pace 2 EC NO. 827785 827827 827879 PAGE 
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0H MAINTENANCE DIAGNOSTIC PROGRAM - - ae | PART NO. 4247615 IBM MAINTENANCE DIAGNOSTIC PROGRAM eee ees 
C192 3340 ADAPTER MANUAL OPERATIONS PGM — MOD 12 pit? 3340 ADAPTER MANUAL OPERATIONS PGM ~ MOD 12 
ERR LOC OBJECT CODE - AOOR STMT SOURCE STATEMENT “ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
: i 
212 * WILL BE LOADED AND EXECUTED. — .- . z80 * 
313 Se +. © 419C TO 87 4268 eer 8 HSIOP BRANCH TO "HALT & SAVE IOP REGS*. 
214 * 
4114 CO 87 O2Z1A - 215 MPLCMD b&b PRINT PRINT "MPL IN PROGRESS® & 41a0 CO 87 428C . - B JOPREG GO GENERATE I10P REGS FOR OISPLAY. 
ae ae ce Sie Be Ary aeeinneeeell ; 41A4 3D 01 5E62 285 CLI CYCSWyl MORE THAN 2 CYCLE? 
4120 6433 4121 218 oc AL 2(MSG6N} “3 @1a8 F2 81 12 ace : JE CYCLES BRANCH IF YES. 
219 * : a 
4122 38 O1 OA19 220 T8N COHM,AMOPSW SKIP IF LINK ,  “1AB OC 02 6532 SOFB 288 MVC RANMSG4+6(3) 5 ZONE MOVE °1" TO MESSAGE 
Sree ene eS *. e reer Eyer ean eee c 4181 CO 87 O21A ooo 8 PRINT PRINT *RAN 1 CYCLE® 
. z 
4129 OC 18 0A39 0A18 223 MVC 3 3=—s- SVPFC 1.25) sCOM-1 SAVE SECTION PREFACE e Ve . a eo - ars 
224 € ; S 
412F 0D 01 OAIC 4155 225 MPLOL CLC LDRID(2)eC17 BRANCH IF LOADER nas 4187 6538 4188 289 . oc AL2(SSIOP) 
cee eee 337 * eer een wry ween. _€ 4189 co 87 5877 295 8 CMPPRT GO PRINT REGISTERS 
4138 00 01 6COl 4155 228 CLO = LOR41 (29-017 BRANCH IF LOADER IS 296 * 
#13€ F2 81 18 229 JE LoRGO STILL IN MAIN STORAGE : © 418D 3C 00 SE82 ad CYCLES HvI = CYC SW 0 CLEAR SWITCH. 

230 * acca ease cana ideale 
aes Ge ee 4145 oa a ue ais eoee : Ta aAsine SECTION C17* 300 * CONVERT THE HEX VALUE ENTERED FOLLOWING THE °G* COMMAND TG & 
4146 13 £146 233 uC 1L1*19° | @ 301 * DECIMAL AND STORE IT IN THE DISPLAY MESSAGE. THE HEX NUMBER #& 
4147 6446 4148 234 oc AL 2(MSG7418) 302 * 1S GONE BYTE LONG ANDO RESIDES IN *VAL1*. THE CONVERTED RESULT * 

235 * | . 303 * WILL BE STORED IN *CONV3". : 
4149 OC 00 SE8B 0A19 236 MVC = SVCOM.19 COM SAVE COM AREA INDICATORS | @ a -—--- wanna =e 
237 * 
. Ad Ds. 41C1 OC 02 SE16 SEOD 306 MVC CONV3(33 »SLANK _ CLEAR AREA TO BLANKS~< 
aise oe elena 4153 oa oC ere re F eect ib C17 | €. 417 3¢ 00 5E86 307 MVI CICTRsO ZERO OUT A COUNTER. 
4156 OC1? 4155 240 C17 oc XL2°0C17¢ | 41CB C2 O1 5E16 208 : La CONV3,XR1 SETUP ADDRESS OF GUTPUT AREA 
241 * 
4156 OC 06 0A19 SE8B 242 MVC ©COM(12.-SVCOM RESTORE COM AREA INDICATORS | €  41cF 3D 0a SETF 310 CVD2 CLI VALLseX*OAt NUMBER TO BE CONVERTED < THAN 10? 
oe 4 F2 0 311 Jt CvD1 BRANCH IF LESS THAN 10. 
#15C CO 87 6C02 oan torso B LDR+2 BRANCH TO LOADER. | ra oe 312 * 
245 * | €3 4106 0€ 00 SE86 SEBC 313 ALC CICTReXi aNecR ENE Nt COmien Ore 
. 410C OF 00 SETF SESE 314 SLC VAL1,K10 SUBTRA é 
Seer ne oar * : arn Spr ae | e 41E2 CO 87 4SICF 315 B CvbD2 GO COMPARE NEW RESULT. 
249 & COME HERE IF THE COMMAND IS A *T* (TERMINATE *AMOP*). TEST * G1E6 3A FO SETF 317 CVD1 SBN VAL1,X*FO* *OR* IN ZONE BITS. 
250 * TO SEE 1F *AHOP* WAS INVOKED BY ANOTHER PROGRAM. IF THE ANSWER? ! _ - 1EA 4C 00 00 SETF 318 MVC 3 =—s-:« Of » XRD o VALI MOVE seen Cree Oe 
251 * IS YES, THEN RETURN TO THE CALLING PROGRAM ,ELSE TERMINATE : €: aiee a6 St sues . 219 Ae . peoraret Sub eaet E oo oe “ 
52% tamoP*. : 
S55 Pee enemas * | Gl1F7 F2 B81 OE 321. JE cvo3 EXIT IF NO. 
254 * | 322 * : 
4164 CO 87 0212 255 TCHD 8B TEST ALLOW USER TO TURN GFF SSW 05 | atte 4 a0 oer SEB6 ae2 ave ae ps eCICTR pave. coeur: OF COUNTER TO VALI. 
256 & ° : OUN ° 
4168 38 O01 Oal9 257 TBN COM,AMOP:wW. ANOTHER PGM CALLED *amoP*? | €: 4294 Co 87 41cF ae2 : 8 Cv02 GO TO COMPARE. 
T T T 
Beran eee ose * oe icuieca Pe nae en een ee Speen Onna | 4208 OC 02 6532 SE16 327 CVD3 MVC RANMSG+6(3)-eCONVS MOVE #@ OF CYCLES IOP IS TO RUN. 
4 TERMINATE *ANGP* 328 + 
pi cers eee oe 2 r ee, =e 420E CO 87 O21A 329 8 PRINT PRINT °RAN X CYCLES THEN MALTED* 
262 * ane. * 4212 O01 4212 330 DC XL1°O1* 
263 * COME HERE IF THE COMMAND DETECTED WAS A BLANK’. THIS * & 4213 1A 4213 331 oc AL1 CRANMSN-RANMSG41) 
264 2 COMMAND TELLS THE PROGRAM THAT THE ADAPTER MICROPROCESSOR IS * “~ 4214 6545 215 332 pc AL2{(RANMSN) 
265 * TO BE RUN FOR 1 CYCLE AND THEN HALT. FOLLOWING THE HALT THE Ps 333 * 
266 * IOP EXTERNAL REGISTERS WILL BE DISPLAYED ON THE SCREEN. * @ 4216 co 87 577 334 CYCLE2 B CMPPRT GO PRINT REGISTERS 
4174 3C 01 SEBO eco CYCLE MMVI VAL1As1 SET # OF CYCLES = 1. '@ 337 * COME HERE IF THE COMMAND DETECTED WAS AN "H® TYPE COMMAND. THIS ® 
4178 C2 02 586E 270 CYCLEL LA IPHALT,» XR2 "HALT ITOP® STRING ADDRESS. 338 * COMMAND TELLS THE PROGRAM THAT THE ADAPTER MICROPROCESSOR IS * 
417C CO 87 5803 271 B SVPCTL BRANCH TO *CONTROL/EXECUTOR® SUB. 339 * TG BE HALTED. FOLLOWING THE HALT THE PROGRAM WILL DISPLAY THE @ 
| 272 ¢ '@ 340 © IGP INTERNAL REGISTERS. : 
4189 OC 00 5987 590A 273 MVC} 8=—«- CYC KK C19 EPKREG SETUP K-REG. 341 a 
4186 3a G8 5987 274 SBN CYCKe8 TURN ON "HALT IOP* BIT. 342 
418A C2 02 5973 275 CYCLES LA LPSTEP oXR2 SINGLE CYCLE IGP STRING ADDRESS. ' @B 42140 co 87 4268 343 HCMD 8B HS 10P BRANCH TO "HALT & SAVE IOP REGS*. 
418E€ CO 87 5803 276 8 SVPCTL BRANCH TO "CONTROL/EXECUTOR® SUB. ; 344 % . ee aE 
277 ® 421E CO 87 O21A 345 
4192 OF 00 SE8O SESC 278 SLC = VALIA,K1 OECREMENT LOOP COUNTER. 4222 O1 4222 346 oc XL1*O2¢ * 
4198 CO Ol 418A 279 BNZ CYCLE3 LOOP TIt DONE. 4223 OB 4223 347 DC ALL(MSG3N-MSG3613 
DATE 23AUG7S OSNOVT7S 24MARTE PROG 10 Ci9~2 Boar 23AauGTS OSNOVTS 24MARIG PROG 102 C1g=2 > 
CNG. 827785 827627 227879 PAGE 3 oe NO. 827785 e27827 827879 PaGE Pes 3a 
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PART NO. 4247615 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO 4247615 
PAGE 4 € PAGE 4A 
Ci92. 3340 ADAPTER MANUAL GPERATIONS PGM —- MOD 12 eo 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
416 * (7) FTI. FILE TAGS IN REGISTER. * 
Peery NOP tee * preieonene @ 417 * (8) FHF. FILE HAROWARE TAGS REGISTER. : 
RAT EGS FOR PRINTING. 418 * (9) FTR. FILE TRAP REGISTER. 
gee eT heen ae1 * . ee Pepe eae ners ee @ 419 (10) FTG. FILE TAG GATE preteen ce ; 
PPR GO PRINT REGISTERS 420 + (11) OXxCc. DATA XFER CONTROL ° 
Se og ace aes * . Me 421 * (12) SBO. SENSE BYTE 0 Reet stene : 
356 ton-~-—— a ig e S oeaeeee e scene *' 422 * (13) SCN. SCAN CONTROL RE Re : 
355 * COME HERE IF THE COMMAND DETECTED WAS AN *I* TYPE COMMAND. THIS#: 423 & (14) OST. DEVICE Sinus Reet sren: : 
356 *# COMMAND TELLS THE PROGRAM TO INHIBIT ADDRESS COMPARE STop IN *: e act : “ nee Deore ciaeuas cae ce awee : 
357 * THE *10P*. * ‘ ; 
aes * : 427 * (18) OLS DATA LOCAL Rear Tens eee cceanuziae : 
e iT BUF tT 428 * IN ADDITION TO THE ABOVE REGISTER DISPLAY. 
aoss 0c 84: e3ar gee” Mee TeTBUEN= Lee; SuER buen veg 3 oe S 429 * WILL SHOW IF ADDRESS COMPARE IS ACTIVE OR INACTIVE AS WELL * 
4232 OC 84% 633F 6340 361 MVC) 3=—s PTBUFN-LUPTBUFN-L4) ,PTSUFN CLEAR L4& TO L SIEGE BORAT ERG: BROCRAM LEVEL BOTUTER: - 
4238 OC 9C 62BA 6288 362 MVC =—L4&-1LIL4-L1)2L4 CLEAR L1 TO L3 i 430 * AS THE VALUE OF INDE ’ end i 
423E 3C 00 SEA8 363 MVI =: L6Na20 CLEAR PRINT LINE END ADDRESS AREA @ ae te cl ucla Se : — * 
4242 OC OA SEAT SEAB 364 MVC = LON@- 1 (LEN@-PRTNG) »LENa TO ZEROS aetna ne _ eo eeen 
365 433 * 
4248 38 80 OA19 366 S8EF COM,sADRSTP RESET ADDRESS STOP ENABLED INDICATOR . €> 428C 34 08 441C€ 434 IOPREG ST ERE ene aye oo ADDRESS 
424C 38 04 590A 367 SBE IPKREGs4 INHIBIT ADORESS COMPARE STOP. i ae 34 Be a 22 ae, Cae Sat 
4250 C2 02 5904 368 LA RSKREG, XR2 RESTORE K-REG STRING ADDRESS. 4294 34 ’ 
369 * i €3 437 * = é 
4254 VPCTL BRANCH TO *CONTROL/EXECUTOR' SUB. 4298 OC SC 61C2 6165 438 MVC HSTBLNCREGTBN-REGTBL41),REGTBEN STORE LAST VALUES 
pneee same ones ae * : oe > &29E 3C 40 6165 439 MVI REGTBN,C* * CLEAR STORAGE AREA FOR 
4258 CO 87 5108 372 8 SUBAC1] GQ CLEAR AODRS COMP INDICATOR €: 42A2 OC 5B 6164.6165 a MVC = REGTBN-L{REGTBN-REGTBLI,REGTEN NEW REGISTER VALUES 
373 * a 12 . . 
eg. ,; Z| pe UE TO BE PLACED IN I0P REG. STORAGE * 
375 © *#e RUNADP SUBROUTINE  +*¢*¢ €} @ 443 * GENERATE CHECK STOP VALUE TO BE PLA * ° 
376 * THES SUBROUTINE IS ENTERED TO START THE ADAPTER AND ALLOW IT = ¢, ror aa en ena amas 
377 * TO RUN INDEFINTELY. s, 
es € 42A8 CO 87 02iE 446 B UNPACK UNPACK IOP CHECK REG 
a a9 : = —t, © 42AC O01 42AC 447 oc xLae1? LENGTH 
380 * 42AD S90F 42AE 448 oc AL2(£PCHK) AREA TO BE CONVERTED 
425C C2 02 5961 381 RUNADP LA RUNIOP ,XR2 *RUN IOP* STRING ADDRESS. & 4&2AF 6158 42B0 piesa “ oc AL2(CHK) CONVERTED RESULT 
ae © , | ‘ F MIAR 
BRANCH TO *CONTROL/EXECUTOR® SUB. -@2B1 3C 40 6109 451 MVI  MIARAeC*® ¢ REMOVE *a* IN FRONT O 
Ree ee ee anc * . bis i &3 42B5 3C 40 610€ 452 MVI SIAR@,C* * REMOVE *a* IN FRONT OF SIAR 
4264 CO 87 4092 385 8 RTN1C GO PRINT "IOP 1S RUNNING! 4289 3C 40 6113 me 2 MVI DSARA.C* * REMOVE *2° IN FRONT OF DSAR 
386 ¢ | ‘ 
388 *« *## HALT AND SAVE I0°P REGISTERS ##6¢ +| e 456 * UNPACK BITS 0-2 OF **IPAPTR®* AND PLACE IN °APTR® ENTRY IN : 
389 * THIS SUBROUTINE WILL HALT THE ADAPTER AICROPROCESSOR AND SAVES : ® 457 2% THE IOP REGISTER STORAGE. . 
392 * | 4280 OC 01 5860 590C 460. MVC = SVPTEM(2), IPAPTR MOVE ACC PTR TO TEMP AREA 
4268 34 08 “288 393 HSIOP ST HRET*¢3 ,ARR SAVE RETURN ADDRESS € 4£2C3 OE 01 S86D 586D 461. ALC) « SVPTEM(2) sSVPTEM SHIFT LEFT 4 suseee sine MOV ING 
426C 34 02 4287 394 ST XR2SV143_,XR2 SAVE XR2 ; 42C9 OE 01 586D 5860 462 ALC SVPTEM(2),SVPTEM * BITS 0-2 TO BI ° 
4270 3C 00 SE84 395 MMVI =. RUNS We 0 CLEAR RUN Si. 4&2CF OE 01 586D 586D 463 ALC 9 SVPTEM(2)sSVPTEM * 
neve Co 6? Stos a7 “a sien cant te0 EXECUTE sraruc © 4205 CO 87 O21LE | ae : 8 . UNPACK UNPACK APTR 
4278 CO 87 5803 397 8 SVPCTL UBRTN xXECur 5 
398 « : | . 4209 O1 4209 466 pc XL1°1°® LENGTH 
427C C2 02 5872 399 LA IPSTAT »XR2 POINT TO SAVE 10P STATUS STRING ! & &2DA 586C 4208 467 oc AL2(SVPTEM=1) ‘AREA TO BE CONVERTED 
£280 CO 87 5803 400 © 8 SVPCTL - €XECUTE | 42DC 615D 4200 ee . oc AL2CAPTR) CONVERTED RESULT 
601 * 
> 
4288 CO 87 0000 403 HRET 8 -<. RETURN | e 471 * GENERATE PPTR, X-REG, AND SENSE 1 AND 2. * 
405 * —— ee * 473 * a 
406 * *o¢ JOPREG SUBROUTINE  *** 2! 42DE OC 00 586D 5808 474 mvc SVPTEM(1L} eRSPPTR-1 MOVE PROC PTR TO TEMP AREA 
407 * THIS SUBROUTINE IS ENTERED TO DISPLAY THE EXETERNAL I0P * 42E& 3C 00 586C 475 MVE «—- SVPTEM-1.20 CLEAR LEFT BYTE OF TEMP AREA 
408 * REGISTERS. THE SUBROUTINE IS ENTERED AFTER HALTING THE IOP. + C: &2E8 OE 01 5860 5860 476 ALC SVPTEM(2),SVPTEM SHIFT LEFT 4 TIMES» THUS, MOVING 
409 * THE FOLLOWING REGISTERS ARE DISPLAYED: *. 42EE O€ 01 586D 586D 471 aes pala eal ae . BITS 0-2 TO BITS 4-7 
410 * (1) MTAR. MAIN INSTRUCTION ADDRESS REGISTER. *. 42F4 O£ 01 S860 586D 478 AL VPTEM(2), - 
, . . ° =: * . 
ae : ‘35 Oeak. Pata <1Gne deonese accicrece ee *| © 42Fa CO B87 O21E ais e. ce feeen ®PPTR® FROM HEX TO EBCOIC. 
413 * (4) FBO. FILE BUS OUT REGISTER. *! 42FE O01 @2FE 481 XLLe ° - 
414 % (5) FTO. FILE TAG OUT REGISTER. *. & &2FF 586C 4300 482 oc AL 2(SVPTEM-1) AREA TO BE CONVERTED. 
415 * (6) FBI. FILE BUS IM REGISTER. + 4301 615F 4302 483 oc AL2(PPTR) CONVERTED RESULTS 
DATE 23auG75 OSNOVT75S Z24NARTO PROG 1D C19-2' a 23AUGTS  OSNOV7S 24MARTE PROG 10 ae 
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C192 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 "| 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | 
484 * | 
4303 CO 87 021€ 485 B UNPACK CONVERT *XREG* FROM HEX TO EBCDIC. 
4307 O01 4307 486 DC XLiene LENGTH. 
4308 5902 4309 487 0C  AL2(RSXREG-1) AREA TO BE CONVERTED. 
430A 6163 430B 488 DC —- AL2 (XR) CONVERTED RESULTS | 
489 * 
430C CO 87 021E 490 8 UNPACK CONVERT *SNS® FROM HEX TO EBCDIC. | 
4310 02 4310 491 oC = XL °2# LENGTH. | 
&31) 5012 4312 452 oC CAL ZG SNSAVE) AREA TO BE CONVERTED. 
4313 6165 4314 493 oc AL2(SNS) CONVERTED RESULTS 
494 * | 
496 GENERATE VALUE OF INDEX REGISTER USED IN RESTORING IOP REGS. * 
497 %&--~ —~-- -* | 
498 * 
4315 08 02 586D 590E 499 MVX  SVPTEM,IPLINK(X*02*) PUT LINK 1-4 TO BITS 4-7 | 
4318 3B FO 586D 500 SBF SVPTEM,X*FO* ZERO BITS 0-3 
501 * 
431 38 04 590E 502 TEN IPLINK,X*04* 1S LINK 0 ON? 
6323 F2 90 04 503 JF LNKSKP GO IF NOT | 
504 * 
4326 3A 10 586D 505 SBN SVPTEM, X*10* TURN ON LINK © BIT | 
432A OC 00 S8DE 590C 506 LNKSKP MVC RSAPTR—1,IPAPTR(1) MOVE ACCESS PTR TO RESTORE BUF 
4330 3B 1f S8DE 507 SBE RSAPTR~1,X*1F* RESET UNWANTED BITS | 
4334 OE 00 S8DE S86D 508 ALC RSAPTR-1,SVPTEM(1) COMBINE ACC PTR AND LINK (PPPLLLLL) 
509 * 
433A CO 87 O21E 510 B UNPACK CONVERT "IDX® FROM HEX TO EBCDIC. | 
433E 01 433E Sil pc sCixLa# LENGTH. 
633F 58DE 4340 512 DC  AL2(RSAPTR-1) AREA YO BE CONVERTED. | 
434% 6161 4342 513 oC AL2¢1DX) CONVERTED RESULTS | 
514 * 
Faye’ wake See ee Ae 515 Gene e ee. 2 ewan eer aan, a eae x ! 
516 © GENERATE ACTIVE ADDRESSES FOR *MIAR*, *SIAR® AND *DSAR®. * 
517 = Eee es 
518 
4343 38 10 590C 519 TBN = IPAPTR,X*108 IS MODE 0 ON? 
4347 F2 90 08 520 JF MOOFF GO IF NOT ON 
521 * 
434A 3C 7C 6113 522 MVI -OSARa.C*a? PUT *a* IN FRONT OF DSAR 
&34E CO 87 4365 523 8 GETALS GO READ ALS NEXT 
524 & i 
4352 38 08 590C 525 MOOFF TBN  IPAPTR,»X*08* 1S MODE 1 GN? | 
4356 F2 90 08 526 JF M1 OFF GO If NOT ON 
527 * ; 
4359 3C 7C 610€ 528 MVI ss SIARaeC*a* PUT ‘a* IN FRONT OF SIAR | 
435D CO 87 4365 529 B GETALS. GO READ ALS NEXT 
530 * 
4361 3C 7C 6109 531 MIOFF MVI MIAR@eCta* PUT *a* IN FRONT OF MIAR | 
532 * 
533 @ = 7 ct 
534 * GENERATE VALUES OF "MIAR® , *SIAR® AND "DSAR*. « | 
536 * 
4365 CC 00 5928 615D 537 GETALS MVC ALSADR(1L) »APTR MOVE ACCESS PTR AS ALS ADOR 
4368 3C 00 SE7E 538 MVI- BCNT20 CLEAR THE COUNTER | 
436F 38 F8 5928 539 SBF ALSADR, X*FB* SAVE BITS 5-7 
4373 OF 00 5928 5928 540 ALC ALSADR(1)-ALSADR MULTIPLY BY « 
6379 OE 00 5928 5928 541 ALC ALSADR(1)sALSADR * TO GET *ALS* ADDRESS. 
542 * 
437 C2 02 5912 543 DOALS LA RDALSeXR2 POINT TO READ ALS STRING 
4383 CO 87 5803 54% 8 SVPCTL EXECUTE ; 
545 * 
4367 30 Ol SETE 546 CLI -MCNT,»X*01° HAVE MIAR AND SIAR BEEN HANDLED? i 
438B F2 84 06 S47 JH #47 : 
438E 38 80 5924 548 SBF ALSBD,X*80° SET BIT O OFF 
4392 OF 00 SETE SE8C 549 ALC MCNT(1) oK1 OF MIAR AND SIAR ONLY 
4398 CO 87 O221E 550 8 UNPACK UNPACK MIAR / SIAR / DSAR 
439C 02 @39C 551 pCO siL¢2e LENGTH 
DATE 23AUG75 OSNOV7S 24HART6 PROG ID C192 
EC NO. 827785 827827 627879 PAGE 5 
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STMT SOURCE STATEMENT 

552 oc AL2(ALS60} AREA TO BE CONVERTED 

553 IARZ oc AL 2(HIARY CONVERTED RESULT 

554 * 

555 ALC ALSADR(1)-BIN1 INCR ALS ADDRESS 

556 ALC IARZ(2) »DECS INCR CONVERTED ADDRESS 

557 TBN AL SADR ¢ X*03°* TEST FOR READ ALS DONE 

558 BF DOALS GO IF NOT DONE 

559 sic TARZIZ) gDETIS RESTORE IARZ ABOVE. 

S560 * 

56] Been nn wr wm. ed i eh annie ca pe RN hae ar cna ae 
562 * GENERATE IOP EXTERNAL REGISTERS "FBO, *FTO%s * FBI's *FIGt, "FTI e,® 
563 * ‘FHF’, AND "FTIR". * 
564 & oe ap ath ee ae cee a ee ee a eee cee oe Ao a acre ED On RE ee eRe eer aC Se re err ee ee eon a 
£65 * 

566 LA RSTAB, XR1 GET REG TABLE POINTER 

567 GETEXT MVC EXTADR(1)-00,XR1) EXTAR=REG ADDR FROM TABLE 

568 MVC REGX(2) 920 eXR1) MOVE ADDR OF CONVERTED READ DATA 

569 LA RDEXTsXR2 POINT TO REAC EXT REG STRING 

570 B SVPCTL EXECUTE 

$71 * 

572 8 UNPAC K UNPACK EXT REG 

573 oc xti¢1° LENGTH 

574 . oc AL2(EXTIN) AREA TO BE CONVERTED 

575 REGX oc AL2(FBO) CONVERTED RESULT 

576 *® : 

577 LA 3(,XR1)eXR1 INCR POINTER BY 3 

578 CLI Ol» XR1) »X*00* END OF TABLE FOR EXTERNAL REG? 

579 BNE GETEXT GO IF NOT 

580 * 

$B) Baw n n e ee oe * 
582 * GENERATE DATA LOCAL STORE REGISTERS LO THRU L8e * 
583 * <= * 
584 * 

585 DODLS MVC DL SADR(1)200,XR2) DLSAR=REG ADDR FROM TABLE 

586 MYC REGY(2}920,XR1) MOVE AODR OF CONVERTED READ DATA 

587 LA RDDLS, XR2 POINT TO READ CLS STRING 

588 8 SVPCTL EXECUTE 

589 * 

590 8 UNPACK UNPACK LOCAL REG 

591 oc XL1‘1* LENGTH 

592 oc AL2(OLSIN) AREA TO BE CONVERTED 

593. REGY DC AL2(0LS01-2) CONVERTED RESULT 

594 * 

595 LA 31.XR1LI,XR2 INCR POINTER BY 3 

596 Cul O(eXR1)2X*00* ENO OF TABLE FOR LOCAL REG? 

597 BNE DODLS GO If NOT 

598 * 

599 La RSIOP,XR2 POINT TO RESTORE IOP STRING 

600 & SVPCTL EXECUTE 

601 # 

602 XR1SV2 La #—*eXR1 RESTORE XRi 

603 XR2SV2 LA #-* g XR2 RESTORE XR2 , 

604 IRET 8 ~~? RETURN TQ CALLING ROUTINE. 

605 * 

606 + —_ oom om owe 
607 © REGISTER TABLE FOR IOPREG SUBROUTINE * 
608 te * 
609 * 

610 RSTAB EQU s 

611 DC XL1°2E° F80 

612 oc AL2 (FBO) CONVERTED RESULT 

613 oc XL1°26° FTO 

614 oc AL2(FTO) CONVERTED RESULT 

615 oc XLI*22° FBaI 

616 oc AL2¢FBI) CONVERTED RESULT 

617 oc XL1°35¢* FT! 

618 oc AL2CFT4) CONVERTED RESULT 

619 oc XLi*27° FHE 
24MART6 PROG ID C19-2 ° 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN 


3340 ADAPTER MANUAL OPERATIONS PGK — MOOD 12 


C192 

ERR LOC OBJECT CODE ADOR 
442A 6121 442B 
442C 2D 442C 
442D 6123 442E 
442F 25 442F 
4430 6125 4431 
4432 33 4432 
4433 6127 4434 
4435 3F 4435 
4436 6129 4437 
4438 2F 4438 
4439 6128 4434 
4438 23 4438 
£43C 6120 4430 
443E 28 443E 
443F G1L2F 4440 
4441 29 444) 
4442 6131 4443 
4444 38 4444 
4445 6133 4446 
4447 00 4447 
£448 6135 &4h9 
444A O1 444A 
£448 6137 4440 
4440 02 444D 
444E 6139 444F 
4450 03 4450 
4451 6138 4452 
4453 04 4453 
4454 6130 4455 

Sa ers 4456 05 4456 

4457 613F 4458 
4459 06 4459 
4454 6141 4456 
445C 07 4456 
&45D 6143 445E 
4£45F 08 4£45F 
4460 6145 446) 
4462 09 4462 
4463 6147 446% 
4465 OA 4465 
4466 6149 4467 
4468 08 4468 
4469 6148 446A 
446B OC 4468 
446C 6140 446D 
446E 00 446E 
446F 614F 4470 
4471 OE 4471 
4472 6151 4473 
4474. OF 4474 
£475 6153 4476 
4477 00 4477 
4478 70 40 O1 
4476 CO 61 425¢ 
447F 70 68 01 
4482 F2 81 OC 

DATE 23AUG7S  OSNOVTS 

827785 


‘EC NO. 


827827 


STMT SGURCE STATEMENT 


620 
621 
622 
623 
624 
625 * 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 + 
641 
642 
643 
694 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
672 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 * 
682 GCKD 
683 

684 @ 
685 

686 

667 * 


*eoe ee 


24MAR76 
827879 


oC AL2( FHF} 
DC xXL1*2D* 
oc AL2CET2) 
oc xLL*25# 
oc AL2( FIG) 


oc XL1°33¢ 
oc AL2CDxC) 
oc XL1°3F¢ 
oc AL2(SB0) 
oc XLI*26¢ 
oc AL2(SCN} 
oc XL1*23¢ 
oc AL2(0ST} 
oc XLi¢28° 
oc AL2(HES} 
oc xL1*29° 
oc AL2(ADS} 
oc XL1*36° 
oc AL2(CG2}) 


oc XL2*O8 

oc AL2(0LS01-2) 
oc XLitze 

oc AL2(DLS01) 
oc XL1Lf2t 

oc AL2(DLS03-2) 
oc XLit3¢ 


oc AL2(0LS03) 
oc = XL 1 * 48 

oc AL 2(DLS05-2) 
oc XL1°5* 

oc AL2(DLS05} 
oc *L1*6* 

oc AL2 (OLSO7-2} 


oc XLit 7° 

oc AL2(0LS07) 
oc XLitse 

oc AL2(DLS09-2) 
o¢ XL1i*g9¢ 

oc AL2(DLS09) 
oc XLi‘a* 

oc AL2(DLS06-2? 
oc XL1i‘B* 

oc AL2¢0LS08) 
oc XLASCc®. 

Oc AL2(OLSOD-2)} 
oc XL1°O# 

oc AL 2(0L SOD) 
oc XLI°ES 


oc AL2(OLSOF-2) 


oc RL1‘¢e 
oc AL2(OLSOF} 
oc XL1*goe 


COME HERE IF THE COMMAND DETECTED WAS A *G* COMMAND. THIS *! 
COMMAND TELLS THE PROGRAM THAT THE ADAPTER MECRGOPROCESSOR IS *| 
TO SE RUN FOR N CYCLES OR INDIFINTELY. AFTER RUNNING WN CYCLES, *; 


iOP INTERNAL REGISTERS WILL BE DISPLAYED ON THE SCREEN. 4 
CLE 1G yxRLDECE * DOES A BLANK FOLLOW *G* CHO? 
6E RUNADP IF YES, RUN ADAPTER. wae vie 
CLE 1H eXRLD eC * g* DOES A COMMA FOLLOW *G* COMMAND? | 
JE GCMOL BRANCH IF YES. | 

| 





CONVERTED RESULT 
FTIR 
CONVERTED RESULT 
FTG 
CONVERTED RESULT 


Oxc 
CONVERTED RESULT 


CONVERTED RESULT 


CONVERTED RESULT 
OST ; 
CONVERTED RESULT 
HES 

CONVERTED RESULT 
ADS 

CONVERTED RESULT 
co2 

CONVERTED RESULT 


CONVERTED RESULT 
CONVERTED RESULT 
CONVERTED RESULT 
CONVERTED RESULT 


CONVERTED RESULT 


ts 
CONVERTED RESULT 


16 
CONVERTED RESULT 
t? 


CONVERTED RESULT 
CONVERTED RESULT 
CONVERTED RESULT 
CONVERTED RESULT 
CONVERTED RESULT 
CONVERTED RESULT 
CONVERTED RESULT 
CONVERTED RESULT 


CONVERTED RESULT 
END OF TABLE 
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TBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 4247615 
@ PAGE 6A 
C192 3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 
“ERR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT 
P| 485 CO BY 021A 683 GCMDX B PRINT PRINT *NO COMMA/ BLANK 
€ 4489 06 4489 689 pC XL 18068 FOLLOWING COMMAND® 
448A 26 448A 690 OC = ALL CERR2N-ERR2415 
4488 6584 448C 691 oc AL2(ERR2N) 
€ “48D CO 87 40AD 692 8 RTNIB RETURN FOR NEXT ENTRY 
693 * : 
"2 ©6491 IC 01 5EOL 03 694 GCMDL MVC)  VAL2(2393(eXR1) MOVE VALUE TO BE CONVERTED. 
€ 4496 CO 67 0226 695 8 PACK CONVERT EBCOIC TO PACKED HEX~ 
£49 02 4494 696 DC = XLL* 28 LENGTH. 
€* “4968 SE01 449C 697 oc AL2(VAL2) ADORESS GF OATA TO BE CONVERTED. 
49D SETE 449E 698 DC AL2(VALL) ADDRESS OF DATA CONVERTED. 
699 & 
€° 449F 0C 00 5E80 SETF 700 MVC =: VAL1A( 1) e VALI MOVE TO ANOTHER LOCATION. 
~  64A5 3D 00 SETE 701 CLI VALi,0 WAS ZERO ENTERED BY USER? 
44A9 CO BE 4174 702 BE CYCLE IF YESe DEFAULT TO 1 CYCLE. 
- 704 MVI | CYCSWyl TURN ON MULTI-CYCLE Sw 
" 44D 3C 01 SEB2 704 v . 
44B1 CO 87 £178 705 B CYCLEL ELSE RUN NUMBER OF CYCLES SPECIFIED. 
@ 706 * : 
TOT t-~--—-—— wena coe a ere om ao mem noma ae: 
708 * COME HERE IF THE COMMAND DETECTED WAS AN *A* TYPE COMMAND. THE © 
@ 709 + COMMAND TELLS THE PROGRAM THAT CERTAIN REGISTER OR CORE * 
710 * LOCATION IS TO SE ALTERED. : 
7li * 
@ 712 © * 
713 * 
44B5 70 68 01 714 ACMD CLI = 1eXR199C*,* DGES A COMMA FOLLOW AN *A* COMMAND 
& 715 * GR A *D* COMMAND? 
44B8 F2 81 O07 716 JE ACMD1 BRANCH IF YES. 
717 * 
€2 4488 7D 40 01 718 CLE 1 yXR1D5C* * DOES A BLANK FOLLOW COMMAND? 
44BE CO O1 4485 719 BNE GCMOX BRANCH IF NO. 
720 © 
€ 44C2 70 68 04 722 ACMDL CLI 4 _XRLDeCty® IS IT A 2-CHAR OPERAND 2 
44€5 CO 81 44F8 722 SE CHAR2 BRANCH IF YES. 
723 * 
€ 4409 7D 40 06 724 CLI -&UeXRL9GCO * DOES A SLANK FOLLON? 
44CC CO 81 44F8 725 BE CHAR2 BRANCH IF YES. 
726 * 
€> 4400 7 68 05 727 CLI -SteXR19eC*,® IS IT A 3-CHAR OPERAND ? 
4403 CO 81 480E 728 BE CHARZ BRANCH IF VES. 
729 # 
€ 4407 7D 40 05 730 CLE Sf,XRIPeC DOES A BLANK FOLLOW? 
440A CO 81 480E 731 BE CHARS BRANCH IF YES. 
732.% 
€  44DE 70 68 06 733 CLE GU XRUNGL 8g * IS IT A 4CHAR OPERAND ? 
44E1 CO 81 499E 734 BE = CHARS BRANCH IF VES. 
735 © : 
€2 4465 7D 40 06 Ce 736 CLE 60 eXRIDVC® *& DOES A BLANK FOLLOW? 
44E8 CO 81 499E 737 SE = CHARS BRANCH IF YES. 
738 * Een t a 
€) 44 Co 87 0214 739 B PRINT PRINT "ILLEGAL OPERAND 
:  — @4FO 06 &4FO 740 OC = KL *068 FOLLOWING CHD. * 
44F1 26 44F1 741 OC = ALL(ERR1I2N-ERRIZEL) 
€2-44F2 seco 4oF3 742 DC =—s_—s AL2LERR12N) 
44F4 CO BT 40AD 743 8 RTNIB RETURN FOR NEXT ENTRY 
144 * 
746 © COME HERE TO PROCESS TWO-CHARACTER OPERANDS. THE FOLLOWING * 
747 * . OPERANDS ARE VALID FOLLOWING AN *ALTER® (A) OR *DISPLAY® €D) = * 
@ 748 ¢ COMMANDS = | * 
749 * (1) AC ADDRESS COMPARE STOP. *. 
750 * (2) CI CONTROL STGRAGE MICROINSTRUCTION. * 
& 751 * (3) MS MAIN STORAGE. *. 
752 14) 4B MODE BUFFER. : 
753 % er a errr nanan enna enmnnenamen cote tenner setrteneanan 
@ 754 © 
44F8 OC 03 SE21 SE0D 755 CHAR2 MYC £LOC{4)eBLANK CLEAR LOCATION TO BLANKS. a 
Goose 23AUG7S OSNOV7S 246MART6 PROG ID C1992° 
e NO. 827785 827827 827879 PAGE 6a 
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4247615 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247615 
PAGE 7 © PAGE 7a 
| C192 3340 ADAPTER MANUAL OPERATIONS PGM ~ MOD 12 eo 3340 ADAPTER MANUAL OPERATIONS PGM ~- MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
44FE 1C 01 5E2i 03 756 MVC = LOC 029 30 XR1) SAVE CURRENT OPERAND. €: 45ad 06 4500 824 DC XL1°06¢ iS BLANK.¢ 
| 4503 0D 01 5E21 6082 757 CtC 10012), AC IS OPERAND = "ACs 2 4&5AE 25 &5AE 825 DC AL1(ERR14N-ERR1441) 
£509 F2 81 28 758 JE CHARZA BRANCH IF YES. 4S5AF 6717 4580 826 DC AL2(ERRL4N) 
1 759 * . €% 4581 CO 87 40A0 827 B RTNLB RETURN FOR NEXT ENTRY 
&50C OD 01 5E21 6088 760 CLC =6LOC(2),™8 1S OPERAND = *MBe 2 ! 828 * 
; #512 CO 81 4585 761 BE MBFOND BRANCH IF YES. 829 *---------~-—---—-----__--_- oan anne eenemenanmnamenanm an anene ime area em ememenesnci 
762 * : | & 830 * COME HERE IF THE OPERAND IS "M8" MODE BUFFER. % 
I 4516 OD 01 5E21 6084 763 CLC LOC(23,C% IS OPERAND = ®CI* 2 83) #-—----~--—~~--~—----—-—----- --------- - * 
451C F2 81 72 164 JE CHAR2E BRANCH IF YES. 832 * 
| 765 * €: 4585 30 01 5SE94 833 MBFOND CLE DOCMDSW,1 DIO WE COME FROM A °D* COMMAND? 
451F 90 01 5E21 6086 766 CLC =10C(2),éS IS GPERAND = *NS*® 9 , 4589 CO 81 4F4F 834 BE ALTDIS BRANCH IF YES~ 
4525 F2 81 71. 767 JE CHAR2G BRANCH IF YES. 835 * 
| 768 © €: 4580 38 80 SEBA 836 TBN so IND, SWCNTL IS THIS SWITCH ENTRY MODE? 
i £528 CO 87 O21A 769 CHAR2W 8 PRINT PRINT *UNDEFINED OPERAND FIELD? " 45C1 CO 10 4€31 837 BT OTSW2 IF YES, GG TO GET DATA 
452C 06 452C 770 DC KL1¢°06# 838 * 
452D 1D 4520 771 oC ALL CERR7N-ERR7T€1) €°  &5C5 70 40 07 839 CLI 7 XR14,Ce * BLANK FOLLOWING VALUE? 
452E 6617 452F 772 DC AL2(ERRTN) : 45C8 CO 01 4553 840 BNE ACMD4 ERROR IF NO BLANK. 
4530 CO 87 «OAD 773 6 RTNIB RETURN FOR NEXT ENTRY 841 © 
fis. * €- 45CC 4D 01 06 S5E0D 842 CLC 6. 29 XR1 »BLANK VALUE WITH *A® CHD BLANK? 
4534 3D 01 SE96 775 CHAR2A CLI OCMOSW,1 DID WE COME FROM A *D* COMMAND? 7 45D1 CO 81 45a9 843 BE ADRERR ERROR IF YES. 
4538 F2 01 64 776 JNE  CHAR2D BRANCH IF *A® COMMAND. 844 ¢ 
4538 CO 87 4F4F 777 8 ALTDIS GC TO ALTER/OISPLAY SUBROUTINE £ 4505 1C O1 5EO1 06 845 MYC VAL2(23,6.XR1) SAVE MB VALUE. 
778 * ve 450A CO 87 0226 846 a: PACK CONVERT EBCOIC TO PACKED HEX. 
453F 38 80 SESA 779 CHAR2ZD TBN IND, SRENTE 1S THIS SWITCH ENTRY MODE? _— -45DE 02 45DE 847 DC XLL¢2° LENGTH. 
4543 CO 10 438 780 eT DTSH4S IF YESe GO TO GET ADDRESS €- 450F SE01 45E0 848 OC AL2UVAL2) AREA TO BE COMVERTED. 
781 & “SEL SETE 45E2 849 DC AL2(VALL) CONVERTED RESULTS. 
4547 7D 68 09 782 CLE 9€eXR195C%,* DOES A COMMA FOLLOW ADDRESS FIELD? 850 * 
S54A F2 81 12 783 JE CHAR2E BRANCH IF YES. €> 453 CO 87 4F4F 851 5 ALTDIS GO TO ALTER/DISPLAY SUBROUTINE. 
784 © 852 * 
4540 70 40 69 785 CLE. Of eXR1},C* * DOES A BLANK FCLLOW ADDRESS FIELD? 853 *-——.-__.___._. rn rr nee S 
£550 F2 81 OC 786 JE CHAR2E BRANCH IF YES. @ 854 * *e% SCAN *CI* OPERAND *e2 2 
- : 787 * 855 * THIS POKTION OF THE CODE IS ENTERED AFTER ENCOUNTERING A * ——- 
£553 CO 87 O21A 788 ACHDOS B PRINT PRINT "NO COMMA/BLANK 856 + *CI* (CONTROL STORAGE MICROINSTRUCTION) GPERAND. THE STRING @ 
4557 06 4557 789 pc XL1°06* FOLLOWING OPERAND* @ 857 + WILL BE SCANNED FOR DATA FIELDS -UP TO 8- UNTIL A BLANK IS ® 
4558 26 4558 790 oc AL1 (ERR6ON-ERR641) 858 % ENCOUNTERED TO TERMINATE THE SEARCH. THE CPERAND CAN APPEAR © 
4559 65FA 4554 791 DC AL2(ERRON} 859 = WITH AN *ALTER® OR DISPLAY COMMANCS. THE FOLLOWING FORMAT * 
#558 CO 87 4GAD 792 8 RTN18 RETURN FOR NEXT ENTRY @ 860 * IS EXPECTED =: * 
793 ¢ 861 * AoC Vy YYVY » XXXXXX o XXXXNX py AXNXNX 9 NUXAXXK oXXXXXK po oe oeETC * 
4&55F 4D 03 08 SEOD 79@ CHARZE CLC 8(4»)XR1},BLANK ADDRESS FIELD BLANK? 862 * OR * 
4564 F2 B81 42 795 JE ADRERR ERROR IF YES. @ 863 * D»CI,YYYY * 
796 864 * ‘ WHERE YYYY = ADORESS TO BE ALTERED/DISPLAYED, s 
4567 1C 03 5E1D 08 797 MYC = ADRS (4) 80, XR1) MOVE ADDRESS OR VALUE TO CONVERT. 865 * XXXXXX = VALUE TO BE PLACED AT THAT ADDRESS. 2 
“56C CO 87 0226 798 CIRCHD 8 PACK CONVERT EBCIDIC TO HEX (MONITOR) 2B 866 * OR * 
4570 04 4570 799 oc ML1¢4° LENGTH OF FIELD TO BE CONVERTED. 867 * DeCle¥YVY,Z222 
4571 SE1D 4572 800 oc AL2( ADRS) AREA TO BE CONVERTED -RIGHTMOST BYTE 868 * WHERE YYYY»2ZZ2Z 1S THE RANGE OF ADDRESSES TO BE DISPLAYED * 
4573 SEO1 4574 801 oc AL2(VAL2) CONVERTED RESULTS-RIGHTMOST BYTE @ 869 * * 
802 ¢ 870 * = 
4575 3D 01 SE92 803 CLI CISWs) *Cl* COMMAND SWITCH ON? 871 * EACH DATA FIELD IS EXAMINED TO DETERMINE THE PARITY BIS NEEDED & 
4579 CO 81 4S5E7 804 BE CIFOND GO PROCESS *Ci* GPERAND © a72 * THE BITS IN ALL 3 BYTES OF DATA WILL BE CONDENSED INTO a * 
805 © 873 *¢ BYTE BY EXCLUSIVE GRING TWO SYTES AT A TIME. THE RESULTANT 2 
457D 30 01 SE94 806 CLI DCHKDSW,1 OID WE COME FROM A *D* COMMAND? 874 + BYTE IS THEN TESTED FOR "OOD* OR *EVEN®. IF THE RESULT IS EVEN, * 
4581 CO 61 4F&4F 807 BE ALTDIS GO TO ALTER/DISPLAY SUBROUTINE. @ 875 * THEN THE LEFT MOST BYTE (HIGH GRDER) IS OR*ED WITH X*10* TO * 
808 * 876 * GENERATE ODD PARITY. NOTHING IS OONE IF THE RESULT IS ODD. * 
4585 3D 01 5SE93 809 cur “SS@.1 "MS* COMMAND SWITCH ON? 877 ee errr cremereenemn lit 
4589 CO 81 4775 810 8E NSEOND GO PROCESS *MS* OPERAND. @ 878 * 
811 ¢ 45E7 3C 00 SE92 879 CIFOND MVI CISWe0 RESET *CI* OPERAND SWITCH. 
458D CO 87 4F4F 812 8 ALTDIS GO TO ALTER/DISPLAY SUBROUTINE. 880 * 
813 ¢ 45EB 02 01 09 881 LA —- 949 XR XRD ADVANCE DATA STRING ADDRESS 
4591 3C 01 SE92 814 CHARZE MVI CISW,) SET "Ci* OPERAND SWITCH. 882 * : 
4595 CO 87 453F 615 8 CHAR20 GO PROCESS STRING. 45EE 3D 01 SE94 883 CLI OCMDSW,1 DID WE COME FROM A °D* COMMAND? 
816 © €3 452 co 81 4731 884 BE = SCNCS1 GO TO CONVERT ADDRESS 2 
4599 3D O1 SES 817 CHAR2G CLI DCNDSW,1 WAS IT A *D* COMMAND? 885 * 
4590 CO 81 453¢ 818 BE CHAR2D GO PROCESS STRING. 45F6 38 BO SEBA 886 TEN IND, SWCNTL AS THIS SWITCH ENTRY MODE? 
619 © @ 45FA CO 10 4E3F 887 BT OTSW6 IF YES, GO TO GET FIRST DATA 
4SAl 3C 01 SE93 820 NVI = MSSWipl SET *MS* GPERAND SWITCH. ~ 888 + 
4585 CO 87 453F 821 8 CHAR20 GO PROCESS STRING. &5FE 40 05 06 5EOD 889 CLC 606 y XR) eBLAP:. DATA FIELD BLANK? 
822 ¢ G@ 4603 co 81 45a9 890 BE ADRERR ERROR IF YES. aoe 
4549 CO 87 021A 623 ADRERR B PRINT PRINT *OPERAND/ADDRESS FIELD ; 891 ¢ ; 
DATE 23AUGTS OSNGV75 24MAR76 PROG ID C29-2 Oi5 23AUG75 OSNOV75 24MART6 PROG ID C192 ° 
EC NO. 827765 827827 827879 PAGE 7 eo NO. 827785 827827 827879 PAGE 7a. 
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3340 ADAPTER MANUAL OPERATIONS PGM - MOD 22 








ADOR STMT SOURCE STATEMENT 
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960 MVC S64141) 00 eKRL: MOVE CONTENT TO "Qt FIELD. 

961 & 

962 $6 SBN #—-&_X* O06" RESULT IS IN CONV (RIGHT MOST BYTE) 
963 * 

965 * DETERMINE IF THE BYTE IS GOD GR EVEN PARITY. THIS IS DONE BY © 
966 * ADDING THE BYTE TG ITSELF 8 TIMES INCREMENTING A **CARRYS® e 
967 * COUNTER EVERYTIME A CARRY IS GENERATED. AT THE END OF THIS © 
968 * GPERATION, THE RESULTANT BYTE CARRY COUNTER IS TESTED FOR 
969 * OOD OR EVEN VALUE. * 
971 *® 

972 NYC VALL(1) sCONV MOVE CONVERTED BYTE. 

973 MVI COCTRi.O SET CARRY COUNTER TO ZERO. 

974% AVE COCTR2Z-8 SET LGOP COUMTER TO & 

975 cil VALI 20 VALUE EQUAL ZERO? 

976 JE ZERVAL BYPASS CODE IF Y¥SS~. 

977 * 

978 Cil ALC VAL oe VALI(L) ADO THE BYTE TO ITSELF. 

979 Ji cr2 BRANCH IF CARRY RESULTS. 

980 * 

981 SLC COCTR2.K1 SUBTRACT LOOP COUNTER BY 1. 

982 BRZ cil LOOP IF WOT ZERG. 

983 * 

984 TBN COCTRI,X*#01° TEST RESULT FOR ODD/EVEN- 

985 JF. EVEN2 BRANCH IF BIT 7 OFF. 

986 * 

987 ZERVAL SBN CONV3-20X*10° "OR® IN K°1G* IN LEFT MOST BYTE. 
988 EVENZ MVC 2(39XR2) -CONVS MOVE TO CI TAGLE. 

989 RISAVE LA %—%eXR1 RELSAD XRi- . 
$90 cul VAL2sX*7F® RIGHTMOST BYTE CF ADDRESS=X* 7F*? 
991 JNH SCNCIS ERROR IF HIGH. ee a ew 
992 * 

$93 MVC ERRL14+30023-CE ALTER ERROR MESSAGE FOR *CI® 

994 B PRINT PRINT *BOUNDARY ALIGNMENT 

995 pc XL1*O06* ON EKXb ADRS. * 

$96 oc AL LCERRLIN-ERRLICL) 

997 oc AL2(ERR11N) 

$98 8 ALTCIS GO TO DATA Sw ERRGR ROUT 

999 * 

1000 CI2 atc COCTR1,K1 INCREMENT CGUNTER IF CARRY. 

1001 8 Cri Loop BACK. 

1002 * 

1003 SCNCIS MVC 4(2eXR2),VAL2 HOVE ADDRESS GF LOC TO BE ALTERED. 
1004. ALC VAL2 eKO001 ADD TO IF x*o001° 

1005 LA 5( oXR2) eXR2 ADVANCE STORAGE ADDRESS POINTER. 
10066 La 61 eXR19 oXRi MOVE PGINTER TO NEXT ENTRY IN STRo 
1007 * 

1008 YBN IND » SHCNTL IS THIS SWITCH ENTRY MODE? 

1009 BT OTSW6 If VESs GET wEXT DATA FIELO 

1010 * 

1011 cll Ot eXRiFeC* * END OF DATA IN THE STRING? 

1012 BNE SCNCI2 CONTINUE SCANNING IF NO 

1013 * 

1014 8 ALTBIS GO TO ALYERJDISPLAY SUBROUTINE. 
1015 | 

1017 + COME HERE ON A DISPLAY *CI*, *COL*, OR *COR* CUMMANC TO" e 
1018 + DETERMINE WHETHER A RANGE OF ADDRESSES IS TO BE DISPLAYED * 
1019 + ANDs IF SO, TO STORE THE SECOND ADORESS * 
1021 * 

1022 SCNCS)] TBN IND, SHCNTL IS THIS SWITCH ENTRY MODE? 

10623 ST OTSW4 IF YES. GO TO GEY ADORESS 2 

1024 © 

1025 cul OfeXR19,C® + DGES A BLANK FOLLOW ADDRESS 17 j 
1026 JNE SCNCS2 JUMP IF 20 “ 
1027 ¢ 
24HART6 PROG 10 C19-2° 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT * ERR LOC OBJECT CODE 
4607 3C 00 SE86 892 SCNCIO MVI CICTR.O CLEAR COUNTER TO ZERO. C —@6AS 1C 00 46AB 00 
&60B C2 02 5EC7 oe . LA CSTBLeXR2 LOAD ADDRESS OF CS TABLE. % ae 
46AA 3A 00 0000 
4&60F 70 68 07 895 SCNCIL CLI 7 eXR1IeCt,* DOES A COMMA SEPERATE DATA FIELDS? | é 
4612 F2 62 12 896 J€ SCNCE2 SAVE THE DATA IF YES. 
BST + 
4615 7D 40 07 898 CLE TleXRiFeCt & DOES A BLANK FOLLOW DATA FIELD? @ 
4618 €2 81 OC 899 JE SCNCI2 ERROR IF NGT A BLANK 
900 + 
4618 CO 87 O21A 901 8 PRINT PRINT *NO COMMA/ BLANK S 
461F, 06 461F 902 pc xL1*068 IN DATA FIELD* 
ree oe 4620 903 DC ALI CERRSN-ERRS+13 | 
621 66 4622 904 ec AL2CERRON} / £" 46AE OC 50 SETF 5E19 
4623 CO 87 40A5 a0 8 RITN1B RETURN FOR NEXT ENTRY S 46B4 3C 00 5E88 
906 * 4688 3C 08 5E89 
4627 D2 OL C1 907 SCNCI2 LA LC _eXR1) eXRL ADVANCE PAST THE COMMA i €, 4&6BC 3B 00 SETF 
4628 1C 05 5E13 05 908 MVC CONV6(61.5€.XR1) MOVE VALUE FROM STRING / "46 CO F2 B81 1A 
462F OF 00 5E86 SEBC — ALC CICTR»KL ADD ONE TO DATA ENTRY COUNTER 
910 * i €° 46C3 O€ 90 SETF SETF 
4635 CO 87 0226 911 8 PACK CONVERT EBCOIC TO PACKED HEX. ; C 46C9 FZ 84 37 
4639 06 4639 912 oc XLL¢6¢ LENGTH OF FIELD TO BE CONVERTED. 
463A 5E13 463B 913 OC AL2(CONVO) AREA TO BE CONVERTED. | €:  46CC OF 00 5E89 SEBC 
463C SEL6 463D 914 oc AL2(CONV3} CONVERTED DATA ADDRESS. 4602 CO 01 46C3 
915 * 7 
916 #-—--~--- = - —sm a= * €> 4606 38 01 5E88 
917 * BEFORE STORING THE 3 BYTES CF DATA FROM A *CI* OPERATION, %: 46DA F2 90 04 
918 * PARITY MUST BE DETERMINED. THE 1ST AND 2ND BYTES WILL SE *! 
919 * EXCLUSIVED OR*ED TOGETHER WITH THE RESULT ENDING UP IN *' €. 46D0 3a 10 5E14 
920 * LOCATION "CONY-1*. * “ 46E1 8C G2 02 5Ei6 
921 %----~——- -——— ad 46&6 C2 0% 0000 
922 # ' €3 46€A 3D 7F 5E01 
463E 34 O1 46E9 923 ST RISAVES3,XR1 SAVE CURRENT VALUE OF xR1. c &6EE F2 04 1C 
4642 OC 02 SELO 5SE1L6 (924 MVC = CONV 0.39 ,CONV3. TRANSFER RESULT OF PACKING. 
4648 C2 01 SE17 925 LA CONV-2,XR1 LOAD ADDRESS OF LEFT MOST BYTE. ' ©) 46F1 OC 01 66Az 6084 
464C 34 Cl 466D 926 ST $2+3sXR1 STGRE ADORESS CONTAINED IN xR 46F7 CO 87 O21A 
4650 iC 00 4667 00 ae MVC 8=—- S121 900 4 XRI} MOVE CONTENT GF ADDRESS AS *Q* % 46FB 06 46FB 
3 | €&= = 46FC 26 46FC 
4655 CZ O1 5E18 929 LA CONV~1eXR1 GET ADDRESS OF SYTE TO BE EOR'ED. € &6FD 66A9 &6FE 
4659 34 C1 4669 930 ST $143_XR1 STORE IN INSTRUCTION BELOW. ; 46FF CO 87 4F4F 
465D 34 O1 467A 931 ST $343 ,XR1 REPEAT ABOVE. 'Q2 
4661 1C 00 4668 00 932 MVC = $24 1013 90% XR} STORE CONTENT OF ADDRESS AS *Q* ; 4703 OE 00 SE88 SE8SC 
933 © 4709 CO 87 46C3 
4666 38 00 Go00 934 Sl SBF  -%,x*005 TO BE MODIFIED BY ABOVE GPERATIONS | € 
935 € a &70D &C 01 04 5E01 
466A 38 00 000C 936 $2 SBF *,x%*00* TO BE MODIFIED BY ABOVE OPERATIONS | 4712 OE O01 SEO1 SDEA 
466E 35 01 4660 | 937 t $243,XR1 LOAD REG 1 WITH AREA ADDRESS. , €2 4718 E2 02 05 
4672 1C 00 4678 00 $3 MVC =—- S34101) 200 eXRE? MOVE CONTENT YO °Q* FIELD. 4718 D2 01 06 
939 *# 
4677 3a 00 0000 940 $3 SBN $—*,X*O0* RESULT IS IN CONY-2. € &71LE 38 80 SEBA 
Le e 4722 CO 10 4€3F 
-_— : eee ree * ; 
943 * EXCLUSIVE OR THE 2ND AND 38D BYTES OF DATA. THE FINAL RESULT + | & 4726 7D 40 00 
944 ¢ WILL BE FOUND IN *CORV?. .. 4729 CO 01 460F 
GES Cn mr rere meen aceianns * | 
945 & | &5 72D CO 67 4F4F 
678 C2 01 5E18 947 - LA CONV—1,XR2 GET AODRESS OF 2ND BYTE. ! & : 
46TE 34 O01 46A0 948 st $5+3-XR1 STORE ADDRESS CONTAINED IN XR1 | 
46683 1C 00 469A 00 949 HVC —«- $410.19 ,00,XR15 MOVE CONTENT OF ADDRESS AS *Q* | & 
950 & } 
4688 C2 01 SE19 $51 LA CONV, XRi GET ADDRESS OF BYTE TO BE EGR*ED. ! 
4&68C 34 01 4696 952 ST $4*#3_XR1 STORE iN INSTRUCTION BELOW. g 
4690 34 01 &6aD 953 ST $643,XR1 REPEAT ABOVE. 
4694 1C 00 489E 00 954 MVC = S541 119 OF oXRL? STORE CONTENT Gr ADDRESS AS *Q° : £731 38 80 5E8. 
955 ¢ 7 i 4735 CO 10 4&38 
4699 38 00 0000 i S4 SSF -¢,x*00° TO BE MODIFIED GY ABOVE OPERATIONS | G 
2 : 
4739 7D 40 00 
469D 38 00 0000 958 $5 SBF #-#,X*00t TO BSE MODIFIED BY ABUVE OPERATIONS. @ 4730 F2 01 OA 
46A1 35 01 46A0 959 t $543, XR1 LOAD REG 1 WITH AREA ADDRESS. 
2 . 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT © car LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
| 
473F OC O1 SEQ3 SEOL 1028 MYC =6VAL2A(2),VAL2 SET END ADOR = FIRST AODR | & 1096 * 
4745 CO 87 4F4F 1029 8 ALTDIS GO TO ALTER/DISPLAY SUBROUTINE 47EB8 CO 87 0226 1097 8 PACK CONVERT EBCDIC TO PACKED HEX. 
1030 * 47EC 00 47EC 1098 CVMSLN DC XL1*o* LENGTH. 
£749 7D 40 05 1031 SCNCS2 CLI 5€eXR1).C* * DOES A BLANK FOLLOW ADDRESS 2? €=  47ED 0000 47EE 1099 CV¥MSAl DC XL2*°00° ADDRESS OF AREA TO BE CONVERTED. 
474C CO O01 4553 1032 BNE ACMD4 ERROR IF NO S47EF SF3F 47FO 1100 CVMSA2 OC AL2(MSSTR) ADDRESS OF CONVERTED AREA. 
1033 * . iidi * 
“750 4D 03 04 5E0D 1034 CLC = 045 XR 1) BLANK IS ADDRESS 2 FIELD BLANK? €* 47F1 OC 01 52D9 47FO 1102 MVC) = ALT MS #5 (2), CVMSA2 MODIFY *MVC* INSRUCTION. 
4755 CO R1 4540 i635 BE ADRERR ERROR IF YES ; 4STF7 OF O01 47FO SDF6 1103 SLC CVMSA2,STRCTR RESTORE *OC* ABOVE. 
1036 * / 4&TFD C2 02 SF5F 1104 LA MSTBL »XR2 SETUP TABLE LOOKUP ADDRESS. 
4759 D2 01 04 1037 LA 4UeXR1L)e XR1 STORE ADDRESS FOR {- 4801 36 02 S5DF6 1105 ry STRCTReXR2 INCREMENT TO *HALF*® VALUE LOC. 
&75C 34 01 4766 1038 ST SCSADR»XR1 OCP *PACK* ROUTINE 4805 2C 00 52D5 00 1106 MVC =ALTMS#1(1),0(,XR2) STORE IN *MVC* INSTRUCTION. 
1039 * 480A CO 87 4F4F 1107 B ALTOIS GO TO ALTER/DISPLAY ROUTINE. 
, : . &7%60 CO 87 0226 1040 8 PACK CONVERT ADDRESS 2 TO HEX | GS 1108 * 
4764 04 4764 1041 oc XL1¢4? LENGTH OF FIELO TO BE CONVERTED 1109 *~----~~----~.. --------~-- --- — * 
4765 4766 1042 SCSADR DS AL2 AREA TO BE CONVERTED | 1lllo * COME HERE TO PROCESS THREE~CHARACTER OGPERANOS. THE FOLLOWING # 
4767 SE03 4768 1043 oc AL 2(VAL2A) CONVERTED RESULTS & llli * OPERANDS ARE VALID FOLLOWING AN "ALTER® (A) OR "DISPLAY® (D0) = #& 
1044 * 1112 # COMMANDS : * 
“769 OD 01 SE03 SEO1 1045 CLC =VAL2A(2) eVAL2 IS ADOR 2 LESS THAN ADOR 1? 1113 = £1) DLS OATA LOCAL STORE. * 
&T6F CO O02 4F4F 1046 BNL ALTDIS IF NO, GO TO ALTER/DISPLAY ROUTINE e 1114 * (2) ZLS ZONE LOCAL STORE. ® 
1047 * 1115 * (3) COL CONTROL STORAGE DATA LEFT. s 
4773 CO 87 O21A 1048 8 PRINT ; PRINT “INVALID ADOR RANGE? i 1116 * (4) COR CONTROL STORAGE DATA RIGHT. * 
4777 06 4777 1049 OC XL1°6° @ 1117 * * 
4778 18 4778 1050 oc AL 1(ERR1SN—-ERR1841) 1118 *- ee Pn manne menamememanenam 
4719 679E : 477A 1051 oc AL2(ERRIBN) 1119 * 
4778 CO 87 40AD 1052 8 RTN18 RETURN FOR NEXT ENTRY | €°  480E 1C 02 5E21 04 1120 CHARS MVC LOCE3)54¢_XR1) SAVE OPERAND. 
1053 * ° “813 OD 02 SE21] 608E 1121 CLC £L0C(3),2LS OPERAND = *ZLS*? 
1054 s- ea : _— - a ear ence —* 4819 F2 01 66 1122 JNE CHAR3C - BRANCH IF NO. 
1055 * COME HERE TO PROCESS MAIN STORAGE *MS* DATA STRING. ‘,€ 1123 * 
1056 *———~————~—- —~ eee * 481C 3D 01 SE94 1124 CLl DCMDSW,1 IS THIS A "DISPLAY" COMMAND? 
1057 * 4820 CO 81 4F4E 1125 BE ALTDIS BYPASS CHECKS IF YES. 
477F 3C 00 5E93 1058 MSFOND MVI MSSW,0 RESET °MS* OPERAND SWITCH. € 1126 * . 
mae 1059 * 4824 38 80 SEBA 1127 CHARZA TBN IND» SWCNTL IS THIS SWITCH ENTRY MODE? Rene ea ee 
4783 38 8G 5EBA 1060 TEN =I ND,s SWCNTL IS THIS SWITCH ENTRY MODE? 4828 CO 10 4E&31 1128 eT DTSw2 IF YES» GO GET ADDRESS 
“787 CO 10 4&31 1061 Bt DTSw2 IF YES, GO TO GET FIRST DATA FIELD | €: 1129 + 
1062 * 482C 7D 6B 08 1130 CLI «= BL XRLIDC*,? DOES A COMMA FOLLOW OPERANOD? 
4788 7D 40 0A 1063 CLE 10€,XR1),C* &« DATA FIELD BEGINS WITH A BLANK? 4&82F F2 81 07 1131 JE CHAR3B BRANCH IF YES. 
478E CO 81 45A9 1064 BE ADRERR ERROR IF YES. G 1132 * 
1065 * 4832 7D 40 08 1133 CLI = BU eXRIDC® * DOES A SLANK FOLLOW OPERAND? 
4792 D2 01 OA 1066 LA 1O(eXRLIEXRI ADV TO STARTING ADDRESS OF STRING 4835 CO O01 4553 1134 BNE ACHD4 ERROR IF NO. 
4795 OC 01 SDF6 SDEA 1067 MVC = STRCTRE2) »KO001 INITIALIZE COUNTER TO 0001. '€ 1135 * 
479B 3C O1 47EC 1068 MVI =CVMSLNe1 INITIALIZE LENGTH COUNT. 4839 4D O1 07 SEOD 1136 CHAR3B CLC 7(29XR1),BLANK ADDRESS FIELD BLANK? 
1069 * 483E CO 81 4549 1137 BE ADRERR ERROR IF YES. 
479F 38 BO SEB8A 1070 SCNMS1 TBN IND, SWCNTL IS THIS SWITCH ENTRY MODE? i 1138 # 
&7A3 39 O1 47EC 1071 TBF CVMSLN,X*O1? WAS THIS AN EVEN NO. OF CHARS? 4842 1C O01 5E01 07 1139 MVC =: VAL202 0 7( » XR1) MOVE ADDRESS VALUE. 
&7AT CO 10 4E20 1072 8T DTSW2N IF BOTH YES, GET NEXT TWO CHARS 4847 CO 87 0226 1140. 8 PACK CONVERT EBCDIC TO HEX. 
1073 * | €> 4848 02 484B 1141 oc XLAt28 LENGTH. 
47AB 7D 40 01 1074 CLI 14 eXRDDeC* 8 END OF STRING? 484C 5E01 484D 1142 DC AL2(VAL2) ; ADORESS OF AREA TC BE CONVERTED. 
47AE F2 81 1a 1075 JE MSSAVE EXIT IF YES. &84E SETF 484F 1143 DC AL 2CVAL1) CONVERTED AREA. 
1076 * © 1144 * 
4781 3D 20 47EC 1077 CLI CVMSLN,X*20¢ COUNT EXCEEDS 32 BYTES? 4850 3D O01 SE94 1145 CLI = OCMDSwyl DID WE COME FROM A *D* COMMAND? 
4785 F2 81 13 iors ‘ JE MSSAVE TERMINATE SEARCH AT 32. | 4854 CO 81 4F4F 1146 BE ALTDIS BRANCH TO ALTER/DISPLAY SUBROUTINE. 
| 1147 * 
#788 02 01 02 1080 LA 109XR1) XR1 INCREMENT DATA STRING POINTER. ¢ 4858 38 80 SEBA 1148 TEN ~=IND, SWCNTL IS THIS SWITCH ENTRY MODE? 
*78B OE 01 SOFS SDEA 1081 ALC STRCTR,KOOO) INCREMENT COUNTER. 485C CO 10 4E31 1149 BT OoTSwW2 IF YES, GO GET DATA 
&7Cl O£ OO 47EC SESE 1082 ALC CVMSLN,K1 INCREMENT LENGTH COUNT BY 1. ' © 1150 * 
S7C7 CO 87 479F 1083 8 SCNMS1 ELSE CONTINUE SCANNING DATA STRING. | 4860 7D 40 08 1151 CLI 11GeXR1LI,Ce * BLANK FOLLOWING DATA FIELO? 
1084 * 4863 CO 01 4553 1152 BNE ACMD4 ERROR IF NO. 
47CB 38 01 47EC 1085 MSSAVE TBN  CVMSLW,X*01° COUNTER CONTAINS OOD # OF DIGITS? ¢ 1153 * 
47CF F2 90 OC 1086 JF SCNMS2 GO PACK DATA READ. “867 4D 01 OA SEOD 1154 CLC =: 1042» XR1) » BLANK DATA FIELD BLANK? 
1087 © 486C CO 81 45a9 1155 BE ADRERR ERROR IF YES. 
4702 CO 87 OZIA 1088 8 PRINT PRINT "OOD @ OF DIGITS €: 1156 * 
&7D6 06 4706 1089 oc xXL1°06° IN (MS) STRING. * 4870 1C 01 SOFD OA 1157 MVC = CONV2 (2) 5100 eXRID MOVE DATA FIELD. 
4707 25 4707 1090 oC AL 1 CERR1 3N-ERR 1341) 4875 CO 87 0226 1158 8 PACK CONVERT EBCDIC TO HEX. 
4708 66F2 47D9 1091 oc AL2(ERR1L3N) G 4879 02 4879 1159 pc XLit2¢ LENGTH. 
47DA CO 87 40A0 1092 8 RTNIB RETURN FOR NEXT ENTRY 487A SDFD 487B 1160 oc AL2(CONV2) ADDRESS OF AREA TO BE CONVERTED. 
1093 * 487C 5E80 487D 1161 oc AL2(UVALIA) CONVERTED AREA. 
&7DE 34 01 47EE 1094 SCNMS2 ST CVMSAL oXR1 STORE AS *FROM AREA* ADDRESS. & 1162 * = 
47E2 OE 01 47FO SOF6 1095 ALC CVMSAZ,STRCTR ADD LENGTH TO "TO AREA* ADDRESS. 4B7E CO 87 4F4F 1163 8 ALTOIS GO TO ALTER/OISPLAY SUBROUTINE. 
OATE 23AUG75 OSNOVTS 24MART6 PROG ID C19~2 @ ots 23AUGT7TS OSNOV75 24MART76 PROG ID €19-2* 
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ERR LOC GBYECT CODE ADDR STMT SOURCE STATERERT c ERR LOC GRJECT CODE ADDR STMT SOURCE STATEMENT 
1164 * ff:  4BFD CO 87 &FAF 1232 8 ALTDES GO TO ALTER/DISPLAY SUBROUTINE} 
4882 O00 O62 SEZL 6086 1165 CHARSC CLC £00439.DL5 i$ THE OPERAND A *DLS* ? ~ 1233 * 
4888 CO 8h “824 1166 BE CHARZA GG PROCESS STRING. . 4301 7B 68 03 1234 SCNCD2 CLI 34 sXRiPeCTs® DOES A COMMA SEPERATE DATA FIELDS? 
1L67 * €, £906 F2 &E 12 1235 JE SCNCDS SAVE THE DATA IF YESe 
488C 00 G2 SE21 6092 1168 CLE LOCESEeCOL IS GPERAND = *CDL°? 1236 * 
4892 FZ Bi OA L169 JE CHARBE BRANCH EF YES- : &907 72 40 93 1237 CLI Be eXRLDCE® ° DCES A BLANK FOLLOW DATA FIELD? 
Li79 ® £ 4904 F2 81 OC 1238 JE SCNED4 ERROR IF NOT A BLANK 
895 OD 02 SEZ 6594 Li?) cL.C }4=— LOC (3H, COR 1S GPERAND = °COR*? * 1239 * 
&89B CO OL 4528 1172 BME CHAR2W ERROR TF NO. 490D CO 87 O214 1246 B PRINT PRINT *NO COMMA/ BLANK 
1173 * { . 4&9Lk 06 @9il 1241 DC XLLE OS? IN OATA FIELDS 
4&89F 38 80 SE8A LL74 CHARSE TON IND, SWONTE 1S THES SWITCH ENTRY MODE? > 4912 22 4912 1242 DC ALL CERRON-ERRO+ 1D 
4BA3 CO 10 4638 1175 et BTSHS TE YES: GO GEF ADDRESS 4913 6650 4314 1243 oC AL2CERRONI 
1176 * f: 4915 CG 87 40A0 1244 B RTN1B RETURN FOR NEXT ENTRY 
&8AT 40 63 09 5E00 L177 CLO 9 fe XRL Pe BLANK ADDRESS FIELD BLANK? ms 1245 * 
&BAC CO 81 &5A9 LLTS BE AORERR ERROR IF YESe ; 4919 BZ 02 OL 1246 SCNCD4 LA 1(eXR1) -XR1 ADVANCE PAST THE COMMA 
1179 # £ &91C 1C 01 5SDFD OL 1247 Myc  CONV2(2)¢h4eXRED MOVE VALUE FROM STRING 
&880 1C 03 5E10 09 1180 MVC  ADRSE4) 990 XR1} SAVE ADDRESS GF *CD® OPERARND- 1248 * 
4885 CO 87 0226 L181 CHAR3D 8 PACK CONVERT EBCOIC FO PACKED HEZ.« &921 CO 8% 0226 1249 B PACK CONVERT EBCDIC TO PACKED HEKe 
4889 04 4889 1182 pC XL1*4* LENGTH. © @925 02 4925 1250 oc MLL®2¢ LENGTH OF FIELD TO BE CONVERTED. 
&8BA SELO 4888 1183 oc AL2(ADRS} AREA TO BE CONVERTED} &926 SDFD 4927 1251 pc AL2(CONV2} AREA TO BE CONVERTED. 
48BC SEO] 4880 1184 oc ALZ2¢VAL2} CONVERTED AREA. 4928 5E85 4929 1252 oc AL2¢CONVLS CONVERTED DATA ADDRESS- 
1185 ¢ €3 1253 * 
L186 Femme rn ee ne —— on nan R 1254 <<< ee ey ween n nent 
1187 * eee §=6 SCAN @CDL? OR *COR® OPERAND 28% * 1255 * DETERMINE IF THE BYTE IS ODD OR EVEN PARITY. THIS IS DONE BY * 
i188 + THES PORTEGN OF THE CODE ES ENTERED AFTER ENCOUNTERING A % & 1256 # ADDING THE BYTE TO ITSELF 8 TIRES INCREMENTING A eeCARRY® & s 
1189 *® SCOL® OR *COR® (CONTROL STORAGE DATA} OPERANDS. THE STRING * 1257 * COUNTER EVERYTIME A CARRY IS GENERATED. AT THE END OF THIS * 
1190 & WILL BE SCANED FOR DATA FIELDS -UP TO 10- UNTIL A BLABK ES & 1258 * OPERATION, THE RESULTANT BYTE CARRY COUNTER IS TESTED FOR & 
1192 # ENCOUNTERED TO TERMINATE THE SEARCH. THE OPERAND CAR APPEAR * @& 1259 * CDOD OR EVEN VALUE} * 
1192 * WITH AN *ALTER® OR DISPLAY COMMANDS. THE FOLLOWING FORMAT % 1260 #----- oo VEN VA: nen 
1193 ® ES EXPECTED = es 1261 * 
1194 © Ag COR g YYVY o KX 5 XX o KM OXM oR o RK oXK KK eKK ek agucesnbt # € 4924 OC 00 SE7F SEBS 1262 MYC V4SLiCL)sCONVI MOVE CONVERTED BYTE- 
et 1195 * OR 7 &$30 3C 0G SESS 1263 MYI CDCTRI.S SET CARRY COUNTER TO ZERO. Sar ae 
1196 * DeCOLeYVYYY * 1264 * 
1197 * BHERE vYYY = ADDRESS TO BE ALTERED: s € 4934 OE 60 SETF SETF 1265 CDl ALC WALIsVALLC1? ADD THE BYTE TO ITSELF. 
1198 € xX «© VALUE TO BE PLACED AT THAT ADDRESS. 7 493h F2 AG 5S 1266 JOL D2 BRANCH IF CARRY RESULTS- 
1199 © OR * | 4930 CG O1 £9346 1267 BNZ CDi .ooe if NOT ZERO. 
1200 * DeCOis¥VVY oZZZZ * €3 1268 * 
1201 * WHERE YYYYeZZZ2 = RANGE OF ADDRESSES TO BE GESPLAYED * 4941 358 O1 SE8E 1269 YBN CDCTRL»xX*O1* TEST RESULT FOR GOD/EVER- 
1202 ® * 4945 F2 10 4F 1270 JT EVEN BRANCH EF 81T 7 ON 
1203 * EACH BYTE GF BATA WILE HAVE ANOTHER BYTE ATTACHED TG IT BEFORE = e 1271 * 
1208 * If GET SHEPPED TO THE [OP. THE LEFT MOST BYTE WELL BE x°90* TF & © £948 BC 90 OS 1272 RVI O€ ¢XR2Z3 oX* 908 SET LEFT MOST BYTE TO K®*SO*%o 
1205 * THE PARITY IS QDDs AND K°9AS TF THE PARITY IS EVEN. * 1273 @ 
1206 # * €% 4946 8C 00 01 SEe5 1274 SCNCD6 MVC = - 16 12 AR7}eCONVE MOVE TO CD TABLE- 
L2OT Samm wenn ern 950 35 TF SEOL 1275 CLE VWALZeX*7TF° RIGHTMOST SYTE OF AODRESS=X*FFP? 
1208 * 6954 F2 O1 12 1276. JNE  SCRCDS BRANCH AROUND IF NO} 
&BBE D2 51 OA 1209 LA LOC eXRE NE XR ADVANCE DATA STRING ADDRESS € 1277 * 
1210 * 4957 OC O1 66A2 SESE 1278 MVC 0s ERRL1+3012)2C0 ALTER ERROR MESSAGE 
48C1 3D 01 5SES4 1211 CLE OCKDSWsi DID WE COME FROM A °D* COMMAND? 4950 C2 87 O2LA i27S B PRINT : PRINT ‘BOUNDARY ALIGNMENT 
48C5 CO 81 4731 1212 BE SCNCSI GO TO CINVERT ADDRESS 2 €: “961 06 4961 1280 oc XL1°06* ON (XX} ADRS. * 
1213 3? 4962 26 4962 1281 pC ALICERRLIN-ERRLIS2) 
48C9 38 80 SEBA 1214 YBN IND, SWONTL 1S THIS SHITCH ENTRY BODE? 4983 66A9 4964 1282 oc AL2CERRLLN} 
&8CD CO 10 4631 1215 BT oTswz IF YESe GG GET FIRST DATA BYTE €3 4965 CO BT oFSF 1283 B ALTOIS GO TO DATA SW ERROR ROUT 
1216 " 1284 * 
&8DL 4D O1 62 SEOD 12147 CLC  242.KR1) + BLANK DATA FIELD BLANK? 4969 8C O1 03 SEO) 1285 SCRCOS MVC 3(2eXR2)sVAL2 MOVE ADDRESS GF LOC TO BE ALTERED. 
&6D6 CO 81 45a9 1218 BE ADRERR ERROR IF YES-~ €. 4966 OE O21 SEOL SDEA 4266 ALC  VWAL2»sK0001 apo TO IT x®0001° 
1219 ® - £974 £2 02 04 1287 LA &( @ ¥R2D, XR! ADVANCE STORAGE ADORESS POINTER. 
&8DA 3C GO SEB? 2220 SCNCDO MVE COC TR.S CLEAR COUNTER. 4977 D2 O1 02 1288 LA 2¢gXRL}eXR1 MOVE PGINTER TO NEXT ENTRY IN STRe 
&BDE C2 62 SECT 2222 La CSTBL eXR2 LOAD ADORESS GF CD TABLE~ | & 1289 * 
4222 * 4G3TA 38 BO SEBA 1250 TBN IND, SWCNTEL 1S THIS SWITCH ENTRY MODE? 
GBE2 OF OO SEBT SEBT L223 SCNCOL ALC COCTReKL ADD ONE TO DATA ENTRY COUNTER « 497TE CO 10 “E31 L291 et OTSH2 If YESe GO GET MEXT DATA BYTE 
&8E8 30 OA SE8T 1224 CLE CDCTR, KOA‘ MORE THAN 10 DATA FIELDS? ee 1292 # 
4&BEC F2 04 12 1225 JRKH SCNCD2 CONTINUE IF LESS THAN LL. 4982 7h 40 00 1293 CLE GiexRE},C* ° END OF DATA IN THE STRING? 
1226 © 4985 C: 92 4BE2 L294 exe SctncdL CONTINUE SCANNING IF 8O 
SQEF CO BF O214 1227 B PRINT PRINT WARNING RESSAGE S 1295 * 
&8F3 01 @BF3 1228 pc RLLEGL® ~ 4989 CG BT &FéF £296 8 ALTOIS GO TO ALTER/DESPLAY SUBROUTINE 
&BFS 26 4&BF4 1229 oc ALLE MERMIN~WARNISE? ' 4297 * 
&BF5 S38E 486 1230 oc AL 2(8ARNING , @ 4960 OF 00 S$E8S SE8C 1298 CBZ ALC  CDCTRLeKi INCREMENT COUNTER IF CARRY 
&BFT GF 09 SES? SEBC 4232 SLC «=. COC TR KE READJUST COUNTER VALUE 4993 CO 87 «934 4299 B col LOOP BACK. 
{ 
DATE Z22AUGTS OSNOVIS 2ENAR TO PROG id CLE-2i © oa Z3BAUGTS OSNOVTS ZoMARTE PROG 10 Ci9-2 
EC NO. 827785 827827 B2ts7s PAGE 13 EC MO. 827785 Gz2782T 22787¢ PAGE 10A 
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C192 


ERR LOC OBJECT CODE 


4997 BC 9A 00 


499A CO 87 4948 


ADOR STKT 


499E 
4943 
49a6 


ic 
7D 
F2 


03 
68 
81 


5E2i 05 
06 
o7 


49a9 
49ac 


7D 
co 


40 
01 


06 
4553 


4960 
4986 


oo 
F2 


03 
Gi 


5E22 
42 


60R6 


4989 
Roe Gvts ee 4980 


30 
F2 


38 
co 


61 
81 


SE94 
33 


49C90 
49C4 


SE8A 
E22 


8G 
10 


49C8 
#9CB8 


*9CE 
#9D1 


7 
F2 


7D 
F2 


co 
06 
26 
6683 
co 67 


FO 
81 


o7 
12 


Fi 
61 


o7 
17 


£904 
4908 
4909 
49DA 
490C 


87 O21A 
4908 
4909 
4908 

4040 


49E0 
4&9E4 
49E8 


38 
3c 
F2 


80 
7 
87 


590A 
SE2C 
08 


49E6 
S9SEF 


3A 
3c 


80 
40 


590A 
SE2C 


49F3 
49FT 


3c 
co 


00 
87 


6159 
SF4F 


49FB 
4A01 


oo 
F2 


03 
02 


SE21 
63 


6OAA 


4A04 
4A08 


3D 
F2 


ol 
81 


5SE94 
8A 


“A0B 
4Aa0F 


38 
co 


7 


80 
10 


SESA 
4€31 
*A13 


68 09 
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PART NO. 
PAGE lls & 
got 
SOURCE STATEMENT “ERR LOC 
1300 * €> 4aie 
2301 EVEN] MVI 0(.XR22.X*9A8 GR IN X*9A° FOR EVEN SITS. 
1362 8 SCNCDS | alg 
2363 + €:  #aic 
1304 + pee nena n Katee enn nnn aan * 
1305 * COME HERE TO PROCESS FOUR-CHARACTER OPERANDS. THE FOLLOWING * = 4A20 
1306 * OPERANDS ARE VALID FOLLOWING AN ‘ALTER* {A} GR 'OISPLAY' (0) * €: 4a2z5 
1307 * COMMANDS : « ~ 
1308 * (1) CSTP CHECK Stop. * #29 
1309 * (2) ALSB ADDRESS LOCAL STORE LEFT SIDE. * €: 4&A2E 
1310 * (3) ALSD ADDRESS LOCAL STORE RIGHT SIDE. * ~“ 4a32 
i311 + (4) EXXX EXTERNAL REGISTERS, WHERE XXX IS THE NAME OF THE REG. * = = 433 
4312 * * (3 4a35 
1313 #te IMPORTANT NOTE tes + 
1314 * WHEN DISPLAYING ‘ADDRESS LOCAL STORES VIA THE "D* COMMAND, THE * = = = 4a37 
1315 * USER MUST CODE *ALSU*® FOR THE UPPER 32 BYTES AND *ALSL* FOR * €. 4a38 
1316 * THE LOWER 32 BYTES OF ALS. * * 
asi? = * 4A3F 
1318 +—-— ae Sennen ene ne en nee -t €3 4a62 
1319 ¢ 
1320 CHARS RVC LOC(4) 250 _XR1) | SAVE OPERAND. SASS 
1321 CLE 6€eXR1)2C%,? DOES A COKMA FOLLOW OPERAND? € >  #A48 
1322 JE CHARA BRANCH IF YES. 
3323 * _ 4ASC 
1324 CLI 6¢eXR1D,C® ¢ DOES A BLANK FOLLOW OPERAND? €3  4a51 
1325 BNE  ACHD4 _ ERROR IF NO. 
1326 * ; _ ASS 
1327 CHARGA CLO LOC (4)4CSTP 1S OPERAND = "CS¥P* 2 @3  @aSA 
1328 JNE CHARS BRANCH IF NO. 4ASE 
1329 ¢ : 4A5e 
1330 CLI DCMDSHei DIO WE COME FROM A 'D* COMMAND? €2 461 
1331 JE CHAR4E BRANCH IF YES. 
1332 4A63 
1333 TBN IND» SWCNTL IS THIS SWITCH ENTRY MODE? ©: 
1334 Bt ss OT SW If YES, GG GET ONE CHAR &A67 
1335 * 4A6D 
1336 CLE TE, ARLES X* FOF WAS ZERO DETECTED FOLLOWING OPER © 
1337 JE  — CHAR4C BRANCH IF YES. 4A70 
1338 + 4A74 
1339 CLE TU eMRID XCF LS WAS ONE DETECTED FOLLOWING GPERAND = @% 
1340 JE CHARA BRANCH IF YES. 4A78 
1341 SATE 
1342 8 PRINT PRINT *CSTP GPERAND NOT FOLLOWED & 
1343 DC = XL 068 BY O71° 4a81 
1344 DC = ALI LERRION-ERR10¢1) 4487 
1345 OC = AL2(ERRIGN? & 
1346 B RINLE GO TO DATA Sw ERROR ROUT 4ARA 
1347 © 
1348 CHAR4C SBF I PKREG, X*80* THIBIT CHECK STOP BIT IN K-REG. €>  4a80 
1349 MMVI LPCSTP eC 4a! MOVE SPECIAL SYBOL. 4431 
1350 J CHARGE BRANCH AROUND. 
1351 ¢ | Ss &A95 
1352 CHAR4D SEN I PKREG» X* 80° DO NOT INHIBIT CHECK STOP BIT. 4499 
1353 NVI IPCSTPSC# ° REMOVE ANY SPECIAL SYMBCL~ 4ASA 
1354 * €3 = 4a08 
1355 CHARSE MVI  CSTOP.0 FORCE PRINTING OF "CSTP* BY CHPPRT 4A9D 
1356 B ALTOIS GO TO ALTER/DISPLAY SUBROUTINE. 
1357 €& 4aa1 
1358 CHAR4B CLC LOC(4) ,ALSB CPERAND = *ALSB* 7 4AAS 
1359 JNE CHAR4F BRANCH IF NO. 
1360 ¢ & 
1361 CHARSE CLE DCMDStiel DID WE COME FROM A *O* COMMAND? 
1362 JE CHARS ERROR IF YES 
1363 & . @ 
1364 TEN = -INDeSWEWTL IS THIS SWITCH ENTRY KODE? 4AL9 
£365 BT oTSH2 IF YES, GO GET ADDRESS 4&AAD 
1366 * © 
1367 CLE 9 oXRID,C*,* DOES A COMMA FOLLOW ADDRESS FIELD? — “ABO 
'@ 
24MARTO PROG 1D C19-2' “pate 
827879 PAGE Li, eo HO. 
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3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 
OBJECT CODE 


F2 


7Oo 
co 


4D 
co 


ic 
co 
G2 


82 


40 
01 


01 
81 


G1 
87 


5EO1 
SETF 


co 
7D 
F2 
co 


co 
ic 
co 
02 


80 
10 


6B 
81 
40 
01 


01 
81 


01 
87 


SOFD 
5E80 


co 


oo 
F2 


3A 
co 


oD 
F2 


OD 
F2 


Fe 


30 
co 


co 
06 
24 


87 


03 
01 


20 
87 


03 
81 


03 
81 


87 


03 
ai 


87 


&6CD 


co 


3D 
co 


30 
F2 


C2 


23AUG75 
827785 


87 


cs 
02 


01 
81 


O% 


SE21 


o7 


69 
4553 


G8 5ECD 
45a9 


5EO01 08 
0226 


SEGA 
4E3i 


oc 
07 


ec 
4553 


08 SEOD 
4549 


SDFD OB 
0226 


&F4F 


SE21 
08 


60AE 
SETF 
SA04 


5E21 
oc 


609E 
6042 
03 
14 


5ESG 
4F4F 


O21A 


40a0 


S5E1E 
4528 


SESS 
89 


‘SF81 


ADDR 


432 
4434 
4436 


45 
4460 
SA62 


4A99 
SAQA 
&A9C 


OSNOVTS 
827827 
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STMT SOURCE STATEMENT 

1368 JE CHAR4S BRANCH IF YES. 

1369 * 

1370 CLI 90 eXRiD,C* 8 COES A BLANK FOLLOW ADDRESS FIELD? 
1371 BNE ACMD4 ERRGR IF NOW 

1372 # 

1373 CHAR4G CLC 8(12-XR1L) e BLANK ADDRESS FIELD BLANK? 

1374 BE ADRERR ERROR IF YES. 

1375 * . 

1376 MYC VAL2Z(2) 684 eXR1) MOVE ADORESS VALUE. 

1377 8 PACK CONVERT EBCOIC TO HEX. 

1378 oc XLi*2e LENGTH. 

i379 o¢ AL2(VAL2} ADORESS GF AREA TQ BE CONVERTED. 
1380 oc AL2UVAL1) CONVERTED AREA ADBORESS. 

i381 * 

1382 TEN IND, SWCATL iS THIS SWITCH ENTRY MORE? 

1383 ST DTSw2 IF VES. GO GET GATA CHARS 

1385 cil 12¢4,XR1),C?,* DOES A COMMA FOLLGW OATA? 

1386 JE CHARSH BRANCH IF YES. 

1387 * : 

31388 Cur L2CeXRLICe * DGES A BLANK FOLLQY DATA? 

1369 BNE ACMD4 ERROR IF NG. 

1390 # : 

1391 CHARSK CiC 13429XR1)— BLANK DATA FIELD BLANK? 

2392 BE ADRERR ERRGR IF YES. 

1393 * 

1394 HVC CONY2(2301145XRi3 MOVE DATA FIELD. 

1395 8 PACK CONVERT EBCDIC TO HEX. 

1396 pC XL1*2?* LENGTH. 

1397 oc AL2(CONV2} ADDRESS OF AREA TO BE CONVERTED. 
1398 oC AL2(VALLA) CONVERTED AREA ADDRESS. 

1399 & 

1400 8 aL TOIS 6G TO ALTER/DISPLAY SUBROUTINE. 
1401 * 

1402 CHARSF CLC LOC (4) eALSD GCPERAND = *ALSD* 2 

2403 JNE CHARS2 BRANCH IF NO. 

1404 % 

1495 SBN VALI oX* 208 OR IN BIT 2. 

1406 8 CHAR4I GO PROCESS STRING. 

1407 * 

1408 CHAR4Z CLE 10064),ALSU OPERAND = “AaLsu® 2? 

1409 JE CHAR4Y ; GO CHECK *D* CMD Sw. 

1410 * : 

1411 cic LGC 14) sALSL GPERAND & *ALSL® 2? 

1412 JE CHAR4Y GO CHECK *0* CHD Sw. 

1413 *# 

1414 J CHARSY GO CHECK GTHER GPERANDS. 

24125 € 

1416 CHARGY CLI DCMD Sw.) DID WE COME FROM A *D® COMMAND? 
1417 BE ALTDIS GG TO ALTER/DOISPLAY SUBROUTINE 
1416 : 

1419 CHAR4SX 8 PRINT PRINT "ILLEGAL OPERAND 

1420 DC XL1*O6? FOLLOWING Cad. ¢ 

1421 oC ALITERRI2ZN-ERR1L2¢1 5 

1422 oc ALZ{ERRL2N) 

1423 s RTHIB RETURN FOR NEXT ENTRY 

1424 % 

1425 CHARSY CLI LOoc-3,C *e) GPERAND SEGINS WITH AN "Et 2? 
1426 BNE CHER2W ERROR IF NG. 

1427 * 

1428 a so rete amcrmacioee seein enewrerimanconnencrrnsmenan 
4429 *% SEGIN PROCESSING IOP EXTERNAL REGISTERS. * 
1431 @ 

1432 CLE DCMD SW,k DID WE COME FROM A *O* COMMAND? 
i433 JE CRAREP SKIP AROUND IF YES. 

1434 % 

1435 LA ROTHL » SRL SETUP ADDRESS OF *READ ONLY* REGS. 
24HARTS PROG 1D C192 
827879 QA 


PAGE 


EBM MAE 


C192 
ERR LOC 
G&AB4 


&4AB8 
A865 


Aco 
AC4 
SACS 
4ACS 
®nal 


Sacc 
&ACF 
4AD3 


&AD7 
4AD8 


“ADE 
4&AE3 


&AE6 
AEA 


SAEE 
&AF2 


“AF6 
SAFB 


GAFE 
4801 
“BOS 


£809 
“80D 
“BOE 
480F 
“B11 


4815 
4819 


“81D 
4B23 
£829 


482¢ 
4830 
4831 
4833 


4835 


4839 
48 30 


4641 
4846 


£849 
4B4D 
&BSE 
& BSF 
*85i 


4655 
“BS 


DATE 
EC no. 
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NTENANCE DIAGNOSTIC PROGRAM 
3340 ADAPTER MANUAL OPERATIONS PGR 
CBJECT CODE ADOR STHT SOURCE 
C2 62 0006 1436 
1437 2 
40 063 03 SE21 1438 CHARSK 
F2 01 OC 1439 
1449 2 
CO 87 O2i1a 1442 
06 4AC4 1442 
24 SACS 14463 
6504 SACT 14464 
CO 87 40AD 1445 
1466 ¢ 
D2 O1 046 1447 CHAR4L 
36 02 $006 1448 
CO 01 4ABE 1449 
1480 ¢ 
38 80 SESA 1451 
CO 10 4&31 1452 
1453 ¢ 
30 68 61E5 - 1454 
F2 81 08 1455 
1456 * 
30 40 61E5 1457 
CO OL 4553 1458 
1459 ¢ 
C2 02 SFAD 1460 CHARGJ 
C2 O02 0014 146) 
1462 © 
£0 03 03 SE2) 1463 CHARGH 
F2 81 if 1464 
1465 ®@ 
D2 O1 04 2466 
36 O2 S0D8 1467 
CO G2 4AFS 1468 
1469 * 
Co 6? czka 1470 | 
6 ‘B00 14671 
24 &BGE 1472 
6638 “B10 1473 
€0 87 4CaD 1474 
1475 * 
3D O01 SEO4 1476 CHAR4H 
CO 81 4FeF 147T 
1476 * 
OC O1 SEO] GIES 1479 
6O 02 SEO! SEOD 1480 
€2 8i 38 1481 
1482 ¢ 
CO 87 G226 1483 
2 SB30 1484 
SEQ1 #832 1485 
SETE 42334 1486 
1487 & 
CO 87 afar 1486 
2489 2 
C2 91 SFS9 1496 CHaRee 
C2 Q2 0005 1491 
1492 ¢ 
4D 03 03 SE21k 21493 CHAR4SS 
F2 OL OC 1494 
1495 *% 
CO 87 O21a 2496 
06 &B40 1497 
26 SB4E 21493 
65680 4250 1499 
CO 87 40aD 3500 
1501 ¢ 
G2 02 O46 1502 CHAR4Q 
36 O02 SOD8 1503 
23AUG75 OsNOVES 24RART6 
@27765 827879 


s27e2z7_ 


- MOD 12 

STATERENT 

LA Gy XRZ 

cic 3(45XR2$630C 
JNE  CHARGL 

8 PRINT 

oc ¥LE° OBE 

oc ALI CERRSN~ERRS 41} 
oc AL Z(ERRSH!E 

8 RTHLB 

L& 4¢ oXRE 2 KARE 
A REGGE e KRZ 

BN2 CHAR ee 

TON IND. SHCHTE 
eT OTSK2 

cur TNPUT*9.C*,* 
JE CHARSS 

cul INPUT49.Ce ¢ 
8NE ACMD4 

La LRIGL se XRL 

LA 20eXR2 

ccc 314 oXR1} LOC 
JE CHARGER 

4 GC oXRL} KR? 
A NEGLI», XR2 

BRZ CHARSN 

8 PRINT 

oc XLitgse* 

oc ALL CERRSH-FERRGOL! 
oc AL2¢ZRRSN) 

& RITNIB 

Cut OCKO SH. ft 

BE ALTOIS 

vc VAL2(2) - INPUTS 
cLe VAL2€23 «BLANK 
df CHARGR. 

8 PACK 

oc RL Be 28 

O¢ ALZUVAL2? 

oc AL2CVALES 

é& AL TOES 

tA LOWELL ¢ RRL 

La SeKRZ 

CLec 30 %- RRLE ph GC 
JSNE THARSG 

8 PRET 

oc KER EDG* 

oc AL LC ERREH-ERRSEO? } 
oc AL 2(ERRONS 

6 RTWB 

ta 41 o RRL, RRL 
a MEG g RRZ 
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oO 


LOOP COUNTER = 6. 


OOES REG VALUE MATCH ANY IN TABLE? 
BRANCH IF NG. 


PRINT *REG SPECIFIED CANT 
SE ALYERED* 


RETURN FOR MEXT ENTRY 


IMCREMENT TABLE POINTER BY 4. { 
DECREMENT LOOP COUNTER BY Le : 
LOOP TEL COUNT GOES TO ZERO. 


IS TMEIS SWITCH ENTRY MODE? 
IF YES: GO GET DATA 


DOES A COMMA FOLLOW DATA FIELO? 
CONTINUE IF YES. 


DOES A BLANK FOLLOW DATA FIELD? 
ERROR IF AO. 


LOAD ADRS OF *ALTER/READ® FABLE. 
SETUP LOOP COUNTER. 


REGISTER SPECEFIED MATCHES TABLE? 
BRANCH TF YES. 


INCREMENT TABLE POINTES 
DECREMENT LOOP COUNTER. 
CONTINUE SEARCHING. 


PRINT SERVALEIO EXTERNAL REG 
SPECIFIED? 


RETURN FOR NEXT EXTRY 


IF VESsGO TO ALTER/DISPLAY SUB. 


GET STARTING ADDRESS OF STRING. 
USER FORGOT REGISTER VALUE? 
ERROR EF YES. 

CONVERT EBCDIC TO HEX {MONITORS 
LENGTH OF FIELD YO SE CONVERTED. 
AREA FO SE CONVERTED -RIGHTROST BYTE 
CONVERTED RESULTS-RIGHTMOST SYTE 





GO TG ALTERSDISPLAY SUBROUTINE. 


SETUP ADDRESS OF 
LOGP COUNTER = §. 


SLOAD ONLYS REGS. 
OGES REG VALUE BATCH ANY EN TABLE? 
BRANCH IF RO. 
PRINT "REG SPECIFIED CAN*T 

SE DISPLAVED® 
RETURN FOR NEXT ENTRY 


INCREMENT TABLE POINTER Ov 4. 
CECRENENT LOOP COUNTER BY 1. 


Palen arene Serene renee eat + henner + atm eee mente ating a eee 
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DIO WE COME FROM A *D* CHD? 
| 


ISM MAINTENANCE DIAGNOSTIC PROGRAM 


wo 192 


ao 9 


oOo © 


- - . 


@¢é¢oe¢@@@@@ 0 6 


"ERR coc 


4B5C 
4860 


4B64¢ 
£868 
4B69 
4864 
4B6C 


B70 
4B75 


&B78 
&B7C 


“B80 
4884 


&58A 


45 8E 
4892 
&896 


BSA 
&BSE 
“BAL 


BAS 
4BA8 


&8A8 
&BAF 


4582 
& B86 
S888 
&BBE 


£86Cl 


DATE 
EC NO. 


QBJECT COSE 


CO OL 


co 


87 


cO 87 


06 
26 


6730 


co 


4D 
F2 


3c 
co 


oc 
co 


34 


cz 
SC 
3 


3k 


38 
2 


€3 


23 AUGTS 
627785 


87 


02 
81 


or 
87 


43 
58 


8? 


68 
02 
01 
40 


e 
& 


10 


02 
O14 


C7? 
CY 


G2 
sO 


10 


ADDR 


“B41 
SAEE 


O2iA 
£868 
4869 


4868 
*0A0 


02 5E00 
0€ 


SES4 
44685 


6165 
6164 6165 


$228 


4049 
4041 
44S 
6i0¢ 
40 4&2 


4i 
hl 


SESS 
16 


5E 25 
5860 
586D 
OF 


O02 


OSNOV7TS 
827827 


@ 
@ 
® 
e 
a 
@ 
® 
® 

e 





PART HO. 
PAGE 


4247615 
12a 


3340 ADAPTER MANUAL OPERATIONS PGR = MOD 12 



























































STMT SOURCE STATEMENT 
150¢ BNZ CHAR4SS LOOP TIL COUNT GOES TO ZERO. 
1865 B CHAR4J GO CHECK GTHER TABLE. 
06 # 
ee CHAR4R 8B PRINT PRINT *HO VALUE FOLLOWING 
1508 pC XL1*06« ALTER REG CHD® 
41509 DC ALL (ERRISN-ERR15S411 
1510 oc AL2(ERRISN) 
1511 8 RINIB RETURN FOR NEXT ENTRY 
1512 @ . 
1513 teen ne — 
1514 @ COME HERE IF & "D* (DISPLAY) TYPE OF COMMANDO IS DETECTED. © 
1515 @ THIS COMMAND WILL ONLY OISPLAY A REGISTER VALUE OR CORE ¢ 
1516 ¢ LOCATION IN THE 10P. MOST OF THE CHECKING FOR VALIO ENTRIES © 
1517 * ARE OONE USING THE °A* COMMAND CODE. * 
1518 * IF *D* IS FOLLOWED BY AT LEAST 3 BLANKS, THE STANDARD & 
21519 @ REGISTER DISPLAY WILL BE PRINTED IN ITS ENTIRETY. & 
8520 ¥-- ~~ a ais a 2 
1521 @ 
1522 OCND C&C 3U3eXR1) sBLANK IS OPERAND FIELD BLANK? 
1523 JE OCMD1 GO If YES 
1524 # 
1825 MVE OCMOSHeL SET *D*® TYPE COMMAND SW ON. 
2526 8 ACMD GO TG PROCESS °A* TYPE COMRAND, 
1527 @ 
1528 OCMOL W¥I REGTBN.CE ¢ FORCE FULL REGISTER PRINT 
1829 MVC REGTBN~L(REGTBSN-REGTBL),REGTEM GY CLEARING OUT NISTORY 
1536 ¢ 
1531 8 HCMD BRANCH TO *H® CGRMAND RDUT INE 
1532 ¢ 
LG 33 Greener ener er cre re rear ey ae NET EOE eee awtsresioeeses 
1534 * ts READ 5471 KEYBOARD SUBROUTINE tee & 
1536 ¢--~- ¢ 
1536 % 
1537 READKE ST RDSAV43, ARR STORE RETURN ADDRESS. 
1538 St XRLN¢3 »XRI SAVE KRLe 
$39 ST X¥R2D+3,XR2 SAVE KR2. 
1540 © 
1541 READO LA INPUT RRL SET PQS CIR TO INPUT AREA 
8542 MVE 65 oe XR1VP oK*408 CLEAR 
1543 MYC 64 165,XR1) 0650 oXRL} INPUT AREA 
1544 ¢ 
1545 READOS SIG RETLZPRT _ RETURN CARRIER 
1546 READOC SIG xX*1L* KEY RESET AMD TURN PROCEED ON 
1547 = 
1548 Gon oer % 
1549 ¢ THE "READ® SUBROUTINE WILL NOW EXAMINE SEVERAL CONDITIONS In * 
1550 # THE **7OPe* TO DETERMINE WHAT TOOK PLACE PRIOR TO ISSUING THE ¢ 
155i & NEXT COMMAND. IT SHOULD BE NOTED HERE THAT IF THE "ENO © KEY & 
£$52 ¢ OF THE 5471 KEYBOARD IS ACTIVATED, THE CHECKS WILL BE BYPASSEDS 
1553 ¢ AND PROCESSING WILL PROCEED WORRALLY< : 
1554 ¢ 
1S55 «& ~END~ OR -RETURN- KEY ENTERS COMMAND & 
1556 ®& “CANCEL- KEY CAUSES IKPUT T3 BE ERASED * 
L557 Same. bathe eeanieee s 
21558 % 
1559 REAGOA CLE RUNSH,1 HAS A °G* COMMAND BEEN ISSUED? 
15606 JME TSTSH IF NO, GO WAIT FOR INTERRUPT REH 
RS6L & FROM KEYBOARD OR DATA SWITCRES. REH 
1562 * : R 
1563 READL LIG SWHALT.Xx*C7° CHECK TO SEE IF °I0P* IS HALTED. 
1564 SNS SVPTEM,x°C7e *¢ 
L565 *@ 
1566 TBR SVPTER.xX*O2! *10P% HALTED? 
S67 oF TSTSH IF WO. SG WAIT FOR INTERRUPT REH 
1568 & FROM KEYBOARD OR DATA SWITCHES. REN. 
1569 # 
1576 SIG XP O1* AKEY TURN PROCEED OFF 
1571 & 
24HARTE PROG 1D Ci9~2" 
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C192 = 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 C192. 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
&BC4 CO 87 4C4A 1572 8 TOPHLT GO TO DETERMINE REASON FOR HALT *C60 CO 87 021A 1640 ) PRINT *10° HALTED DUE TO CHECK sTOoP* 
1573 ¢ REH. 4064 02 4064 1641 oc XL1°02¢ 
_______——C BB CO 87 0212 1574 TSTSw B TEST Tf SENSE SwtTeH-re RET L1 CERRIGN-ERRIG641 
4BCC 38 02 020A 1575 TeX SBYTE2,SSH16 IS GN, GS TO REH €% 4€66 6760 4C67 1643 oC AL2(ERR16N) 
4BD0 F2 90 07 1576 JF KBLOGP SWITCH ENTRY. REH ~ 4€68 CO 87 5877 1644 8 CMPPRT GO PRINT REGISTERS 
4BD3 f3 10 02 1577 S10. X*02° KEY OTHERWISE, | REH 1645 # 
4BD6 CO 87 4C92 1578 a SWENT . "CONTINUE. REX €% 4C6C 38 08 590A 1646 IOPHL2 TSN IPKREG,X*04! IS ADDRESS COMPARE ACTIVE? 
1579 * ~ 4070 F2 90 13 1647 JF TOPHL3 ERROR IF BIT 5 OF TPKREG = 0 
4BDA 30 11 61C4 1580 KBLOOP SNS  KYSTAT,X*1i' SENSE KEYBOARD STATUS 1648 * . 
1581 * € +  4€73 38 0% 590C 1649 TEN IPAPTR»X*OL? ADDRESS COMPARE STOP? 
4BDE 39 40 61C4¢ 1582 TBF KYSTAT,X*40! CHECK FOR END OR CANCEL KEY “£77 F2 90 0C 1650 JF TOPHL3 IF YES», QUTPUT ERROR MSGe 
6BE2 F2 10 11 1583 JT TSTOAT GO IF NO 1651 * 
: 1584 * ' €>  4C7A Co 87 021A 1652 8 PRINT ‘IOP HALTED DUE TO ADRS COMP STOP? 
4BE5 38 20 61C4 1585 TBN KYSTAT,X*°20° CHECK FOR CANCEL KEY / " @C7E 02 4C7E 1653 DC XL1*02¢ 
i 4BE9 CO 10 4B9A 1586 BT READO GO iF YES 4CTF 26 4C7F 1654 nc ALICERALIN—-ERRI 7619 
1587 * | €%  4C80 67386 4C81 1655 oc AL2(ERRITN) 
| 4BED F3 18 43 1588 READN SIO RET1,PRT RETURN CARRIER 4C82 CO 87 5877 1656 B CMPPRT GO PRINT REGISTERS 
48FO F3 10 01 1589 SIO = X02 * »KEY TURN PROCEED OFF 1657 * 
1590 © : €i)  4€86 Co 87 021A 1658 IGPHL3 6 PRINT PRINT *IOP HALTED* 
4BF3 F2 87 48 1591 J XR1D GO TO RELOAD 10x REGS 4C8A 01 4C8A 1659 oc xL1"01° 
1592 * | ~. . 4C8B OB 4C8B 1660 oc AL 1(MSG3N-MSG63¢1)} 
4BF6 38 08 61C4 1593 TSTDAT T8N KYSTAT,X*08* CHECK FOR RETURN OR DATA KEY i €%  4C8C 6424 | 4C8D 1661 oC AL2(MSG3N) 
4BFA CO 90 4848 1594 BF READOA GO IF NO 4C8E CO 87 5877 1662 . 8 CMPPRT GO PRINT REGISTERS 
1595 * 1663 * 
SBFE 38 04 61C4 1596 TEN KYSTAT,X*04! CHECK FOR RETURN KEY o 1664 #--—-——~ oem S 
4C02 CO 10 4B8E0 1597 BT READN GO IF YES | 1665 + *te ROUTINE TO READ DATA SWITCHES e¢¢ : 
1598 @ 1666 * 
4C06 39 03 6104 1599 TBF «KYSTAT,X*03° CHECK FOR TRANSLATOR | @ 1667 * THIS ROUTINE WILL BUILD AMOP COMMANDS BY READING s 
4COA F2 10 10 1600 JT NOCK AND DATA CHECKS OFF | 1668 * INPUT AT THE DATA SWITCHES AFTER A SERIES OF HALTS * 
1601 * . | 1669 * IF DATA SW 1 IS AT -8-. * 
Shosant eeu een 4COD CO 87 021A 1602 8 PRINT PRINT @ 1670 * * 
| 4C1l C6 4C11 1603 DC XL1°Cet *CONSOLE | 1671 * DATA SW il s 
4C12 16 4C12 1604 oc ALL CERR7IN-ERR7141} KEYBOARD 1672 * C - CANCEL COMMAND * 
4C13 6784 4014 1605 DC AL2(ERR71N) ERROR! | & 1673 # B - BUILD COMMAND * 
&C15 C171 4C16 1606 oc AL2CHLTT721) 1674 * A - TAKE ACTION ON COMMAND * 
1607 ¢ | 1675 * ® 
4C17 CO 87 0222 1608 8 HALT ERROR | @ 1676 * HALT DO — ENTER COMMAND CODE IN SW 2 & FIRST OPERAND * 
4C1B C171 4C1C 1609 DC ALZ(HLTT72) HALT 1677 + CODE(IF REQUIRED IN SWITCHES 3 6 4 * 
1610 * | 1676 * HALT Dl - ENTER 1 DIGIT OPERANO IN SW 4 2 
4C1D 4C 00 00 61C3 161) NOCK MVC 0(1¢XR1) -KYSTAT~1 SAVE INPUT ® 1679 * HALT 02 ~ ENTER DIGITS 1 & 2 OF OPERAND IN SW 3 & 4 * 
4C22 31 16 61C4 1612 LIO KYSTAT,PRT LOAD CHARACTER TO BE PRINTED | 1680 * HALT D4 ~ ENTER DIGITS 3 & 4 OF OPERAND IN SW 36 4 * 
4C26 F3 16 80 1613 SIO = PRINT1 PRT PRINT ONE CHARACTER 1681 * HALT 06 - ENTER DIGITS 5 & 6 OF OPERAND IN SW 3 & 4 * 
1614 2 1682 * ¢ 
4C29 02 01 OL 1615 LA 10) XR1L) oXRI INCREMENT COUNTER | © 1683 ¢ PARTIALLY COMPLETE COMMAND WILL BE PRINTED AFTER EACH ENTRY : 
1616 ® 1684. ---- ahataieinnenetenemmmeneed 
4C2C 34 01 S5DEO 1617 ST XR1S4—XR1 ALLOW ONLY | gg 1685 * 
4C30 0D 01 SDEO 6106 1618 CLC = XR1S4,,AIN 65 BYTES 4C92 3A 80 SEBA 1686 SWENT SEN  IND,SWCNTL TURN ON DATA SW CNTL INDICATGR 
4C36 CO 61 4BED 1619 BE READN OF INPUT | 1687 * 
1620 © _@ = 4c96 co 87 se20 1688 B TSTIOP GO TO TEST FOR IOP HALTED 
4C3a CO 87 48a8 1621 8 READOC WAIT FOR NEXT ENTRY 1689 * 
1622 * 4C9A CO 87 021A 1690 8 PRINT PRINT 
4C3E C2 01 0000 1623 XRID «LAO KRD RELOAD XR1. | €} 4C9E 06 4C9E 1691 DC XL1"O6* ENTER COMMAND 
4C4%2 C2 02 0000 1624 XR20—soLA #—& » XRZ RELOAD XR2. 4C9OF 2E 4C9OF 1692 oC AL 1(MSG8N-HSG8< 1) I® DATA SWITCHES? 
C46 CO 87 0000 1625 RDSAV 6 a~# RETURN TO MAIN LINE. | 4CAO 6474 4CAl 1693 oc AL2(MSG8R) 
1626 © : @ 1694 * 
2627 #-— wanna - ee ne - -* 4CA2 CO 87 0222 1695 8 HALT HALT FOR COMMAND INPUT 
1628 © COME HERE IF 10P HALTS DURING AMOP COMMAND ENTRY PHASE * i 4CA6 €1D0_—i 4CA7 1696 oC XL2°Cipdo08 
1629 e- eT ee a -- © 1697 # 
1630 * 4CA8 30 00 5E30 1698 SNS DATASWeO READ DATA SKITCHES 
4C4A CO 87 4268 1631 I10PHLT g HSIOP GO SAVE IOP STATUS. : 4CAC 08 O02 5E32 SE2F 1699 MNZ SWTEMP,DATASH-1 STORE SWITCH 1 
4C4E CO 87 428C abe 8 IOPREG GO GENERATE *10P* REGS. : €}  4ce2 38 Fo 5e32 1700 SBF SWTEMP,x®Foe AND MASK 
633 * 1701 # 
4C52 38 80 590A 1634 TEN = FPKREG»X* 808 IS CHECK STDP ACTIVE? 4CB& 3D OA 5E32 1702 CLI SWTEMP,X*OA2 IS SW 22 A ? 
4C56 F2 10 13 1635 JT 1OPHL 2 BRANCH IF SIT O OF IPKREG =1. | &} 4cpa £2 01 08 1703 JNE = - SUNT 60 IF RO 
1636 2 1704 * : 
4C59 3D FF S90F 1637 CLI LPCHK,X* FFE ANY *10P* CHECKS? 4CBD 38 80 SEBA 1705 SBF = IND SUCNTE TURN GFF SWITCH CNTRL INDICATOR 
4C5D F2 81 0C 1638 SE  —- LOPHLz BRANCH IF NO I0P CHECKS. | @ 4cc1 co a7 40c9 1706 B KYBDEC GO TQ DECODE COMMAND IN BUFFER 
1639 @ 1707 @ 
DATE 23AUG75 OSNOVTS 24MARTS PROG ID 19-2 @ ore 23AUG75 OSNOV7S 24MART6 PROG ID 19-2 ~ 
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PAGE 14 
3340 ADAPTER MANUAL OPERATIONS PGM = HOD 12 
OBJECT CODE ADDR STMT SOURCE STATEMENT 
3D OC 5E32 1708 SWNTL CLI SWTEMP,x*OC® iS SWITCH Le C ? 
Co @l 4EEB 1709 BE SWCANC GO IF YES 
1710 « 
3D 08 SE32 1711 CLE SWTEMP,X*OBe IS SWITCH 1 = B ? 
CO O1 40a0 viz BNE  RTN1B RETURN TO START IF NOT 
1713 © 
OC 00 5E32 SE2F 1714 MVC «= SWTEMP(.1), DATASK~1. MOVE SWITCH 2 TO TEMP STORAGE 
38 £0 5E32 1715 SBF SWTEMP,. X*EG® AND MASK 
1Tl6 2 
3C 40 6210 1717 MVI INPUT?¢65,C® ¢ CLEAR IMPUT AREA 
OC 40 621C 6210 1718 MVC «—s LNPUT4+64(655 5 EMPUT+65 
. 1719 ® 
38°40 58a 1720 SBF INO, NCOMMA TURN OFF 'NO COMMA® ENDICATOR 
1721 # FOR SW DIGIT ENTRY ROUTINE 
3D 00 5E32 1722 CLI SWTEMP.6 WAS *O° EN SWITCH 2? 
CO 81 4174 i723 gE CYCLE GO TG SINGLE CYCLE ROUTINE IF YES 
* 
C2 01 6063 1725 LA SWOMD » XR1 POINT TO COMMAND CODE TABLE 
C2 02 6070 1726 LA CMORT2, XR2 POINT TO COMMAND ROUT TABLE 
27 * 
1D 00 5E32 00 1728 SWNT1A CLC SWTEMP(1),06,XR15 COMPARE DATA SW 2 TO CHD TABLE 
F2 81 21 1729 JE SWNT1B GO LE EQUAL 
1730 * 
D2 01 01 1731 LA LC yXRED OXRI ADVANCE CHD CODE POINTER 
£2 02 02 1732 LA 2¢eXR2)5XR2 ADVANCE CMD ROUT ADDR POINTER 
70 FF 00 1733 CLI OL pXRLEAX*EER END OF TABLE? 
CO OL 4CFD 1734 BNE SWNTLA LOOP BACK IF NO 
1735 * 
38 40 0a19 1736 TBN COM, NOMPL BRANCH IF MPL COMMAND 
CO 10 410€ 1737 BT- CMDERR IS INHIBITED 
1736 © 
3D 08 5E32 1739 CLI SWTEMP,x*08° WAS °G° (MPLD IN SWITCH 2 
CO 81 411A 1740 BE MPLCND GO EF YES 
L741 @ 
CO 87 410E 1142 8 CMDERR GO TO PRINT INVALID COMMAND 
s 
1C 00 610C 07 1744 SWNTIB MVC = EINPUT(CL) SCMDTBL-SWCMD(,.XR1) MOVE COMMAND TO INPUT BUFFER 
2C 01 E21 02 ~~ MVC =—- SWNT X43.(23 029 XR2? STORE COMMAND ROUTINE ADDR 
1746 * 
C2 01 610C ate! LA INPUT, XRI SEY UP INPUT POS PTR 
1748 * 
7 C7 00 1749 CLL «= OL »XR19,C*G* IS COMMAND "G*® ? 
F2 01 19 1750 JNE  SWNTIC GO if AO 
175) * 
3D 00 5E30 1752 CLI DATASH.X*O0" WAS OO IM SHB 6 4 
F2 61 CE 1753 2 SWPRTS. GO IF YES 
1756 * 
7C 68 01 1755 MVE «LU KRLD ECE, ? MOVE COMMA TO BUFFER 
1756 * 
CO 87 O21E 1757 8 UNPACK UNPACK SWITCHES 3 & 4 
ol 4D48 1758 DC XLifo1e TO INSUT BUFFER 
SE 30 404A 1759 DC AL2(DATAaSH} 
61DF 404C 1760 oc AL2C EMPUT+3) 
1761 9 
D2 01 03 1762 Lé BC eXRL$,¥RE ADV INPUT POS PTR TG END GF oF 
€2 87 BC 1763 J SWPRTS GO TO PRINT COMMAND 
1¥64 * 
7D C& 00 1765 SWNTIC CLE 0(,XREb,CeDE ES IT §p* cep 2 
F2 01 O07 1766 JHE = SWHT? GG IF NOT 
1767 * 
3B 00 5E30 1768 CLF «= DATASHLG IS GPERAND *00* ¢ 
#2 Gl 06 1769 SHE = SUNTZA GO ¥O OECODE OpERaND EF NOT 
1770 = - 
70 CL 00 ATTL SWNT2 CLE O€exRREDCoAE IS L¥ AN °A® CoD ? nm 
F2 01 a9 1772 JRE S$WPRTS GO TG PRINT COMMAND If NOT 
1773 * 
7C 68 O1 1774 SHNT2A MVE = EE KRLD CC #e® MOVE °c! TO ENPUT BUFFER 
O68 02 SE32 5E30 1775 WNZ «=—- SHT ERP, DATASK MOVE DATA Sw 3 
23AUG75 OSKOVTS 24RARTC PROG 10 C192! 
827785 827827 82787¢ PAGE 14 | 
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OBJECT CODE ADDR STMT SGURCE STATEMENT 
3B FO 5E32 1776 SBE  SWTEMP,x*FO? TO TEMP STORAGE 
1777 ¢ 
3D 02 5E32 1778 CLI SWTEMP,x*02¢ IS IT 2 CHAR OPERAND 
F2 O1 OA 1779 SNE  SWNT3 GO IF NOT 
1780 * 
C2 02 6082 1781 LA OP2TBLe1exR2 POINT TC 2 CHAR TABLE ; 
02 01 03 1762 LA  - 3a XR1D e XR ADV INPUT POS PTR TO ENO OF OP 
F2 87 OE 1783 J SWNT3A CONTINUE 
1784 ¢ 
3D 03 5E32 1785 SWNT3 CLI SWTEMP,x*03° 1S IT 3 CHAR OPERAND 
F2 01 16 1786 JNE  SWNT4 GO If NOT 
1787 * 
C2 02 6088 1788 LA OP FBL*2,XR2 POINT TO 3 CHAR TABLE 
02 01 0% 1789 LA te XR19 yo XR1 ADV INPUT POS PTR TO END OF OP 
34 01 SE36 1790 SWNT3A ST —s INPOSyXR1 STORE INPUT POS POINTER 
C2 01 607C 1791 LA  —- SWOP23yXRL POINT TO SWITCH CODE TABLE 
38 FO 5E30 1792 SBF DATASW,X*FO? MASK SWITCH 4 
F2 87 38 1793 3 SWNT5 GO TO SEARCH CODE TAB. 
1794 * 
D2 01 05 1795 SMNT4 LA 5l)XR1))XR1 ADV INPUT POS PTR TO END OF OP 
34 OL 5E36 179% ST —_—INPOS, X31 STORE INPUT POS POINTER 
3C 04 4DEF 1797 MVI _ SWEXR24#2yX* 04° INITIALIZE IN CASE INVAL S¥ 3 
3D 04 5E32z 1798 CLI SWTEMP,X* 04° 1S IT 4 CHAR OPERAND? 
F2 82 44 1799 JL SWNTSC GO IF SWITCH 3 LESS THAN 4 
3D 05 5£32 3800 CLE SWTEMP,x*0S* GO YO PRINT ERROR 
F2 84 3D 1801 JH SHNTSC IF Sw 3 GREATER THAN 5 
1802 * 
39 03 5E30 1803 TBF  DATASW,X*O3* ARE BITS 6 & 7 OFF? 
F2 90 08 1604 JF SWNT&A IF NOT GO SEARCH EXT REG TABLE 
1805 * 
C2 01 6095 1806 LA  —- SWOP45xR1 POINT TO & CHAR NON-EXT CODES 
Cz 02 S509E 1807 LA —- OP&TBL43eXR2 POINT TO NON-EXT REG OPERANDS nan na Nene 
F2 87 08 1808 J SWNT4B CONTINUE 
1809 * 
C2 O1 604D 1810 SWNT4A LA —s ERD BL y XR POINT TO EXT REG SW CODES 
C2 02 6005 1811 LA  —_— ERDNAN3, xR2 POINT TO EXT REG OPERANDS 
3B EO 5E36 1812 SWNT4B SBF OATASW,X*EO! MASK SW CODE 
3B O1 SE32 1813 SBE SHTEMP,x*O1* HASK SWITCH 3 
1814 * 
OC 00 4DEF SE32 1815 SWNTS MVC SWIXR242(1)¢SWTEMP SET RUMBER OF CHARS 
1816 * 
10 00 SE30 00 1817 SWNTSA CLC OATASWL1),0t,xR2) COMPARE SW 4 TO CODE TABLE 
F2 81 11 1818 JE SWNTSB GO IF MATCH FOUND 
1819 * 
D2 O1 02 1820 LAs Lp XR2D ge XRE ADVANCE SWITCH CODE POINTER 
E2 02 00 1821 SWIXR2 LA  —- = XR2D4XRZ ADVANCE OPERAND NAME POINTER 
70 FF 00 1822 CLI OL oXRLD eX*EFE END GF TABLE? 
CO OL 4DE2 1823 BNE  SWNTSA LOOP TF NO 
182, ¢ 
C2 02 5E3C 1825 SWNT5C LA  ASTRSK,XR2 POINT TO ASTERISK IF CODE ROT FOUND 
1826 © 
35 OL 5636 1827 SWNTSB L INPOS, XRL RESTORE INPUT BUFF POS POINTER 
OC 00 4E0C 4DEF 1828 NVC «= SHMVS4¢L(1L),SWIXR2¢2 SET UP NUM CHARS 
OF 00 SEOC 5E8C 1823 SLC | SWMYS©LCLD GK IN MOVE TO INPUT BUFFER 
6C 00 60 oO 1830 SHHVS MVC 0€8-%,XR1},0{ ,XR2} MOVE OPERAND TO INPUT BUFFER 
D2 C1 OL 1631 SWPRTS (A «1 @MR1) g XRL ADV INPUT BUFF POS POINTER TO NEXT 
34 01 5E36 1832 ST  INPOSsXRE STORE POS FOR ANY FOLLOWING ENTRIES 
CO 87 4&FG3 1833 B PRINPT PRINT INPUT BUFFER SUBROUTINE 
1834 * . 
C2 OL 610¢ 1835 LA  -« ENPUTeXRI RESTORE ENPUT POS PTR TO POS 1 
1836 ¢ 
CO 87? D000 1837 SENTX 6 es EXIT TG PROCESS CHO & FIRST OPERAND 
1838 © 
1839 es man 3 : @ 
1840 * THIS ROUTINE IS ENTERED TO READ IN FROM THE DATA SWITCHES * 
184} * OPERANDS OF le 2. 4: OR 6 DIGITS AFTER THE COMMAND * 
1842 * AND FIRST OPEFAND HAS BEEN READ BY THE °SWENT' ROUTINE * - 
1843 * a etme anata seen ae enanncnrenenenenrenemenenanenenantn avam } 
23AUG7S  OSNOV7TS  26mARTE PROS 10 C19-2° 
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3340 ADAPTER MANUAL OPERATIONS PGH 


OBJECT CODE ADOR STMT SOURCE 


1844 © 
3C O1 SE9B 1845 DTSwi 
3¢ DI 4E65 1846 OTSW1B 
F2 87 1A 1847 
1848 *& 
3A 40 SEBA 1849 OTSW2N 
3c 02 5E9B 1650 DTSW2 
F2 87 08 1851 
1852 * 
3C 06 5E9B 1853 OTSW4 
F2 87 04 1854 
1855 * 
3C 06 SESB 1856 OTSW6 
3C D2 4E65§ 1857 DTSW6A 
1858 * 
34 O8 4EET 1859 OTS#6B 
34 O1 4EE3 1860 
186] * 
35 01 5E36 1862 
1863 
OD O1 5E36 61C6 1864 
F2 81 7C 1865 
1866 * 
Co a7 4F2D 1867 
1868 
Co 87 0222 1869 OTSWla 
Ci00 4£65 1870 SWHALT 
i871 *% 
30 00 5E30 1872 
1873 * 
08 O02 SE32 SE2F 1874 
38 FO 5SE32 1875 
1876 3 
30 OA 5E32 1877 
F2 81 5D 1878 
1879 ¢ 
3D OC 5E32 1880 
CO 81 4EE8 1881 
1882 # 
38 40 SESA 1863 
F2 16 G& 1884 
1885 * 
7 6B 00 1886 
O2 01 01 1887 
1688 * 
Co 87 O21E 1889 DTSW2c 
Ol 4E94 1890 
5&30 E96 1891) 
5E34 E98 1892 
1893 ¢ 
3D 01 5E98 1894 
F2 01 OF 1895 
1896 * 
4C 00 00 5SE34 1897 
O2 O01 O1 1898 
CO 87 4FO3 1899 
F2 87 29 1900 
1901 
4C 01 01 SE34 1902 OTSW2A 
D2 01 02 1903 
CO 87 4&FO3 1904 
1905 * 
08 03 5E32 4E65 1906 
OD O00 SE9B 5SE32 1907 
F2 81 OE 1908 
1909 * 
OE 00 “E65 S5E8D 1910 
3A 40 SEBA 4911 
23AUGT5 OSNOVTS 24MART6 
827785 827627 827879 


- OD 12 

STATEMENT 

MVy SWOIGTsi 

HVI SWHALT.sX*0i* 
J OTSwW6B 

SBN INDeNCOMMA 
MVI SWDOIGT,2 

J OTSW6A 

MVI SHOIGT o4 

J OTSW6A 

MVI SWDIGT 6 

MVI SWHALT,X*O2°* 
st OTSWX43 »ARR 
ST OTSWXR*+3-XR2E 
L INPOS,XR1 

cic INPGOS( 2) -AIN 
JE DTSK28 

8 TSTIOP 

8 HALT 

oc xL2°c 2008 

SNS DATASW.O 

MNZ SWTEMP -CATASW-1 
SBF SWTEHP,X*"FO* 
Cil SWTENP »X*OA® 
JE OTSw26 

cil SWTEMP »x* OC? 
BE SWCANC 

TBN INO »NCOMKA 

JT OTSwec 

HVE Of eXR1D eC e® 
LA 10—XR1)_XRI 

8 UNPACK. 

oc XL1*oO1°* 

oc AL2(OATASH) 
oc AL2( SHVAL? 
cur SWOIGT,2 

INE OTSW2A 

«VC O(1,XRi} pSWVAL 
LA LC eXR1L) XR 

8 PRINPT 

J OTSw2B 

MVC 102, ,XR1L) os SHVAL 
LA 20 ,XR1) XR) 

8 PRINPT 

ANN SWTEMP, SWHALT 
cic SWOIGT(1L} ,SwrEene 
JE OTSw268 

atc SWHALT(12,K2 
SBN IND .NCOMMA 
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" ERR LOC 
€: 4&ED4 
INDICATE 1 DIGIT TG BE ENTERED 
SET UP FOR HALT *D1® 4ED8 
GO TO SAVE RETURN ADDRESS & XR1 € &eoe 
4&EEO 
INDICATE COMMA NOT REQUIRED SEES 
INDICATE 2 DIGITS TO BE ENTERED © 
GO TQ SET UP HALT 
INDICATE 4 DIGITS TO BE ENTERED S 
GO TO SET UP HALT 
INDICATE 6 OIGITS YO BE ENTERED C 4EEB 
SET UP FOR HALT '02° GEEC 
4EED 
SAVE RETURN ADORESS €> EEE 
SAVE INDEX REG 1 
; 4EFO 
RESTORE ENPUT POSITIGN COUNTER {4 EF4 
- 4&EFB 
ALLOW ONLY _ FB 
65 BYTES OF INPUT €- 
GEFF 
GO TEST FOR 10P HALTED 
HALT FOR DATA SWITCH SETUP © 
HALT CODE IS STORED HERE 
READ DATA SWITCHES © 4&F03 
MOVE DATA SW i TO TEMP STORAGE €: 407 
MASK 4FOB 
&EOF 
IS *A® IN SWITCH? € 4&F15 
GO If YES &FIB 
1S *Ce IN SWITCH 3 4&F21 
GO If YES ; 4&F25 
4°26 
IS COMMA REQUIRED? &F27 
JUMP TF NOT REQUIRED 
4&F29 
STORE COMMA BEFORE DIGITS $ 
ADVANCE INPUT POSITION COUNTER 
UNPACK CATA SW 3 & & INTO TEMP LOC @ 
LENGTH 
FROM LOCATION 4F20 
¥O LOCATION 
4F31 
IS ONLY ONE DIGIT TO BE ENTERED? 6F35 
GO 1F MORE THAN ONE & 
4&F38 
MOVE DIGIT TO INPUT BUFFER 4&F3C 
ADVANCE INPUT POSITION & 
GO TO PRINT INPUT BUFFER 4F40 
GG TO EXIT FROM SUBROUTINE &Fa4 
MOVE 2 DIGITS TO INPUT BUFFER © &F4T7 
ADVANCE INPUT POSITION 
GO TO PRINT INPUT BUFFER €34F48 
GET DIGIT COUNT 
IS THIS THE LAST 2 DIGITS? & 
GG IF YES 
ADD 2 TC HALT CODE @ 
TURN ON "NC COMMAS FOR REM DIGITS 
PROG ID €19-2 Oars 
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co 


38 
34 
C2 
co 


co 
02 
20 


87 


40 
O02 
01 
87 


87 


6494 


c2 
34 
7c 
5c 


co 


34 
34 
34 
OF 
oc 
OF 


co 
06 


co 


34 


30 
F2 


31 
30 


38 
F2 


co 
co 
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Ol 
G1 
40 
40 


87 


0&8 
ol 
ol 
OL 
ol 


87 


87 


0&6 


o1 
Oi 


C7 
Cc? 


02 
90 


87 


87 





4E60 
SEBA 
5E36 


oc00 
0000 


O2ZLA 


610C 
5E36 
41 

40 41 


4CS2 


4F2C 
4F28 
SEC4 
5EC4 5SEC6 
4F26 SEC4 
4F28 SDEA 


O21A 


0000 


&FGE 


SE 84 
13 


SE25 
5860 


5860 


4C4A 
0000 


ADOR 


4EEC 
4EED 
“EEF 


4F25 
4F26 
4F 28 


OSNOV75 
827827 
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PART NO. 4247615 
PaGE 15a 
STMT SOURCE STATEMENT 
1912 & OTSH1IA LOOP BACK FOR MORE DIGITS 
1913 ® 
1914 DTSwW2eB SBF IND «-NCOMMA RESET *NO COMMA® INOICATOR 
1915 ST THPOS,xXR1 STORE INPUT POSITION 
1916 DTSWXR LA #-%,XR1 RESTORE INDEX REG i 
1917 OTSWX 6B Se RETURN ¥O MAENLINE 
1918 * 
1919 *eomnnn n= 2 aan an eae aoe eweneen ewe renner enor anncn an 
1920 # COME HERE IF "C*® [S ENTERED IN DATA SW le s 
1921 #* CANCEL AMOP COMMAND ANO RETURN TQ RESTART DATA SWITCH ENTRY. & 
1922 Benen rn rn rene en nm ee coe mame 
1923 * 
1924 SWCANC 8 PRINT PRINT * COMMAND CANCELLED* 
1925 oc xL1'o2° 
1926 oc AL1 (MSGON—MSG9¢1) 
1927 DC AL2(MSG9N) 
1928 * 
1929 LA INPUT, XRL RESTORE INPUT POS CTR 
1930 st INPOS XR TO START OF INPUT BUFFER 
1931 “AVI 650 eXR1}2C# ° CLEAR OUT 
1932 AVC 64 (65 eXKi! ,650-XR1) LAST CENMAND 
1933 ® 
1934 6 SWENT RETURN TO START GF SuttrcH ENTRY 
1935 
1936 Bem rae cornmeeancenemcermneanmnnnce 
1937 ¢ SUBROUTINE TO PRINT INPUT BUFFER AFTER DATA SWITCH ENTRY % 
1938 ¢—--<-— cea ane me emremmnvane 
1939 # 
1940 PRINPT ST PRINPX43,ARR SAVE RETURN ADDRESS 
1941 @# 
1942 ST INPNAsXR1 STORE ADDR FOR PRINT 
1943 ST PTTEMP,XRI CALCULATE LENGTH 
1944 Stic PTTEMP (2). INMSGS OF LINE 
1945 MVC INPLG(1) sPTTEMP STORE LENGTH FOR PRINT 
1946 SiC INPN3{( 2) .K0001 ADJUST PRINT ADOR 
1947 * 
1948 8 PRINT GO TO OCP PRINT SUB 
1949 oc XLi*06° 
1950 INPLG OS ILi SET UP ABGVYE 
1951 INPNO OS AL2 SET UP ABOVE 
1982 #& : 
1953 PRINPX 8 ts RETURN TO CALLING ROUTINE 
1954 * 
1955 Bammer —— S 
1956 2 SUBROUTINE TO TEST IF TOP HAS HALTED * 
1957 ® — ao erew nen enema wncmamcsren 
13958 # 
1959 TSTIOP ST TSTIEX*+3SeARR STORE RETURN ADDRESS 
1960 # 
1961 CLI RUNSW,1 HAS A *G* COMMANDO BEEN ISSUED? 
1962 JNE TSTIEX EXIT IF NO 
1963 ¢ 
1964 £10 SNHALT .»X*C7* CHECK TO SEE 
1965 SNS SVP TEM, X*C7& IF *yop* &£S HALTED 
1966 * 
1967 TBN SVPTEM.X*02* *1OP* HALTED? 
1968 JF TSTIEX EXiyY IF NO 
1969 * 
1970 8 TOPHLT GO CHECK REASON FOR HALT 
197) * 
1972 TSTIEX @ e—% RETURN TO CALLING ROUTINE 
i973 * 
197% %-—-—— en —— - enema came eerie ME, 
1975 #— —_— ce eran enenenenememeremrson 
1976 ¢ ee ALTER/DISPLAY SUBROUTINE eee © 
L977 * THIS SUBROUTIN: IS ENTEREO THROUGHOUT THE PROGRAM TO ALTER GR & 
1978 * DISPLAY CORE OR ANY VALID REGISTER IN THE I10P. THE SUBROUTINE ¢. 
1979 © WILL BRANCH TO UNIQUE SUBROUTINES TO PERFORM THE DESIRED * 
24NART6 PROG ID C19-2” 
827879 PAGE 
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PART NO. 4267615: — 18H MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247615 
PAGE 6 © PAGE 16A 
C192 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 C192 3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 
ERR LOC OBJECT CODE ADOR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1980 * OPERATION. * €: $009 of 00 5E91 SEOL 2048 MVC = MBIOXtLE, VAL2 MOVE TO ANOITHER LOCATION. 
1981 # * “ 500F 38 EF 5E91 2049 SOF MBEOXsxX*1FS REMOVE BITS ly 4&Te 
VDE 2 Sm crc rane ee een enna een erence renee 5013 3C 04 5SE0O 2050 MVE VAL2—-1464 SET 4 IN LEFT MOST BYTE. 
1983 * € > $017 O£ 01 5SE01 SE01 2051 ALC VAL2(2) ¢VAL2 ADD IT TO ITSELF. 
SF&F 3C 40 6340 1984 ALTOIS KVI PTBUFN,C® * CLEAR PRINT BUFFER TO SLARKS 5010 O£ 01 SEOL SEOL 2052 ALC VAL2(2),VAL2 ADD IT TO ETSELF. 
“F53 OC 84 633F 6340 1985 MVC = PYBUFN-1 (PTBUFN~L46},PTAUFN CLEAR L4 YO L6 5023 O£ OL 5EC1 5E01 2053 ALC =VAL2¢2) ,»VAL2 AOD IT TO ITSELF. 
“F59 OC SC 62BA 6288 2986 MVC L421 Le-L19 444 CLEAR L2 TO £3 € 5029 CE OL SE0L SE01 2054 ALC VAL2025 6 VAL2 ADO IT TO ITSELF. 
4F5F 3C 00 SEAR 1987 MVI = =L6NQ,0 CLEAR PRINT LINE END ADDRESS AREA 7 502F OE 01 5E01 SEO] 2055 ALC VAL262),VAL2 ADO IT TO ITSELF. 
4“F63 OC OA SEAT SEAS 1988 MVC = L6NO—1 (L6ON@-PRTNS} LENA TO ZERGS 2056 € 
ic €* 5035 0C GO 5E01 SETE 2057 MVC = VAL2019 ¢ VAL2 REFRESH VAL2. 
4F69 OD 01 SE21 6082 1990 CLC} =LOCC24 AC | ADDRESS COMPARE? . 503B 3B FC 5&0) 2058 SBF = VAL2eX*FC* REMOVE BITS 0-5. 
“F6F CO 81 SOEA 1991 BE SUBAC BRANCH TO *AC* SUBROUTINE. 503F OF 00 SEO SEOL 2059 ALC VAL2=1(19,VAL2 RESULT IS X* LOOPPPHM® 
1992 * €: $066 C2 02 59668 2060 LA AMB eXR2 ALTER "MB* STRING ADDRESS. 
4F73 OD 01 SE21 6084 1993 Cle = LOC 62) CE CONTROL STORAGE MICROINSTRUCT IONS? 2061 ¢ 
SFT? CO 81 513¢ 1994 BE SUuBCI BRANCH TO °CI* SUBROUTINE. _ 5049 CO BT 5803 2062 8 SVPCTL CONTROL/SENSE EXECUTOR SUBROUTINE. 
1995 ¢ 2 2063 * 
“F7D 00 O01 5E21 6086 1996 Citic 3=— LOC 12). HS MAIN STORAGE? € 5040 OF 00 SE90 SESO 2064 ALC MODE (2),NOCE SHIFT CLEFT 
4F83 CO 81 52A6 1997 BE SUBMS BRANCH TO *MS* SUBROUTINE. 5053 38 CF SESG 2065 SHF MODEsX*CFE RESET UNUSED BITS 
1998 @ 3 2066 * 
4F87 OO OL 5SE21 6088 1$99 CLC £0C(2),HB MODE BUFFER? @ 5057 CO 67 OZ1E 2067 8 UNPACK CONVERT PACKED HEX TO EBCDIC. 
4F8D CO 81 4FD1 2000 8E SUBKB BRANCH TO *MB* SUBROUTINE. 5058 OL 505B 2068 oc XLLELE LENGTH. 
2001 © €* §05C 5E90 5050 2069 oc AL2( MODE} AREA TO BE CONVERTED. 
4F91 00 02 5E22 6088 2002 CLC = L0€(3),0LS DATA LOCAL STORE? 7s SO5E 6248 SO5F 2070 , oc ALZ(L2¢4) CONVERTED RESULTS. 
4F97 CO 81 532F 2003 BE SUBDL S BRANCH TO "OLS* SUBROUTINE. 2071 @ 
2004 * €:: 5060 OC OL SEAO SOSF 2072.—is mvc L2Nal2) »#—) STORE LENE END ADOR FOR PRTBUF SUB 
SFOB OD O2 SE21 606E 2005 cic =£.0C¢035.Z8S ZONE LOCAL STORE? 5066 3C 40 6248 2073 MVE L246,C* °¢ CLEAR UNUSED OLGIT 
4FAl CO 81 5464 2006 BE SUBZLS BRANCH TO *ZLS* SUBROUTINE. 207% @ 
2007 * €3 506A F2 67 71 2075 J SUBMB4 GO PRINT RESULTS. 
“FAS OD 02 SE21 6091 2008 cle = LOC 13 eC OL CONTROL STORAGE DATA LEFT? 2076 © 
“FAB CO 61 546C 2009 BE susco BRANCH TO *CO* SUBROUTINE. 506D 3C 00 SES 2077 SUBHBL MVE OCMDSW,O CLEAR "D* COMMANO SW. 
2010 ¢ Cc: 507k 3c C4 6244 2078 MVE i2,.C*Dt MOVE *OISPLAY* CHAR TO BUFFER. 
—_—— &FAF OD 02 SE21 6094 2011 CLC = £0C 63) COR CONTROL STORAGE DATA RIGHT? ' $075 C2 G2 6229 2079 LA LieLigXR2 STORE PRINT LINE ENO ADDRESS 
&FB5 CO 8! S46C 2012 BE suBcD BRANCH TO *CD® SUBROUTINE. 5079 34 02 SESE 2050 ST LIN@sXRZ FOR PRT BUF SUBROUTENE 
2013 © €: S507D C2 O1 SF1LT 2081 LA MBTBL XRL MB TABLE ADORESS< 
&FBS CD 03 5E2) 6G0~A6 2014 Citic} 3=66LOC14),CSYP CHECK sToP? ° S$Q81 3C 00 SESE 2082 MVE MBEOX,O SET COUNTER FO ZERO. 
“FBF CO 81 421A 2015 BE HEMD BRANCH TO ‘Hi® COMMAND SUBROUTINE. 2083 * siapiae nase enue apineet 
2016 * €*\ $085 C2 62 59F8 2084 SUBMB2 LA DNB, XR2 A . 
“FC3 0D 02 SE20 60A9 2017 CLO =£OC-1(35,ALS8-1 ADDRESS LOCAL STORE? C 5089 CO 87 5803 2085 e SVPC TL CONTRGOL/SENSE EXECUTOR SUBROUTINE. 
#FC9 CO 81 SSFO 2018 BE SUBALS BRANCH TO °ALS* SUBROUTINE. 2086 * 
2019 ¢ | €>  $08D 0 00 5E90 SES 2087 ALC = MODE (1? , MODE SHIFT LEFT 
&FCD Co 87 5779 2020 8 SUBREG GO TO *REG* SUBROUTINE. e 5093 3B CF SE9O 2088 SBF NODE xX*CFe RESET UNUSED BITS 
2021 * 2089 * 
LOL 2 Cmca nem * € 5097 4C 006 00 SESD 2090 MVC = O01 XRD}, MODE MOVE TO MB TABLE. 
2023 ¢ THIS SUBROUTINE IES ENTERED TO PROCESS ALTER OR DISPLAY ‘MBS * | §09€ D2 01 01 2091 LA LG eXRLI oXRI ADVANCE TABLE POINTER. 
2024 MODE BUFFER QPERAND. THE ALTER COMMAND WILL CHANGE THE MODE + SO9F OF OO SEOL SEBE 2092 ALC MBIOX,K20 ADD X*°20* TG COUNTER. 
2025 © BUFFER TO THE VALUE SPECIFIEO. THE ALTER VALUE IS ENTERED IN # €: 50A5 39 £6 5E91 2093 TBF NMBIDX,X*ED® COUNTER WENT BACK 70 ZERO? 
2026 THE FORM °XY¥® WHERE X IS THE POINTER VALUE (0-7) AND Y IS THE * 50A9 CO 90 5085 2094 6F SUBMB2 LOOP TIL DGWE. 
2027 + MODE (0-3). THE DISPLAY COMMAND WILL OFSPLAY 8 VALUES OF MB. * 2095 ® 
2OZB Carmenere rn cre ern nner eae eee aetna ener e. & S50A0 CO 87 O21E 2096 8 UNPACK CONVERT PACKED HEX TO EBCOIC. 
2029 @ : 5081 08 $081 2097 oc XLL*Be LENGTH. 
&FD1 CO 87 4268 2030 SUBMB 8 HS10e HALT & SAVE IOP STATUS SUBROUTINE. 5082 SFIE 5083 2098 OC AL2(MBYBL473 AREA TO BE CONVERTED. 
“FDS OC OA 6228 649F 2031 MVC) =—- L1¢100123 -MBMSG410 MOVE SPECIAL MSG TO BUFFER. ' € 5006 Sree 50B5 2099 DC AL Z(MSSTR€15} CONVERTED RESULTS. 
4FDB 30 04 5E94 2032 CLL = OEMDS Wel DID WE COME FROM & °D* COMMAND? 2200 + 
&FDF F2 61 8B 2033 JE SUBMB I BRANCH IF VES. 5086 3C 08 SEB6 2101 MVE CICTReB SETUP A COUNTER. . 
2034 ¢ €: Sopa C2 02 5F3F 2102 LA NSSTR,XR2 ADDRESS OF CONVERTED RESULTS. 
&FE2 3C 00 SE0O 2035 MVE = VAL2-120 CLEAR LEFTMOST GYTE SOBE C2 O1 6246 2103 LA 12¢2,XR1 ADORESS OF GUTPUT AREA, 
4FEG 3B 8C SETF 2036 SBF «VAL1»X*8C* REMOVE BITS Or4%— AND S. 2106 ¢ 
re €2 50C2 6C 00 01 00 2105 SUBMB3 MVC) =:14145XR1),0€ XR2) MOVE TO OUTPUT AREA. 
“FEA CO 67 G21E 2038 8 UMPACK " $0C6 D2 01 03 2106 LA 3EsXRLDeXRL BUMP QUTPUT. AREA POINTER. 
4FEE 01 “FEE 2039 oc XLLERS 50C9 E2 G2 02 2107 LA 2UeXR2? ,XR2 BUMP OTHER POINTER. 
4&FEF SETF 4FFO 2040 oC AL2UVAL1) | €: $§0OCC OF OO 5E86 SEBC 2108 SLC CIC TRy»K1 DECREMENT LOOP COUNTER BY 1. 
SFFL 622C “FF2 2041 oc AL2Z(LI€14) ' “" §002 CO 01 50C2 2109 BNZ2 SUBMB3 LOOP TIL DONE. 
2042 50D6 36 01 5DDA 2110 A NEG2 »XRE STORE PRINT LINE END ADDRESS 
4FF3 OC 01 SESE 4FF2 2043 MVC | LENGE 2) @=1 STORE LINE END ADDR FOR PRIBUF SUB €) 500A 34 01 5EA0 21il ST L2N@,XRL FOR PRIBUF SUBROUTINE 
4FFO 3C C) 6246 2044 MVI kL 2,C 8a MOVE *ALTER® CHAR TO BUFFER- 2112 « 
2045 ¢ SODE CO 87 S57 2113 SUBMB4 B PRIBUF GO TG PRINT BUFFER SUBROUTINE 
*FFO OC 00 SEO SETE 2046 MVC -VAL2(1),VALL MOVE VALUE TO A 2-8vTE FIELD. © 2114 © 
35003 QE 00 SEO) SEO 2047 ALC VAL2019,VAL2 adO It To SELF. SOE2 CO 87 428C 2115 Suess 6 IOPREG GATHER IOP REGS 
DATE 23AUG75S OSNOVTS 24MARTO PROG 1D C192 Oc. 23AUGTS OSNOV7S 2oRART6 PROG ID Cig-2” 
€C NO. 827785 827627 27879 PAGE 16 e. 40. 827785 827827 827879 PAGE LOA 
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PART MO. 4247615 
PAGE iz © 
C192 3340 ADAPTER MANUAL OPERATIONS PGM ~ MOD 12 eo 
( @? 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | "ERR LOC 
50E6 CO 87 S877 Zil6 8 CMPPRT GO TO PRINT REGISTERS 1 € 5156 
2117 « 515A 
2118 ¢-—— -- —- een nent 
2119 **e = —=8AC* ADDRESS COMPARE STOP SUBROUTINE. .« see * €° 5150 
2120 2 THIS SUBROUTINE IS ENTERED AFTER ENCOUNTERING AN *A* (ALTER) # 5161 
2121 * OR *D* (DISPLAY) COMMAND FOLLOWED BY A "AC* OPERAND. *  —s-55165 
2122 * THIS SUBROUTINE IS RESPONSIBLE FOR ISSUING THE PROPER SEQUENCE # € 5169 
2123 * OF COMMANDS TO THE SVP IN THE 115 10P. * ~*~ 516D 
2124 * THE FOLLOWING FORMAT IS EXPECTED : * $171 
2125 & AyAC+YYYY WHERE YYYY = TWO-BYTE ADORESS RESIDING IN + €* 
2126 ® LOCATION **VAL2** AS PACKED HEX. * ~ 5175 
2127 © * — 517A 
2128 * eee ane mmmcmeacment S17E 
2129 * 
SOEA CO 87 4268 2130 SUBAC 6B HSI10P BRANCH TO "HALT & DISPLAY TOP* 1op _ $382 
2131 * to 
SOEE 3D 01 SE94 2132 CLI OCMDSW,1 DID WE COME FROM A *D* COMMAND € 5186 
50F2 F2 81 16 2133 Je SUBAC1 SKIP AROUND IF YES ; 518A 
2134 * €-  518F 
SOFS OC 03 5SE2B SE10 2135 MVC = ADRCMP143,, AORS MOVE ADDRESS TO PERM STORAGE 5193 
50FB 3A 04 590A 2136 SBN IPKREG»4 SET BIT 5 IN K-REG ON. 
SOFF 3A 80 0A19 2137 S6N  COM,ADRSTP SET ADORESS STOP ENABLED INDICATOR (7 5196 
2138 + - 519A 
5103 C2 02 5988 2139 LA ARCMP y X82 ADDRESS COMPARE STRING ADDRESS. 519E 
5107 CO 87 5803 2140 8 SYPCTL BRANCH TO *CONTROL/EXECUTOR* SUB. €: $143 
2141 © 51a7 
5108 OC 1C 623A 64BC 2142 SUBACL MVC 1428429) ,ACMSG428 MOVE SPECIAL MESSAGE. . 51A8 
5111 OC 03 623F 5SE2B 2143 MVC =-L 143314), ADRCHP MOVE *ADDRESS® OF CI TO MESSAGE. ©} 5laa 
5117 OC 01 SESE 5114 2144 MVC =—«L1Na(2},%-3 STORE PRINT LINE END AODR 
2145 ¢ 51aC 
5110 3C 7C 5E27 2146 MVE CMPFLG,C*a! PRESET ADOR STOP ENABLED IND €: 51B1 
$121 OC 07 6237 SES1 2147 MVC =: L.1425 48) sNABLED PRESET ADOR STOP ENABLED MSG / "5187 
2148 51BA 
5127 38 80 Oa19 2149 TBN = COM,ADRSTP IS AODR STOP ENABLED?  € 5100 
5128 F2 10 OA 2150 JT SUBAC2 JUNP IF YES 
2151 @ i 51¢3 
512E 3C 40 SE27 2152 MVI ss CHPFLG,C? CLEAR ADDR STOP ENABLED IND ' © 51¢7 
5132 OC 07 6237 SES9 2153 MVC =—«L. 142508), INACTV SET ADOR STOP INACTIVE MSG 
2154 ® S1CA 
$138 CO 87 SOCE 2155 SUBAC2 B SUBMS4 GO GUTPUT I0P REGS. ' €)  s1ce 
2156 * |" 61362 
2157 *-—--— ~~~ -- + --- 8 | 5105 
2158 © eee = 'CI® CONTROL STORAGE MICROINSTRUCTIONS SUBROUTINE. 48 @! €  51n8 
2159 # THIS SUBROUTINE IS ENTERED AFTER ENCOUNTERING AN "A' {ALTER} 4! 
2160 * OR *D* (OISPLAY) COMMAND FOLLOWED BY A "CE* OPERAND. +! 510 
2161 * THIS SUBROUTINE IS RESPONSIBLE FOR ISSUING THE PROPER SEQUENCE #' €:  s1€0 
2162 * OF COMKANDS TO THE SVP IN THE 115 10P. *, 51E4 
2163 @ THE FOLLOWING FORMAT IS EXPECTED : + 
2164 AoC] o YYVY , XXXXXX oXXAXAK pXXXXAK PXXAAKK pecee ETLe * © ssies 
2165 © OR +! SLEE 
2166 « OsCleYYVY *| 51F2 
2167 @ OR * €  51F6 
2168 DeCl eo VYVY,2222 +] S1FA 
2169 * WHERE VYVY = TWO-BYTE ADDRESS WHERE DATA IS TO BE ENTEREO/DISPL#| 
2170 « RESIOING IN LOCATION **VAL2**® AS PACKED HEX. * €  5iro 
2171 ¢ XXXXXX = THREE-BYTE DATA FIELD TO BE ENTERED AT ABOVE *| 
2172 « LOCATION RESIDING IN **CSTBL** AS PACKED HEX AND a 5201 
2173 * WITH THE PROPER PARITY IN THE LEFT MOST 4 BITS. @ 
2174 « 122Z = TwO-BYTE LAST ADDRESS TO BE DISPLAYED | 
2175 6 RESIDING IN LOCATION **VAL2A*® AS PACKED HEX. +| 
2176 © e| 
2177 e-———~---_.. ee = mite es 2! 
2178 
513C CG 87 4268 2179 SUBCI 8 HS IGP BRANCH TO *HALT & DISPLAY® IOP REGS | & 
5140 OC 1A 6238 6407 2180 MVC = L126 427) »CINSG+26 HOVE SPECIAL MESSAGE. 
5146 OC 03 623D SELD 2181 MVC =: 143114), ADRS MOVE ADORESS OF *CI* GPERAND. 5205 
514C OC 01 SESE 5149 2182 MVC) LAnNta( 29,83 STORE PRINT LINE END ADDR €: 5209 
$152 3C 00 5SE97 2183 MVI = OC ISO DISPLAY *CI*® OPERATION SWITCH. | 5200 
DATE 23AUGTS OSNOVTS 24MARTE PROG ID C192! @ oct 
EC NO. 627785 827827 827879 PAGE 17 EC NO. 
. @ 


| 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 


OBJECT CODE 


30 
F2 


3C 
C2 
34 
3C 
C2 
C2 


2c 
34 
c2 


co 


C2 
4C 
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1c 
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02 
02 
00 
02 
ol 


04 
02 
02 


87 


02 
02 
02 
01 


02 
02 
02 
87 


5E16 
SE13 


OE 
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30 
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34 
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E2 
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05 
00 


oo 
81 


01 
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02 


01 
02 
87 


02 
02 
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ol 
40 
01 
01 
10 


00 
87 


Ol 
01 
02 
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5E94 
BF 


6244 
6247 
5DE2 
5E96 
5EC7 
SEEF 


SABE 04 
5189 
5AB9 


5803 


0000 

O2 5A88 
02 02 
6F 


51D1 

5D0E2 

5E16 O02 

O21E 
S1A7 
51A9 
S1AB 


05 5E&13 
SE96 SEBC 
o7 


5E96 SE86 
i9 


5E97 
05 


SDE2 
0000 
05 
05 
5175 


SDDA 
5EAG 
5D57 


SESE SDES 
6244 

5E92 
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STMT SOURCE STATEMENT 

2184 cul OCMDSW,. 1 OID WE COME FROM A °D* COMMAND? 

2185 JE SUBCT1 BRANCH IF VES. 

2186 & 

2187 MVI L2eC*a? MOVE THE LETTER *a* FOR ALTER. 

2188 LA L243 oXR2 LOAD BUFFER ADDRESS FOR OUTPUT. 

2189 ST XR2S1oXR2 SAVE THAT ADORESS. 

2190 MVI CICTR1,0 CLEAR TABLE ENTRIES CGUNTER 

2191 LA CSTBL»XR2 ADCRESS OF ENTERED DATA WITH *Cr® 
2192 LA CSTBL1»XR1 ADDRESS OF DATA READ 

2193 ¢ 

2194 SUBCI5 MVC CIBUF(5)54(_XR2) MOVE VALUE GF CI AND ADDRESS 

2195 ST XR2ZSA43 gXR2 SAVE CURRENT XR2 VALUE. 

2196 LA ACS, XR2 "ALTER/OISPLAY® STRING ADDRESS. 

2197 © 

2198 8 SVPCTL BRANCH TO *CONTROL/SENSE EXECUTOR *® 
2199 * 

2200 XR2SA_ LA B—*,XR2 RELOAD XR2. 

2201 MVC 2(03-XR1) ,CI BUF PLACE VALUE READ IW CSTBLi. 

2202 cic 203 5XR1) 920 oXR2) NEw = OLD DATA ? 

2203 JNE SUBCT2 ERROR IF NOW 

2204 

2205 SUBCI7 ST XR 28243—XR2 SAVE CURRENT VALUE OF XRZ. 

2206 L AR2S1,XR2 GET STARTING ADDRESS OF BUFFER. 

2207 SUBCI4 MYC CONV3(3)e2(.XR1} MOVE *READ* CI TABLE TO CONVERT 

2208 8 UNPAC K CONVERT PACKED HEX TO EBCDIC. 

2209 OC = XL "38 LENGTH. 

2210 oc AL2(CONV3) AREA YO BE CONVERTED. 

2211 OC AL2(CGNV6) RESULT OF CONVERS ION. 

22i2 

2213 MYC 5(6eXR2),CONVE MOVE TO BUFFER FOR OUTPUTTING. 

2214 ALC CICTRE KL INCREMENT COUNTER BY Le . ) 
2215 =A T0,XR23,XR2 ADVANCE BUFFER ADDRESS POINTER are aaa 
2216 cic CICTRI(1),CICTR TABLE ENTRIES COUNTERS EQUAL? | 
2217 JE SUuBCI9 EXIT SUBROUTINE WHEN DONE. 

2218 # 

2219 cLI OCISW.1 SWITCH ON? 

2220 JE SUBCI8 BRANCH IF YES. 

2221 © 

2222 ST XR2S1_,KR2 SAVE CURRENT AODRESS OF BUFFER. 

2223 XR2S2 LA #- 4XR2 RELGAD ORIGINAL VALUE OF XR2. 

2224 LA 5(,XR1),XR1 INCREMENT NEW *CI* TABLE POINTER. 
2225 La 5(XR2),XR2 INCREMENT OLD *CI* TABLE POINTER. 
2226 B SUBCI5 LOOP TIL DONE. ; | 
2227 * 

2228 SUBCIS A NEG2 »XR2 ADJUST TO RIGHT END ADDR 

2229 st L2Na»XR2 STORE LINE 2 END ADOR 

2230 8 PRTIBUF GO TO PRINT BUFFER SUBROUTINE 

2231 * 

2232 MYC LiNa(2),KO000 PREVENT REPRINTING SPEC MESSAGE 

2233 MVI L2.c* * BLANK QUT °"D* OR *aA® 

2234 TBN C¥SwWel ARE THERE MORE LINES TO BE PRINTED? . 
2235 TRF PRTEND,1 ON 1F REQ KEY HAS BEEN PRESSED 

2236 JT OCI GO BACK FOR NEXT LINE 

2237 * 

2238 NVI OCISH,0 RESET DISPLAY CI Sw 

2239 * 

2240 8 SUBMB5 60 TC GATHER I0P REGS 

2241 + 

Oe mre ee et ea a ie nc a ee tae ee en me enermeimmmenamamm ENE 
2243 * COME HERE IF THE DATA ENTERED BY THE USER WITH THE ‘CI® e 
2244 2 CPERANO DOES NOT MATCH THE VALUE READ WHEN CONTROL STORAGE * 
2245 * WAS ALTERED. PLACE AN ASTERISK TO THE LEFTY OF THE OATA FIELD 3 
2246 ® IN THE OUTPUT BUFFER. * 
2247 SR ee ee cw eerste en ene cnn ene: A Cree ein eNO inscatenerie—m SS 
2248 * : 

2249 SUBCI2 ST  —- XR1S1¢3,XR2 SAVE CURRENT VALUE OF XR1. 

2250 L XR2S1,XR1 GET CURRENT BUFFER ADDRESS. - 
2251 A NEG] »XR1 DECREMENT ADDRESS BY 1. : 
24MART6 PROG ID C19-2" 
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PART NOw 4247615 16M MAINTENANCE DIAGNOSTIC PROGRAM 4267615 
PAGE 18 3 PAGE 186A . 
C192 3340 ADAPTER MANUAL OPERATIONS PGH - MOD 12 C192 3340 ADAPTER MANUAL OPERATIONS PGM - MDD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : "ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
5211 7C 5C 00 2252 MVE = OL ep XRLPQC 8S? MOVE AN ASTERISK TQ BUFFER | © 2320 * BYTES) ARE ALLOWED. THE ALTER CMD © 
2253 @ 2321 * WILL AUTOMATICALLY DISPLAY 16 BYTES.# 
5214 C2 01 0000 2254 MRIS1 LA @=% eXR1 RELOAD XRi. i 2322 ¢ WHERE YYYY = TWO-BYTE ADDRESS WHERE DATA IS TO BE ENTERED * 
5218 CO 87 5196 2255 8 SUBCI7 RETURN TO HAIN FLOK. | g 2323 * RESIDING IN LOCATION **VAL2*°* AS PACKED HEX. * 
2256 ¢ ! 2324 © XXXXXX = UP TO 32 BYTES OF DATA TO BE ENTERED IN ABOVE * 
2257 Senn rn men - + | 2325 ¢ LOCATION RESIDING IN **MSSTR®* AS PACKED HEX. s 
2258 *« COME HERE IF THE DISPLAY COMMAND *D* 15 DETECTED WITH THE *) é 2326 * * 
2259 « *CL® OPERANDs READ DATA FROM CONTROL STORAGE AND PLACE IN e 2327 * DoMSsYYYY 16 BYTES OF DATA WILL GE DISPLAYED STARTING AT * 
2260 & THE GUTPUT BUFFER. NO COMPARE WITH ENTERED DATA IS DONE HERE. * 2328 © LOCATION SPECIFIED BY VYYY. ® 
2261 s-——-—-—-— - + @ 2329 *-— 7 . 
2262 © 2330 * 
§21C 3C 00 SE94 2263 SUBCI1 MVI DCMDSW.O CLEAR *D* COMMAND SWITCH. 526 OC 13 6231 648 2331 SUBMS MVC L1419(20),NSMSG419 MOVE SPECIAL MSG TO OUTPUT BUFFER 
$220 3C C4 6244 2264 MVE = L2eC*D* MOVE THE LETTER *D* FOR DISPLAY. € = S2AC OC 03 6236 5ELD 2332 MVC} =—-L 142404), AORS MOVE ADDRESS VALUE. 
5224 3C 01 SE97 2265 MVI OCISW,l SET SWITCH ON. 5282 OC O01 SESE 52AF 2333 MVC = L1N@(2),%-3 STORE LINE END ADDR FOR PRTBUF SUB 
$228 3C 01 SE92 2266 MVE CISWel SET SW FOR MULTIPLE LINE OUTPUT . . 5288 30 O1 SE94 2334 CLI DCMDSWel DID WE COME FROM A ‘O* COMMAND? 
2267 ¢ '€: 528c F2 61 18 2335 JE SUBMS1 BRANCH IF YESe 
§22C CO 87 O21E _ 2268 OCIL oB UNPACK UNPACK CS ADDR TO LEFT OF LINE 2336 * 
5230 02 §230 2269 oc XLL¢2¢° LENGTH S2BF 3C Cl 6244 2337 MvI &2,C*aA® MOVE THE LETTER *A® FOR ALTER. 
5231 5E01 5232 2270 oc AL2(VAL2) AREA TO BE CONVERTED ' €*  §2€3 OC 01 SDFF SE01 2338 MVC = SENSE(. 2) » VAL2 MOVE ADDRESS TO TEMP LOCATION. 
5233 624A 5234 2271 oc AL2(L2+6) DESTINATION ADDR +" 5209 2E 01 SDFF 00 2339 ALC SENSE(23,0(,XR2) INCREMENT ADDRESS. 
2272 ¢ S52CE OC O1 5207 SDFF 2340 MVC = ALTNS#3(2) »SENSE INSERT OPERAND 1 ADDRESS OF MYC? 
$235 3C 00 SEa6 2273 MMVI CICTR,»O CLEAR TABLE ENTRIES COUNTER or th 2341 * 
$239 3C 00 SE96 2274 MVE = CIC TRie0 CLEAR TABLE ENTRIES COUNTER | 5204 OC 00 5204 5204 2342 ALTMS MVC #(0)9@ INSTRUCTIGN MODIFIED AS SHOWN ABOVE. 
$230 C2 01 SEEF 2275 La CSTBL1eXR1L LOAD ADDRESS OF DATA *READ® TABLE. | _ 2342 * 
2276 ; €: $2DA 3C 00 SED 2344 SUBMS1 MV¥I OCMDSW,0 CLEAR *O* COMMANO SWITCH. 
2277 e-----—~ ween et | 52DE O€ 01 SE01 SOF2 2345 ALC VAL2eKOF ALIGN ADRS OF AREA TO RIGHT NOST. 
2278 * BUILD CSTBL1 WITH UP TO 8 ENTRIES THEN GO SUBROUTINE °SVPCTL* * | 52E4 OC 01 52FO 5E01 2346 MYC SUBMS2(2),VAL2 MOVE CONTENTS OF VAL2 
2279 * TO READ VALUES AT THE ADDRESSES SPECIFIED IN THE TABLE. | €& 2347 © 
2280 s———---—._ eee * | S2EA CO 87 O21E 2348 8 UNPACK CONVERT PACKED HEX TO EBCDIC. 
2281 * S2EE °0 52EE 2349 oc XL1°10° LENGTH OF 16 BYTES. 
5241 4C 01 04 SE01 2282 CIMOVE MYC 412¢eXR1),VAL2 MGVE PRESENT ADDRESS. €3 52eF seo1 52F0 2350 SUBMNS2 DC AL2¢VAL2) ADDRESS GF AREA TO SE CONVERTED. , 
Bienes esas $246 1C 61 5SABB 04 2283 HVC CIBUF(2)24(,Xal) MOVE ADDRESS TO CIBuUF. 52Fl SFSE 52F2 23521 oc AL2(MSSTR+32) CONVERTED AREA RESULTS~ ar 
5248 C2 02 5a92 2284 LA DCS.XR2 DISPLAY CONTROL STORE STRING ADRS. | _ 2352 * 
5$24F CO 87 5803 2285 8 SVPCTL CONTROL/SENSE EXECUTOR SUBROUTINE.» | €% 52F3 3C 08 SEBS 2353 MVI «= CICTRS SETUP A LOOP COUNTER. 
2266 ¢ 52F7 C2 02 5F3F 2354 LA MSSTR»XKR2 SETUP ADDRESS OF CONVERTED RESULTS 
5253 4C 02 02 SAB6 2287 MvC = s_«- 20.3, XR1LI CIBUF-2 MOVE VALUE READ TO CSTBL1i. : 52FB C2 OL 6247 2355 LA 1 2¢3—XR1 SETUP OUTPUT AREA ADDRESS. 
5258 02 01 OS 2288 LA . 5€5XR1)eXR1 INCREMENT TABLE POINTER. / © 2356 © 
5258 O& 0O SEBS SESE 2289 ALC CICTReK1 ADD 1 TO TABLE ENTRY COUNTER | 52FF 6C 03 03 03 2357 MSOUT MYC 3649XR1993CeXR2) MOVE TO OUTPUT AREA. 
: 2290 © 5303 E2 02 04 2358 LA 4€9XR219XR2 BUMP STRING POINTER. 
$261 OD O1 SEO] SEO3 2291 CLC = VAL2(2) -VAL2A COMPARE Ci ADDR WITH EMD ADDR | €3 5306 02 01 05 2359 LA 50 —XR1L9,XR1 BUMP GUPUT AREA LEAVING A BLANK. : 
$267 F2 82 07 2292 Jt DCI2 GO IF LESS THAN END ADOR 5309 OF 00 SEB86 SEBC 2360 SLC 3s CIC TR» K1 DECREMENT LOOP COUNTER. 
526a 3C 00 SE92 2293 ‘MVE CESWe0 TURN OFF MULTIPLE LINE SW 530F CO 01 52FF 2361 BNZ SOUT LOOP TIL DONE. 
S26 F2 BT 22 2294 J DC14 GO TO END OF LOOP | © 2362 * _ 
2295 * 5313 36 01 SDDA 2363 A NEG2 eXR1 STORE PRINT LINE END ADDR 
$271 30 7F S£01 2296 OCI2 CLI VAL2eX°7F* IS THE LOW ORDER BYTE = °7F* | 5317 34 O1 SEAC 2364 St L2Na,XR1 FOR LINE 2 
$275 F2 01 OD 2297 JNE OCI3 GO IF NOT | 3 2365 * 
2298 ¢ 5318 CO 87 5D57 2366 8 PRTOUF GO TO PRINT BUFFER SUBROUT INE 
$278 OF OO SE0O SEBC 2299 ALC VAL2—101)-K2 INCREMENT CI ADDRESS | 2367 @ 
S27TE 3C 00 SEO1 2300 MVE = VAL 200 TO MEXT BLOCK €> 531F 38 04 0208 2368 TBN SBYTEO,SSHOS DO NOT SPACE PRINTER 
5282 F2 87 OE 2301 J OCl«é GO TO END OF LOOP 5323 €2 10 05 2369 JT SUBNS3 IF USING ALTERNATE PRINTER 
2302 * i 2370 2 
$285 OF G1 SEO] SDEA 2303 O0CI3) ALC VAL2,K0001 AOD 1 TO Cr ADDRESS | | €} 5326 Co 87 O21A 2371 8 PRINT SPACE PRINTER 6 LINES 
5288 30 08 SE86 2306 CLL CICTRS ARE THERE & ENTRIES IN TABLE 532A 16 532A 2372 oc MLLPL6* 
528F CO 01 5242 2305 BNE: CIMOVE LODP UNTIL THERE ARE 8 ENTRIES | 2373 ¢ 
2306 ¢ | € 5328 co 87 40a0 2374 SUBNS3 6B RTN1B RETURN FOR NEXT COMMAND ENTRY 
5293 C2 O01 SEEF 2307 OC14 LA CSTBL2 oXRi RELOAD STARTING ADDRESS OF CSTBL1I 2375 * 
5298 CO 87 519E 2309 8 SUBCI4 GO TRANSFER DATA TO GUTPUT BUFFER. | @ 2377 * *e 'DLS*/*ZLS* DATA/ZONE LOCAL STORE SUBROUTINE.  ¢9¢ * 
2310 & 2378 * THIS SUBROUTINE IS ENTERED AFTER ENCOUNTERING AN °A® (ALTER) ©. 
S29F 02 01 05 2312 SUBCI6 LA SU oXRL} KRI BUMP TABLE POINTER. | 2379 * OR *O* (DISPLAY) COMMAND FOLLOWED BY A *OLS*/*ZLS* OPERAND. * 
52a2 CO 87 S19E 2312 8 SUBCI4 LOOP TIt DONE. | & 2380 * THIS SUBROUTINE £5 RESPONSIBLE FOR ISSUING THE PROPER SEQUENCE @ 
2313 © . 2381 * OF COMMANDS TO THE S¥P IN THE 115 10P. * 
2314 ¢-—— aon el: 2382 * THE FOLLOWING FORMAT IS EXPECTED ¢ s 
2315 © eee HS* MAIN STORAGE SUBROUTINE. e820 | 2383 © AeDLSs VV eXX * 
2316 * THIS SUBROUTINE IS ENTERED AFTER ENCOUNTERING AM *A® (ai TER) | 2384 * WHERE Y¥ = ONE BYTE ADDRESS FIELD WHERE DATA IS TO BE ENTERED *. 
2317 ¢ GR *D* (DISPLAY? COMMAND FOLLOWED BY A °MS* OPERAND. * 2385 + RESIDENG IN LOCATION *"VAL1°* AS PACKED HEX. * 
2318 © THE FOLLOWING FORMAT IS EXPECTED : | @ | 2386 * XX = ONE BYTE GF DATA TO GE ENTERED IN ABOVE | s. e 
2319 © AeMS oVVVV_XXKXXXXX<e-ETC UP TO 32 CHARACTERS (16 PACKED HEX *| 2387 * LOCATEON RESIDING IN S*VALILA®® AS PACKED HEX. . 
| 3 : 
oaTE 23AUGT7S OSNOVTS 24MART6 PROG 1D on DATE 23AUG75 OSNOV7S 24MARTE PROG ID c1s-2° 
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C192 
ERR LOC OBJECT CODE 


532F CO 87 4268 

5333 OC 05 6223 64F1 
5339 OC O1 6226 S5SEO1 
533F OC O01 SESE 533C 
5345 30 01 5E95 

5349 F2 8i DA 


534C C2 O02 SASA 
5350 3D O1 SE94 
5354 F2 81 36 


5357 3C Cl 6244 
5356 3A 80 SETF 
535F CO 87 5803 


5363 OD 00 5E81 SEBO 
5369 F2 B1 04 


$36C 3C SC 6246 
5370 Co 87 O21E 
5374 01 

5375 5SE81 

$377 SEOL 


S374 
5376 
5378 


5379 OC O01 6248 SEOR 
537F OC 01 SEAQ $37C 
5385 3C 00 SE95 
5389 CO 87 SODE 


538D 3C 00 SES 
$391 38 1F SETE 


5395 
5399 
539A 
539C 


539E 
53A2 


53a5 
53AB 
5361 
5367 
5360 


DATE 
EC NO. 


5E7F 
6226 


F2 


oc 
oc 
oc 
oc 


00 
81 


01 
02 


02 
02 


O2i%E 


SETE 
A3 


6226 
6247 
624F 
6257 
625F 


23AUG75 
827785 


$399 
5398 
5390 


SE73 
SETS 
SET? 
SETA 
SETO 


OSNOV7S 
827627 


ADDR STMT 


3340 ADAPTER MANUAL GPERATIONS PGM — MOD 12 










































































PART NO. 4247615 
PAGE 19 G 
c192 
SOURCE STATEMENT © een Loc 

2388 D,DLS,YY * Cc 53C3 
2389 * THE "ZLS* FORMAT IS SIMILAR TO "DLS . * 53C7 
2390 * AsZLS eYVsXX * 53¢8 
2391 * WHERE YY = ONE BYTE ADDRESS FIELD WHERE DATA IS TO BE ENTERED # * 
2392 * RESIDING IN LOCATION **VALI** AS PACKED HEX. * " -§3CE 
2393 XX = ONE BYTE OF DATA TO BE ENTERED IN ABOVE * 5302 
2394 & LOCATION RESIDING IN **VALIA®® AS PACKED HEX. * € 
2395 * D»ZLSe YY * 7” 5306 
2396 * * 5308 
2397 * one -a-- * {" 5361 
2398 * 53E4 
2399 SUBOLS B HS TOP "HALT & DISPLAY® IOP REGS. 53€8 
2400 MVC =: L145: £6) eOLSMSG45 MOVE PRINT MSG TO BUFFER. c 
2401 MVC = L482} e VAL2 MOVE ADDRESS VALUE. “| §3EC 
2402 MVC = LIN@(2),%-3 STORE PRINT LINE END AODR : 
2403 CLI -2LSWel ZLS OPERATION ? C 53F0 
2404 JE SUBDL3 BRANCH IF YES. 53F4 
2405 * : 53F8 
2406 LA AOLS, XR2 ALTER/DISPLAY ALS STRING ADDRESS. t 53FE 
2407 CLI OCHDSWel DID WE COME FROM A *D* COMMAND? ‘ 5404 
2408 JE SUBDL1 BRANCH IF YES. 2 540A 
2409 * ; t 5410 
2410 SUBDL4 MVI L2,.C*Aat MOVE THE LETTER*A® FOR ALTER. 5416 
2412 SBN VAL1.X*80° MODIFY ZLS AODR 541A 
2412 8 SVPCTL CONTROL/SENSE EXECUTOR SUBROUTINE. .§ €.. 
2413 * 541E 
2414 t--—-——--- - (rn ene earn 5422 
2415 * VAL18 WILL CONTAIN THE VALUE READ. HOWEVER, FCR THE TIME * i 
2416 ® BEING AN ARBITRARY VALUE WILL BE SET IN THAT LOCATION. * 5426 
2417 t-—-----— -=-= -— ween - - -* 542A 
2418 ¢ eC 
2419 CLC VALIBC1LIeVALLA VALUE READ MATCHES ENTERED? 542E 
2420 JE SusDL2 BRANCH IF YES. 7 5434 
2421 © €: 543A 
2422 MVI = L2425Ctee MOVE AN ASTERISK FOR ERROR. 5440 
2423 SUBDL2 B UNPACK CONVERT PACKEO HEX TO EBCDIC. 6444 
2426 oc 80 Litas LENGTH.  & 
2425 oc AL2(VAL18) AREA TO BE CONVERTED. 5448 
2426 oc AL2(VAL2) RESULT OF CONVERS ION. 544E 
2427 € 5454 
2428 MVC = L 244025, WALZ MOVE TO BUFFER AREA. : 545A 
2429 MVC = L2NO(2) » 8-3 STORE PRINT LINE END ADDR $460 
2430 MVE = ZL SW CLEAR *"ZLS* SwITCHe ¢ 
2431 8 SUBMB4 GO PRINT I0P REGS. 
2432 ¢ 
2433 SUBOL1 MVI OCMDSW,O ZERO *O* COMMAND SWITCH. ; 2 
2434 SBF VALIex*lF® REMOVE BITS 3-7. 
2435 ¢ 
2436 8 UNPACK CONVERT PACKED HEX TO EBCDIC. = 
2437 oc xiieie LENGTH. 
2438 oc AL2(VAL1) AREA TO BE CONVERTED. 
2439 oc AL2(L1¢8) CONVERTED RESULTS. @ 
2440 ¢ 5464 
2441 CLI VAL1.0 WAS VAL1 = ZERO? 5468 
2442 JE SUBODL6 BRANCH IF YES. © 
2443 & 
2444 MVC 8=—«- L148 (29 2 V20-1 MOVE *20¢ TO BUFFER. 
2445 MVC =: L243. 03) 5 V20 MOVE *20=' TO BUFFER. @ 
2446 MVC =: L. 2411039 ,V28 MOVE *26=* TO SUFFER 
2447 MVC =. 124193) 5 V30 MOVE *30=* TO BUFFER 
2448 MVC) = L. 242703) V38 MOVE *36=* TO BUFFER € 
2449 & 
2451 @ NOTE THAT WHEN DISPLAYING *DLS* ONLY THIS SUBROUTINE_WILL USE 1 6S 
2452 * SOME OF THE EXISTING CODE FOUND IN **SUBALS**. THEREFORE, 
2453 *& **ALSTBL** WILt BE USED BY THE DISPLAY DLS COMMAND, ;: 
2456 e- a s. @ 
2455 *® 
24MARTS PROG ID C19-2 Ore 
827879 PAGE 19 EC NO. 


fe ene aetna eminem Senne 


{ 


& 


& 
t 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


3340 ADAPTER MANUAL OPERATIONS PGM = #0D 





12 





PART NO. 
PAGE 


4247615 
19A 



































OBJECT CODE ADOR STMT SOURCE STATEMENT 

C2 01 SFIF 2456 SUBDL7 LA ALSTBL XR1 SETUP ADDRESS OF TABLE. 

3D 01 SE9S 2457 OLSLOP CLI ZLSWol DISPLAY ZLS GPERAT ION? 

f2 81 50 2458 JE STRZLS IF YES, GO LOAD OZLS STRING. 
2459 @ 

C2 02 59A0 2460 La DOL SsXR2 SETUP IOP STRING ADDRESS. 

CoO 87 5803 2461 EXEC 8 SVPCTL CONTROL/SENSE EXECUTOR SUBROUTINE. 
2462 & 

4C 00 00 5€81 2463 MYC O(1,XR1) eVALIB MOVE RESULT TO ALSTBL 

OE OO SETF SESC 2464 ALC VAL1i,K1 INCREMENT *DLS* ADDRESS BY le 

D2 01 O1 2465 LA 1G eXR1LDeXR1 INCREMENT ALSTBL ADDRESS BY ie 

39 1F SETF 2466 TBF VALI SX*1F® PROCESSED 32 ENTERIES? 

CS 90 53C7 2467 BF OL SLOP Loop IF NO. 
2468 & 

CO 87 56BB 2469 8 DLSENT BRANCH TO A POINT IN *SUBALS*. 
2470 * 

3C 00 SE94 2471 SUBDLS MVI DCMOSW, 0 RESET SW. 

3C €9 621€ 2472 AVI L1.c*z* MOVE THE LETTER *Z* FuR DISPLAY. 

OC O1 6226 S5DF8 2473 MVC L1+8(2),ZERO FORCE LOCATION TO ZERO. 

OC 02 6247 SES5C 2474 MYC £2¢3(3),Vv00 MOVE *00=* TO BUFFER. 

OC 02 624F 5E62 2475 MVC £24113) ,V08 MOVE *O8=* TO BUFFER. 

OC 02 6257 SE68 2476 MYC £2#19(3).V10 MOVE *10=* TO BUFFER. 

OC 02 625F SE6E 2477 mvc £2¢27(3),V18 MOVE *18=* TO SUFFER. 

3C 00 SETF 2478 MVvI VAL1,0 FORCE ADORESS TO O- 

Co 87 5§3C3 2479 B SUBDL7 BRANCH TO EXECUTE 32 OISPLAYS. 
2480 © 

C2 02 59B8 2481 STRZLS LA DOZLS »XR2 DISPLAY *ZLS* STRING ADDRESS. 

Co 8? 5302 2482 8 EXEC GO EXECUTE. 
2483 * 

3> O1 5E94 2484 SUBDL3 CLI OCMDSW 1 IS IT DISPLAY Z2LS OPERATION? 

CO 81 53FO Sree BE SUBDL5 BRANCH IF YES. 
486 t 

OC 12 6230 6504 2487 MYC 11418(19),ZLSMSG418 MOVE *ZLS* MSG TO BUFFER. 

OC 01 6233 5€01 2488 MVC £1421(2) »VAL2 MOVE ADORESS VALUE. 

OC 01 SESE 5437 2489 MVC 11NQ(2),%-3 STORE PRINT LINE END ADDR 

C2 02 SAl2 2490 LA AZLSeXR2 | ALTER ZLS STRING ADDRESS. 

Co 87 5357 2491 8B SUBDL4 BRANCH. 
2492 * 

OC 02 6247 SES5C 2493 SUBDL6 MVC 12¢313),¥00 MOVE *OO=* TO BUFFER. 

OC 02 624F SE62 2494 MVC 1241103) ev08 MOVE *O8=* TO BUFFER 

OC 02 6257 5E&68 2495 MvC £2¢19(3),V10 MOVE *10<* TO BUFFER 

OC O2 625F SEG6E 2496 MvC L2¢27(3).V18 MOVE *18=*° TO BUFFER 

CO 87 §3C3 2497 8B SUBDL7 GO PROCESS TABLE. 
2498 * 
2499 Fame * 
2500 * eee *ZLS*® ZONE LOCAL STGRE SUBROUTINE. ese s 
2501 * THIS SUBROUTINE IS ENTERED AFTER ENCOUNTERING AN °A® CALTER) * 
25u2 * GR *D* (OISPLAY) COMMAND FOLLOWED BY A *ZLS* OPERAND. * 
2503 * THIS SUBROUTINE WILL SET A SWITCH ANO BRANCHES TO *DLS* * 
2504 * SUBROUTINE ABOVE. * 
2505 * s 
2506 * _ —— ---- * 
2507 * 

3C 01 5E95 2508 SUBZLS MMVI Zt SW» SET "ZLS* SWITCH ON. 

CoO 87 532F 2509 8 SUBDLS BRANCH TO "DLS* SUBROUTINE. 
2510 & 
2512 # eee *COL's*COR® CONTROL STORAGE DATA SUBROUTINE. see ® 
2513 * THIS SUBROUTINE IS ENTEREO AFTER ENCOUNTERING AN *A® (ALTER) * 
2514 & OR *D* (DISPLAY) COMMAND FOLLOWED BY A *CDOL*/*COR' OPERAND. * 
2515 * THIS SUBROUTINE IS RESPONSIBLE FOR ISSUING THE PROPER SEQUENCE * 
2516 * ‘OF COMMANDS TO THE ATTACHMENT. * 
2517 * THE FOLLOWING FORMAT iS EXPECTED 32 2 
2518 * AeCOL sVVYVV XX aXXeKXeXKgoccoseeETCe. OR 
2519 & AsCDR oe VYVY XX oXXeXKoXKvecccsecETC. OR * 
2520 # DeCOL»YYYY OR * 
2521 DeCOR,YVYY OR . * 
2522 * DsCOLsYYV¥»ZZZZ «=OR * 
2523 * DyCORSYYYY»Z2ZZ2 * 

23AUG75 OSNOVT5 24MAR7T6 PROG ID C192" 
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$46C 
5470 
5476 
S47A 
547E 


5482 
5488 
548E 
5492 


5495 
5499 
549D 
54al1 
S4A5 


me 54A9 
54AE 
54B2 
54B6 
5S4BA 


5460 
$4C1 


54C5 
54C9 
54CE 
5402 


54D5 
5409 
54D0 
54E2 
5S4E6 
S4&E7 
54E9 


56€6 


54F0 
5463 
S49 


54FC 
5506 


5503 
5507 
5508 
S50E 
$511 


SS15 
5519 


$510 


DATE 
€C NO. 
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STRT SOURCE STATEMENT 

2592 * 

2593 MVC L1INa(2),KO000 PREVENT REPRINTING SPEC MESSAGE 
2594 MVE t2ec* & BLANK *O0* OR *A* 

2595 TAN CDSW,1 ARE THERE MORE LINES TO BE PRINTED? 
2596 TeF PRTEND el ON IF REQ KEY HAS BEEN PRESSED 

2597 JT OCD GO BACK TO PRINT NEXT LINE 

2598 ® 

2599 MVE OCDSW,o RESET DISPLAY CO SHITCH 

2600 * 

2601 8B SUBMBS GO TO GATHER IGP REGS 

2602 * 

2 6 o3 Blew cree raw ce cranes wer eeren aan emenh ae om a. RE ce ae et ene cae ie ie atte ee ae ee ap ce te ep cmreae cemcy nemmennct mane eametinaats HE 
2604 * COME HERE If THE DATA ENTERED BY THE USER WITH THE CORSCOL s 
2605 OPERAND DOES NOT MATCH THE VALUE READ WHEN CONTROL STORAGE * 
2606 * WAS ALTERED. PLACE AN ASTERISK TO THE LEFT OF THE OATA FIELD ¢ 
2607 ® IN THE OUTPUT BUFFER. ° 
2608 #-~— wo nee. + nomenon 
2609 * 

2610 SuBCD2 ST XRIS323,XR1 SAVE CURRENT VALUE OF XR1. 

26il L KR2S3,XR1 GET CURRENT BUFFER ADDRESS. 

2612 A NEG1LeXR1 DECREMENT ADORESS BY 3. 

2613 MVI Ole XRLI,~C%HE MOVE AN ASTERISK TO BUFFER 

2614 * , 

2615 XR1S3 LA S-%» XR1 RELOAD XRie 

2616 8 susCo7 RETURN TG RAIN FLObe. 

2617 * . 

2618 Be—— eames an ener enonanmeemememencnncn Se 
2619 & COME HERE IF THE DISPLAY COMMAND *O* ES DETECTED WITH THE s 
2620 * *CO* GPERAND. READ DATA FROM CONTROL STORAGE AND PLACE IN * 
2625 % THE OUTPUT BUFFER. NO COMPARE WITH ENTERED DATA IS OONE HERE. 
2622 t= renee atom oO ete acne aan anc emaen maaan = 
2623 * 

2624 SUBCDI AVI OCHDSW.6 CLEAR *D* COMMAND Su. 

2625 MYI DCDSus1l TURN SWITCH ON. 

2626 HY i2eC*oé MOVE THE LETTER *D* FOR DISPLAY. 
2627 MVI CDSweik SET SW FOR MULTIPLE LINE OUTPUT 
2628 * 

2629 DCD 8 UNPACK USPACK CS ADDR TO LEFT OF LINE 

2630 oc XLL* 2? LENGTH 

2631 BC AL2UVAL2) AREA TO BE CONVERTED 

2632 oC AL 2iL2¢6! DESTINATION ADDR 

2633 % 

2634 NVI COCTReD SETUP COUNTER FOR 8 ENTERTES. 

2635 LA CSTBL26XR2 LOAD ADDRESS OF DATA *READ® TABLE. 
2636 * 

2637 s-—~ ———-= - a erence 
2638 & SUILD CSTBL1 WHITH UP TG B ENTRIES THEN GO SUBROUTINE *SVPCTL® . 
2639 * TO READ VALUES AT THE ADDRESSES SPECIFIED IM THE TABLE. 

2640 F- an eee te 
2641 

2642 COMGVE MVC 342eKR13, VAL2- MGVE PRESENT ADDRESS. 

2643 MYC CIBUF(255345XRi? MOVE ADDRESS TO CIBUF. 

2644 LA BCOR se XR2 DISFLAY CD RIGHT STRING ADDRESS. 
2645 Cur LOC.C*RE WAS THE OPERAND CDL *RIGHT® 2? 

2646 JE ocOoSKP SKIP AROUND IF YES. 

2647 & 

2648 La OCDL eo XR2 DISPLAY CD "LEFT® STRING ADDRESS. 
2649 DCOSKP @ SYPCTL CONTROL/SENSE EXECUTOR SUBROUTINE. 
2650 * 

2651 MYC L(2eXRLI LCT BUF-2 MOVE VALUE READ TO CSTBLi. 

2652 La 4UeMRL) gp XR? ENCREMENT TABLE POINTER. 

2653 ALC COCTReKL ADO 1 TO TABLE ENTRIES COUNTER 
2654 & 

2655 cLc VAL2(2) .VAL2A COMPARE CD ADCR WITH END ADDR 

2656 Jt DCB2 GO If LESS THAN END ADDR 

2657 aVI COSW.O TURN OFF MULTIPLE LINE Su 

2658 J OCO4 GO TO END OF LOOP 

2659 * 

2ERARTO PROG ID Cid2°" 
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3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 c192 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT an LOC OBJECT CODE aoor 
2524 ® WHERE yYYVY= TwO-8SYTE ADDRESS FIELO WHERE CaTA IS TO BE « @& 
2525 @ ENTERED/DE SPLAYED RESIDING IN LOCATION **yaL2es * * 5521 OC 01 SESE SDEB 
2526 © AS PACKED HEX. =, 5527 3C 40 6244 
2527 2 XX = ONE BYTE OF DATA TO BE ENTERED IN ABOVE * €* 6528 38 O1 SEB3 
2528 « LOCATION RESIDING IN **CSTBL®*® AS PACKED HEX. e * 552F 39 O01 SES 
2529 # 2272 = TwO-BYTE LAST ADDRESS TO BE DISPLAYED & 5533 F2 10 2F 
2530 * RESTOING IN LOCATION ®°*VAL24°° AS PACKED HEX. * £5 
a * ~  - §$36 3C OC 5E98 
re eco cee oe eee cae eT aE EN OE I EP AED IED MED nD EOP OO <P OL PIS ORL I LALA GIS PLE 
2533 * 1 €% §53a CO 87 SOE2 
CO 87 4268 2534 SUBCD b& HS 10° HALT & DISPLAY® OP REGS SUB. © ‘ 7 
CC 1? 6235 651¢ 2535 MVC = 11423424) -CDMSG423 MOVE SPECIAL MESSAGE. 
3C 00 SE98 2536 MVE 4 =6OCDSwWeO CLEAR SWITCH. @ 
30 D9 SE21 2537 CLI LOCeCtRe WAS OPERAND A "COR? 
CO 81 SS50F 2538 BE suscos BRANCH IF YES. 
2539 & | @ 
0C 03 623A SE10 2540 SUBCD6 MVC 1142814), ADRS MOVE ADDRESS OF *CD* GPERAND. 
OC OL SESE 5485 2541 MYC = LIN@(23 8-3 STORE PRINT LIME END ADDR 
30 O1 5E94 2542 CLE DCMOSWei DID WE COME FROM & *D* COMMAND? ~€" $63 34 01 5550 
F2 81 C60 a JE SUBCD1 BRANCH IF YES. . 5542 35 01 SDE4 
a4 % , 5546 36 01 5008 
3C Cl 6244 2545 MVI 8 L2eCtae MOVE THE LETTER "ae FOR ALYER. C3 554A 7C SC 00 
C2 02 6247 2546 La L243,XR2 LOAD BUFFER ADDRESS FOR OUTPUT. er 
34 02 SDE4 2547 st XR2S3_XR2 SAVE THAT ADDRESS. $54D C2 61 0000 
C2 02 SECT 2548 LA CSTBLs XR2 ADDRESS OF ENTERED DATA WITH "CD? | €: $551 CO 87 5405 
C2 O01 SEEF 2549 La CSTBLL»XxXRI ADDRESS OF DATA READ a 
2550 . 
2C 03 SABB 03 2551 SUBCDS MYC CIBUFI4},3¢eXR2) MOVE ADDRESS OF CO OPERA. & 
34 02 54C8 2552 ST XR2S843 @XR2 SAVE CURRENT VALUE GF XR2. 
C2 02 5B4F 2553 tA- ACDR»xXR2 ALTER/DISPLAY CD RIGHT STRING ADRS. | 
3D DO SE24 2554 CLI =8OC.C*RE OPERAND FOR CD LEFT OR RIGHT? i @ 
F2 81 04 2555 JE ACDSKP BRANCH AROUND IF *RIGHT®. 
2556 & : 5555 00 5E94% 
C2 02 5809 2557 LA ACDL ¢ XR2 ALTER/DESPLAY CD LEFT STRING ADRS. |‘ €° 5559 ae Ol ce 
CO 87 5803 2558 ACDSKP 8B SVPCTL CONTROL/SENSE EXECUTOR SUBROUTINE. | “ 5555 3C C& 6266 
2559 * $561 3C O01 5E63 
C2 02 0000 2560 KR2SB. LA S-@ gXR2 RELOAD KR2. | ¢% 
4C 00 01 SABE 2561 MYC «=: 80 16 XR1} PC EBUF-2 MOVE TO CSTBL1 : ~~  §865 CO BF O21E 
60 00 O1 Ot 2562 CLC 101 eXR13—926,XR2? NEW = GLO OATA ? : $569 02 5559 
F2 01 69 2563 JRE SUBCD2 ERROR IF NO} i €: 5564 SEOL 556B 
2564 & . " - 5560 624A 5560 
34 02 550A 2565 SUBCD7 ST XR2S443,XR2 SAVE CURRENT VALUE GF xR2. 
35 02 SDES 2566 L KR2$39XR2 GET STARTING ADDRESS OF BUFFER. €: 556€ 3C 00 SEe7 
1C 00 SEA5 O1 2567 SUBCD4 MVC CONVLE2) , 24 0XR1) MOVE *READ* CD TABLE TO CONVERT “ «$572 C2 OL SEEF 
CO 87 O21E£ 2568 8 UNPACK CONVERT PACKED HEX TO EBCDIC. 
01 54E6 2569 oc MLLPLe. LENGTH. & 
5685 54E8 2570 oc AL2(CONYL? AREA TO BE CONVERTED. 
SDFD S4EA 2571 Oc AL2(CONV2) RESULT OF CONVERSION. 
2572 2 @ 
BC O1 O1 SDFD ah, MVC 8 =—s- RL 2 KR2} CONE HOVE TO BUFFER FOR GUTPUTT ENG. ' 
& % - 
E2 02 03 2575 - LA 3 eXR2) XR ADVANCE BUFFER ADDRESS POINTER €: scce ac a Saas 
OF GO SEB? SEBT 2576 SLC COCTR»Ki DECREMENT COUNTER BY i. ““ $580 C2 02 5821 
F2 61 19 2577 Jz SuBCD3 EXT TO OLSPLAY IOP REGS. 5584 30 D9 SE21 
2578 €3 5588 £2 82 04 
3D O1 SE98 2579 CLI OCOSHel CID WE COME FROM A *O* OPERATION? 
F2 81 £6 2580 JE suacog DON’T COMPARE fF YES. 55868 C2 02 SAEG 
2581 @ €: 558F CO 87 5803 
34 02 SDE4 2582 ST XR253—exR2 SAVE CURRENT ADDRESS OF SUFFER. = 
€2 02 0000 2583 XR2S4 LA S-8,XR2 RELOAD ORIGINAL VALUE OF xR2. 6593 4C OL OL SAB6 
O02 O01 04 2584 LA 4CeXRLSEXRI ENCREMENT NEW *CD* TABLE POINTER. € $598 02 02 04 
E2 02 04 2585 ta 4&0 oXRZ3 oKR2 INCREMENT OLD °CO® FABLE POINTER. es 5538 OF 00 SEB7T SEBC 
CO 87 S6Ag 2586 8 SUBCOS LOOP Tit DONE. 
2587 * e ve 
36 02 SDDA 2588 SUBCD3 A NEG2,XR2 ADJUST TO END OF PRINT LINE c Seas me ae sas oe 
34 02 5EAO 2589 st L2Na-XR2 STGRE END OF LINE 2 55aA 3C 00 5EB3 
2590 * = 55ae.F2 87 22 
CO 8T 5057 2591 8 PRTBUF GO TO PRINT SUFFER SUROUT INE 
% i 
23AUGTS OSNOV7?S 24NAR76 PROG ID C19-2 © SNOV 
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C192 3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 





























" ERR LOC OBJECT CODE ADDR STMT SCURCE STATEMENT 
5581 3D 7F SEO1 2660 DCD2 CLI VAL2ex*7E® IS THE LOW ORDER SYTE = °7F° €" 63D 3C SC 6246 2728 MVI =-L242,C8%0 MOVE AN ASTERISK FOR ERROR. 
5585 F2 01 OD 2661 JNE DCD3 GO IF NOT 5641 CO 87 O21E 2729 SUBAL2 6 UNPACK CONVERT PACKED HEX TO EBCDIC. 
2662 * — 5645 01 5645 2730 oc MLL°1° LENGTH. 
55B8 OE 00 5E00 5F8C 2663 ALC VAL2-141),K1 INCREMENT CD AODRESS / £ © 5666 SEBL 5647 2731 oc AL2(VAL1B) AREA TO BE CONVERTED. 
55BE 3C 00 SEOL 2664 MVI = VAL2e0 TO NEXT BLOCK 5648 5E01 5649 2732 oc AL2(VAL2) RESULT OF CONVERSION. 
55C2 F2 87 OE 2665 J DCD4 GO TO END OF LOOP | 2733 ¢ 
2666 * fe 564A OC 01 6248 5E01 2734 MVC) = L 2 429g VAL2 MOVE TO BUFFER AREA. 
55C5 OF 01 SEO] 5DEA 2667 O0CO3 ALC VAL2,-K0001 ADD 1 TO CD ADDRESS 5650 OC 01 SEAO 564D 2735 MYC LZ2NOi2) »*-3 STORE PRINT LINE END ADCRESS 
55CB 30 08 5E87 2668 CLI CDCTR,S ARE THERE 8 ENTRIES IN TABLE? = 5656 CO 87 SODE 2736 B SUBMB4 GO PRINT IGP REGS. 
5SS5SCF CO 01 5576 2669 BNE  CDMOVE LOOP UNTIL THERE ARE 8 ENTRIES i 2737 * 
2670 ¢ 565A 3C C4 6221 2738 SUBAL3 MVI £142,C*pD# MOVE °D* LETTER IN MSG. 
5503 C2 01 SEEF 2671 DCD tA CSTBL1,XR1 RELOAD STARTING ADDRESS OF CDTBL1 ; 565E 3A 20 SET7F 2739 SB! VALE 2 X* 208 CHANGE VAL] TO GIVE PROPER CR FIELD 
5507 C2 02 624E 2672 LA L2410:XR2 LOAD ADDRESS GF GuTPUT BUFFER. t 5662 3C 6A 5A43 2740 MVi SVPALS,X*6A? CHANGE AALSB SEQ TG READ ALS-P 
S5DB CC 87 54DD 2673 B SUBCD4 GO TRANSFER DATA TG OUTPUT BUFFER. 5666 CO 87 5608 2741 8 SUBAL4 GO MOVE ADDRESS TO SUFFER. 
2674 * 2742 * 
550F OC 04 6232 SE49 2675 SUBCDB MVC =11420(5),RIGHT MOVE *RIGHT* MSG TO BUFFER. iG 566A 3C 00 5E94 2743 SUBAL1 MVI DCMDS#,0 CLEAR *D* CMD SWITCH. 
55E5 CO 87 5482 2676 B SUBCD6 LOOP TIL DONE. 566E C2 01 SF1F 2744 LA ALSTBL»XR1 ALS STRING ADDRESS. 
2677 © 5672 3C 00 5928 2745 MVI = ALSADR»O ZERO GUT ALS ADORESS. 
55E9 D2 01 04 2678 SUBCD9 LA 4€gXRLDgXR1 INCREMENT TABLE POINTER. f 5676 3D €4 5E21 2746 CLI LOC.ctus UPPER °ALS® TO BE DISPLAYED? 
55EC CO 87 54DD 2679 8 SUBCD4 CONTINUE MOVING. 567A F2 81 DC 2747 JE ALSPz BRANCH AROUND IF YES. 
2680 * 2748 * 
2681 #--~-—— wenn wena 5670 OC 02 6247 SE68 2749 MVC =—«: L 243.39 2 VO MOVE *102* TO BUFFER. 
2682 * *&t ADDRESS LOCAL STORE SUBROUTINE.  *#¢ € 5683 OC 02 624F SE6B 2750 MVC =: £.24110392V14 MOVE *14=<* TO BUFFER 
2683 * THIS SUBROUTINE IS ENTERED AFTER ENCOUNTERING AN "A’ (ALTER) * 7 5689 OC 02 6257 SE6E 2751 MVC =£241913},V18 MOVE *18=° TO BUFFER 
2684 & OR "D*? (DISPLAY) COMMAND FOLLOWED BY A "ALS* GPERAND. * € 568F OC 02 625F 5E71 2752 MVC £&2427€3},V1C MOVE *12C=* TG BUFFER 
2685 * THIS SUBROUTINE IS RESPONSIBLE FOR ISSUING THE PROPER SEQUENCE # 2753 * 
2686 & OF COMMANDS TO THE SVP IN THE SYSTEM 3 MOD 15 10P. * 5695 3C 10 5928 2754 MVI ALSADR»,X*108 INIT ALS ADDR TO READ LOWER HAL 
2687 * * £ 5699 3C D3 6221 2755 KVE = =—-L143,C°L® MOVE LETTER "L* TO DISPLAY. 
2685 * THE FOLLGWING FORMAT IS EXPECTED FOR THE *ALTER*® COMMAND : * 5690 C2 02 5912 2756 ALSP LA RDALS eXR2 READ ALS STRING ADDRESS. 
2689 & Ay ALSBe YY 2 XX * 5641 CO 87 5803 2757 B SVPCTL CONTROL/SENSE EXECUTOR SUBROUT ENE. 
2690 * Ay ALSDs VV XX * €. 2758 * : 
BF ae ie RET 2691 © WHERE YY = TWO-BYTE ADDRESS FIELD WHERE DATA IS TO BE ENTERED * ~~ 56A5 4L 01 01 592A 2759 MVC 1(2,XR1)sALSBD MOVE ALS B/D BUFFER TO TABLE. a 
2692 # RESIDING IN LOCATION **VAL1®* AS PACKED HEX. * 56AA OE 00 5928 SEBC 2760 ALC ALSADR,Ki INCREMENT ALS ADDRESS BY la. 
2693 *& XX = ONE BYTE OF DATA TO BE ENTERED IN ABOVE * £- $6BO D2 OL 02 2761 LA 20 XRL)eXR1 INCREMENT XR1 BY 2. 
2694 * LOCATION RESIDING IN **VALLA®® AS PACKED HEX. * ~ 5683 39 OF 5928 2762 TBF ALSADR,X*OF® REACHED END OF TABLE? 
2695 * + 56B7 CO 90 5695p 2763 BF ALSP LOGP IF NO. 
2696 * THE FOLLOWING FORMAT IS EXPECTED FOR THE "ALTERS COMMAND : * €: 2764 * 
2697 * D»ALSU TO DISPLAY 32 BYTES GF UPPER ALS. * ~*~ 568B 3C 00 5E87 2765 DLSENT MVE COCTR,O RESET LINE COUNTER. 
2698 * OeALSL TG DISPLAY 32 BYTES OF LOWER ALS. * 56BF 3C 04 5E86 2766 MVI CICTRe4 SETUP ENTERIES COUNTER. 
2699 * * €- 56C3 3C 00 5E95 2787 MVI =ZLSW,O CLEAR *ZLS* OPERAND SWITCH. 
2700 *~ ee A a ee a * 7 56C7 C2 01 6248 2768 LA 1244,XRi SETUP LINE 0 ADDRESS. 
2701 © 56CB C2 02 SFIF 2769 LA ALSTBLsXR2. SETUP ADDRESS GF *MIAR* ENTEREES. 
55FO CO 87 4268 2702 SUBALS B HSEOP "HALT & DISPLAY IOP REG suB. & 2770 # 
S5F4 OC 03 6221 6520 2703 MVC = L1#3(041 » ALSMSG43 MOVE SPECIAL DISPLAY mSG. 56CF 2C 61 5E01 O1 Z771 SUBAL6 MVC VAL2(2).10.XR2) MOVE TABLE VALUE TO *VAL2° 
SSFA OC 01 SESE SS5F7 2704 MvC  =LINS(2),*-3 STORE PRINT LINE END ADDRESS 2772 * 
$600 3D C4 5E21 2705 iLI =6LOC,CrDe WAS COMMAND A *ALSD*? €> 56D CO 87 O21E 2773 8 UNPACK CONVERT PACKED HEX TO EBCDICe 
5604 F2 81 53 2706 JE SUBAL3 BRANCH IF YES. 5608 02 5608 2774 oc XL1*2* LENGTH. 
5607 3C 6E 5A43 2707 MVI «= SVPALS»X*6E* CHANGE AALSB SEQ TO READ ALS-B 56D9 SE01 56DA 2775 DC AL 20¥VAL2) : AREA TO SE CONVERTED. 
2708 ¢ G 5608 5E07 56DC 2775 DC AL2{VAL4) CONVERTED RESULTS. 
5608 3D 01 5E94 2709 SUBAL4 CLI ODCMDS#,1 OID WE COME FROM A *D* COMMAND? 2777 = 
560F F2 81 58 2710 JE SUBALL BRANCH IF YES. 56DD 4C 03 03 5507 2778 MVC =: 3.1 XRD) VALS MOVE TO OuTPUT BUFFER. 
2711 # € 56E2 02 01 08 2779 LA 8 eXR1L)—eXR1 BUMP OUTPUT AREA POINTER. 
$612 OC 02 6224 SE&} 2712 MVC =L146431.BAT MOVE BLANK AND *&T® CHAR. 56E5 E2 02 08 2780 LA BU eXR2) oXR2 BUMP *ALS* TABLE POINTER. 
S618 Of OL 6227 SEI 2713 MVC = L1#912) »VAL2 MOVE ADDRESS VALUE. S56E8 OF 00 S5SE86 SEBC 2781 SLC CICTR»Ki DECREMENT COUNTER. 
S61E OC O01 SESE 5618 2714 MVC = L1N@(2),%-3 STORE PRINT LINE END ADDR ( Se6EE CO 01 S6CF 2782 BNZ SUBALS6 Loop TIL DONE. 
2715 * " 2783 * 
5624 30 Cl 6264 2716 MVE L2eCtae MOVE THE LETTER*A® FOR ALTER. - 56F2 3C 04 S5SE86 2784 MVI CICTR»4& REFRESH COUNTER. 
S628 3A 80 SETE 2717 SBN VAL1,X*a80* CHANGE VAL1 TO GIVE PROPER CR FIELD €° S6F6 OE 00 5E87 SEBC 27285 ALC =CDCTR»KL ACD 1 TO LINE COUNTER. 
562C C2 02 5a30 2718 La AALSB,XR2 ALTER ALSB STRING ADDRESS. 56FC 3D 01 SE87 2786 CLI = CDCTRe1L IS I¥ LINE 12 
5630 CO 87 5803 2719 8 S¥VPCTL CONTROL/SENSE EXECUTOR SUBROUTINE. © 5700 F2 81 1A 2787 JE LBl BRANCH IF YES. 
2720 * a 2788 * 
272) Rammer — 5703 30 02 5SE87 27389 Cir CDCTR»2 IS I¥ LINE 2? 
2722 * VALIB WILL CONTAIN THE VALUE READ. * $707 F2 81 27 2790 JE LB2 BRANCH IF YES. 
2723 #-- (ee ne em. ---~---------+--- aneancwen i é 2791 * 
2724 * S70A 3D 03 SE87 2792 CLI CDCTR,3 1S IT LINE 3? 
5634 OD 00 SE8i SEBO 2725 CLC VALIBC1),VALIA VALUE READ MATCHES ENTERED? STOE F2 61 24 2793 JE 183 BRANCH IF YES. 
563A F2 81 04 2726 JE SUBAL2 BRANCH IF YES. : &} 5711 36 01 Sove 2794 A NEG5, XR? STORE END OF : 
2727 % : 5715 34 01 SEA6 2795 st L5NaeXR1 LINE 3 ADOR 
DATE 23AUG75 OSNOVTS 24KART6 PROG ID C19-2 © ate 23AUGT5 OSNOV75 24MART6 PROG 1D C19=2 © 
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PART NO. 4247615 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. sehen? 
a PAGE 22. € PAGE 
C192 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 €192 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 
ERR LOC GBJECT CODE ADOR STMT SOURCE STATEMENT ‘ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
5719 CO 87 SODE 2796 8 SUBMB4 GO OUTPUT RESULTS. G aoee - REGISTER VALUE READ WILL RESIDE AT **VAL1E*. . 
S5T71D 36 O1 SDDE 2798 LBl A NEG5eXRi STORE END OF 2866 * 
5721 34 01 SEAO 2799 ST L2Na_,XRi LINE 0 ADDR € 57CS5 OD 00 5E81 SETF 2867 CLC = VALIB( 1d e VALI REGISTER READ = ENTEREO VALUE? 
5725 C2 O1 6289 2800 LA L344_XR1 LINE 1 BUFFER ADDRESS. S57CB F2 81 04 2868 JE SUBRG4S BRANCH IF YESe 
729 C F21 1 LA ALSTBL42¢XR2 SIAR VALUE ADDRESS. 2869 * 
ered C0 a Bece S402 8 SURILE = GO HOVE ie le e S7CE 3C SC 6246 2870 MVI L24¢2,C%%! MOVE AN ASTERISK FOR ERROR. 
2803 * 7 5702 CO 87 O21LE 2871 SUBRG4 B UNPACK CONVERT PACKED HEX TO EBCOIC. 
5731 36 01 S5DDE 2806 182 A NEGS »XR1 STORE END OF 57D6 O1 57D6 2872 pc XL1°1¢ LENGTHe 
5735 34 01 SEA2 2805 ST L3Na_XR1 LINE 1 ADDR {- 5707 5E81 5708 2873 oc AL2(VAL18)} AREA YO BE CORVERTED. 
2138 C2 01 626F 2806 LA L444_XR1 LINE 2 BUFFER ADDRESS. 5709 5E01 SIDA 2674 oc AL2¢ VAL2) RESULT GF CONVERSION. 
5730 C2 02 5F23 2807 LA ALSTBL44,_XR2 OSAR VALUE ADDRESS. 2875 * 
5741 CO 87 S5S6CF 2808 B SUBAL6 GO MOVE LINE 1. es S708 OC 01 6248 SEO] 2876 MVC £244(2)eVAL2 MOVE TO BUFFER AREA. 
2809 * : S57E1 OC 01 SEAO S7DE 2877 MVC L2N@(2),*-3 STORE PRINT LENE ENO ADDR 
5745 36 01 S5DDE 2810 LB3 A NEGS oXR1 STORE END OF STE? CO 87 SODE 2878 8 SUBMB4 GO OUTPUT IOP REGS. 
5749 34 O1 SEAS 2811 st L4NSeXR1 LINE 2 ADDR 2879 * 
574D C2 01 6305 2812 LA L5¢4,XR1 LINE 3 BUFFER ADDRESS. € STEB 3C 00 5SE94 2880 SUBRG3 MVI DCMOSW,0 RESET *D* COMMANDO SWITCH. 
$751 C2 02 SF25 2813 LA ALSTBL€6 eXR2 INDEX VALUE ADDRESS. STEF 3C C4 6244 2881 MVI &2,C*D* FOVE A *D*® FOR *DISPLAY® 
5755 CO 87 S5S6CF 2814 8 SUBAL6 GO MOVE LINE 1. f STF3 3A 20 6062 2882 SBN FROTBLeX*20* TURN ON BIT 2.¢ 
2815 * . 57F7 C2 02 S9CC 2863 LA DEXT,XR2 DISPLAY EXTERNAL REG STRING AOORESS 
5759 3C E4& 6221 2816 ALSP2 MMVI £143,C*U* MOVE THE LETTER *U* TO DISPLAY : 57FB CO 87 5803 2884 B SVPCTL CONTRGL/SENSE EXECUTOR SUBROUTINE. 
5750 OC 02 6247 SESC 2817 MVC £243(3),V00 MOVE *00#" TO BUFFER. € : 2885 * 
5763 OC 02 624F SESF 2818 MVC = L 2421039 ,V04 MOVE *O4=* TO BUFFER S57FF CO 87 5702 2886 B SUBRG4 GO CONVERT DATA. 
5769 OC 02 6257 5SE62 2819 MVC = L 21.9639, VOB MOVE *O8=* TO BUFFER 2887 * 
576F OC 02 625F SE65 2820 MVC = 242703), V0C HOVE *OC=* TO BUFFER © 2686 * m 
5775 CO 87 569D 2822 8 ALSe RETURN TO MAIN FLOW. 2890 * SVP CONTROL/SENSE EXECUTER SUBROUTINE 2 
aaa | ee ta abe ty OAD DIE POE A TNA SAID IAI EET AIS EP NS CP ED POLED EO TE 
See : , @ 2891 +-——— 
2825 * ee REG* EXTERNAL REGISTERS SUBROUTINE. 8% * 5803 34 08 5868 2893 SVPCTL ST NTR+3eARR SAVE RETURN ADORESS 
2826 € THIS SUBROUTINE IS ENTERED AFTER ENCOUNTERING AN *A* (ALTER) * €: 5807 88 80 01 2894 SVPCTU TBN 1 9XR2),X*80* TEST FOR CONTROL TYPE 
ne ekg cee Ait Sa 2827 * OR *D* (DISPLAY) COMMAND FOLLOWED BY A *EXXX* OPERAND, WHERE * ~~ 580A F2 90 28 2895 JF SVPSNS © GO IF NOT CONTROL TYPE 7. 
2828 © XXX ITS ANY VALID EXTERNAL REGISTER IN THE IOP. * 2896 * 
2829 * THIS SUBROUTINE IS RESPONSIBLE FOR ISSUING THE PROPER SEQUENCE * €: 580D 2C 01 586D 01 2897 MVC =—s- SVP TEM 1029XR2? MOVE TABLE ENTRY 
2830 * OF COMMANDS TO THE Sve. en & 5812 3B FO 5S86D 2898 SBF SVPTEMsX*FO* ZERO OUT EBL BITS O-3 
2831 * THE FOLLOWING FORMAT IS EXPECTED : * 2899 * 
2832 * A, EFBO, XX * €3 5816 B8 40 01 2900 TBN 109 XR29_X*40* CHECK FOR EXTENDED TYPE 
2833 * WHERE XX IS ONE BYTE OF DATA TO BE PLACED IN THE REGISTER * 5819 F2 90 OE 2901 JF DOLIO1 GO IF NOT 
2834 * SPECIFIED. THE VALUE IS ‘STGRED IN LOCATION **VAL1®°" IN PACKED * c 2902 * ge eat 
2835 ¢ HE Xe & 5G1C E2 02 02 2903 LA 20 oe XRZV ye XR2 
2836 * 0, EFBO + S81F 2C O01 5829 O1 2904 MVC = ABLE 14551(2-XR2? GET OP2 ADDR FOR FOLLOWING MVC CHD 
2837 * * G 5824 OC 00 586C 5824 2905 ABLEL MVC SVPTEM-1(1).% FETCH EBZ 
2838 ¢. oom ~—-- oe - * €% 2906 * 
2839 *¢ 582A 31 C5 586D 2907 DOLIO] LIO SVPTEM,X*C5* t10-1 - 
5779 CO 87 4268 2840 SUBREG B HS OP *HALT & DISPLAY® IOP REG SUB. 2908 * 
577D C2 01 604D 2841 LA ERDTBL ,XRL EXTERNAL REG DISPLAY TABLE & 582E E2 02 02 2909 DONEXT LA 2( oXR2) eXR2 INCR POINTER BY 2 
5781 C2 02 SFFD 2842 LA ERONAM, XR2 EXTERNAL REGISTER NAME TABLE. 5831 CO 87 5807 2916 8 SVPCTU REPEAT 
2843 ¢ 291i * 
5785 8D 03 03 5E21 2844 SUBRGIL CLC 3(4,XR2),LOC NAME IN TABLE = SPECIFIED NAME? ; & 5835 B& 40 O1 2912 SVPSNS TBN 1¢XR2),X%*40* TEST FOR SENSE TYPE 
578A F2 81 OA 2845 JE SUBRG2 BRANCH IF YES. aad 5838 F2 90 2A 2913 JF SvPouUT GO TO END IF NOT 
2846 ¢ isang 2914 * 
578D 02 O12 O28 2847 LA 2 eXR1},XR1L ADVANCE NUMBER TABLE POINTER. | €: 5836 2C 01 5860 OL 2915 MVC « SVPTEMe 1(2,XR2} MOVE TABLE ENTRY 
5790 E2 02 04 2848 LA 4(9XR23eXR2 ADVANCE NAME TABLE POINTER. 5840 38 FO 5860 2916 SBF Svea eee. renee! €81 BITS 0-3 
5793 CO 87 $785 2849 8 SUBRG) LGoP. Pee. 5844 31 C7? 586D 2917 LIO SVPTEM,X® 
2850 *& : €2 5848 30 C7 S586D 2918 SNS SVPTEM.X*C7* SENSE DIAGNOSTIC 
S797 1C 00 6062 00 2851 SUBRG2 MVC FROTBL{(1),0%.XR1) MOVE NUMBER TO FIXED REG TABLE. 2919 * 
579C OC OA 6228 6528 2852 MVC LIFlLO€LL)»REGMSGt10 MOVE DISPLAY MSG TO BUFFER. te he 584C 88 20 01 2920 TBN 16,XR222X*208 TEST FOR EXTENDED TYPE 
STA2 OC 02 622C SE21 2853 MVC = L1#14(3) LOC MOVE NAME OF REGISTER TO BUFFER. a 584F CO 90 582E 2921 BF DONEXT GO If NOT 
S5T7A8 OC O1 SESE 5TAS 2854 MVC =LIN@(25-9%-3 STORE CF PRINT LINE ADDR 2922 * te eee ce i - 
STAE 30 01 SE94 2855 CLI OCMOSW,) DID WE COME FROM A °*D*® COMMAND? 5853 E2 62 02 2923 LA 20 eXR29 eXR2 
57B2 F2 81 36 2856 Je SUBRG3- BRANCH IF YES. : €, 5856 2C 01 585E 01 2924 “MVC = ABLE2 43.9 102 e XR2). GET ADDRESS OF EB1 
2857 * 585B OC 00 5858 586D 2925 ABLE2 MVC %,SVPTEM(1) MOVE EB1 TO DESIRED LOCATION 
pies 3c aa 6244 2858 MVE 0 s-L2,C*At MOVE LETTER *A* FOR ALTER. 6 5861 CO 87 582E 2926 8 DONEXT GO TO NEXT OP 
3A 2C 6062 2859 SBN FROTBL.X*208 TURN ON BIT 2. i. ' & 2927 ¢ ; 
S578D C2 G2 5Aa6C 2860 LA AEXT,XR2 ALTER EXTERNAL REG STRING ..vUORESS 5865 £2 02 02 2926 SVPOUT LA 2 oXR2) og XR2 INCR INDEX REG BY 2 
$7C1 CO 87 5803 2861 8 SVPCTL CONTROL/SENSE EXECUTOR SUBROUTINE. © 5868 CO 87 0000 2929 NTR 8 2 RETURN TO CALLINE ROUTINE 
2862 & 2930 * 
2863 t--——— _ = + | 586C 0000 586D 2931 SVPTEM OC XL2*0000* TEMP SUFFER FOR SVP EXECUTER 
DATE 23AUGT5 OSNOVTS 24RART6 PROG ID C192! Go 23AUG75 OSNOVTS 24MARTO PROG ID C19-2" - 
- EC MO. 827785 827827 | 827879 PAGE 22 | €C NO 827785 827827 8273879 PAGE 22A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247615 
PAGE 23°: 
cig2 3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2932 * 
2934 * SVP STRING —~ HALT IGP AND READ IGP STATUS , * 
2936 * 
586E 2937 IPHALT EQuU * 
586E 0882 586F 2938 oc XL2*0882* K& -—- STOP roP 
$870 0000 5871 2939 oc XL2* 00008 END 
2940 * 
5872 2941 IPSTAT EQU & 
5872 0063 5873 2942 oc XL2*0063°* SENSE CHECK REG 
5874 S90F 5875 2943 oc AL2(C1PCHK) AND SAVE 
5876 006D 5877 2944 oc XL2*006D* SENSE X-REG 
$878 5962 5879 2945 oc AL2(RSXREG-1) AND SAVE 
587A 0060 587B 2946 oc Xt 2*0060' SENSE 6G. 
587C 5912 587D 2947 oc AL2(SNSAVE) SAVE. 
587E 0061 S87TF 2948 oc XL2*0061* SENSE 1. 
5880 5910 5881 2949 oc AL 2 SNSAVE=1) SAVE. 
5882 A882 5883 2950 oc XL 2°AB82¢ KOsK2,K4 
5884 0068 5885 2951 oc XL2° 0068! SENSE OPREG C 
5886 S8FC 5887 2952 oc AL2Z(RSOPRC=-1) AND SAVE 
5888 O06A 5889 2953 oc XL 2*O06A* SENSE OPREG CR 
588A S8FE 588B 2954 oc AL2(RSOPRR-1) AND SAVE 
588C 0068 588D 2955 oc XL2*006B* SENSE OPREG ¥ 
588E 5900 S88F 2956 oc AL 2(RSOPRY-1) AND SAVE 
5890 0085 5891 2957 oc XL2*0085°* O-REG -=-> X-REG 
5892 006D 5893 2958 oc XL2*0060° SENSE D-REG 
5894 S8FO 5895 2959 oc AL 20RSOREG-1) AND SAVE 
5896 O38F 5897 2960 oc XL2*O38F® A~REG ==> D-REG 
5898 0085 5899 2961 oc xi 2*0085°* =~> K-REG 
7 ate 589A 006D 589B 2962 pc XL 2*006D* SENSE A~REG 
S89C S8F4 589D 2963 oc AL2 (RSAREG—1} AND SAVE 
589E 0288 589F 2964 oc XL 2*O0288°* , 
58A0 COSA 58Al 2965 oc XL 2*Cosa* *EORI® IN OPREG. I=*00* ; 
S8A2 0088 58A3 2966 oc xXL2*0088* 
58A4 O028F 58A5S 2967 oc XL2*O028F* *00* <-> A-REG i 
58A6 OFSF S8AT 2968 oc XL2°*OFSF®* B-REG *EOR® A-REG ——> D-REG : 
58A8 0085 58A9 2969 oc XL2*0085° > X-REG | 
S8AA 006C S8AB 2970 oc XL2*006D°* SENSE B-REG 
58acC S8Fa 58AD 2971 oc AL 2(RSBREG-1) AND SAVE 
SBAE 8082 S8AF 2972 oc XL2°*BO082° KOeK2eK3 —— ALS DISPLAY MODE i 
$880 0067 §8B1 2973 oc XL2*0067* SENSE PROC PTR/MODE 
S882 5808 5883 2974 oc AL 2(R SPP TR-1) AND SAVE \ 
5884 0065 $885 2975 oc XL2*0065* SENSE ACCESS PTR/MODE 2.3 
5886 590C 5887 2976 oc AL2C IPAPTR)} AMD SAVE ' 
5888 0064 5889 2977 oC XL 2°0064* SENSE LINK 
568A S90E 5888 2978 oc AL2C IPLINK) AND SAVE 
58BC 9882 5880 2979 oc XL2*6882* 
S8BE aB8&2 S58BF 2980 oc xL2*A882* KO 9K2 9X4 ' 
58CO FF8O $8Cl 2981 oc XL2*FFSO* SETUP X-REG.DON'T RESET *PCR® 
S$8C2 0088 §8C3 2982 oc XxL2*0088* 
58C4 O28F 56C5 2983 oc XL 2° 028F * i 
58C6 888E S8C7 2984 oc XL2*8s86E* *00* --> INDEX REG i 
58C8 0000 58C9 2985 oc XxL2* 0000* END ! 
2986 * 
2988 * SVP STRING —~ IOP RESTORE *! 
2990 
S8CA 2991 RSIOP EQU 
56CA A882 S8CB 2992 oc XL2*Aa882° KO eK29K4 
S8CC 0688 58CD 2993 oc XL 2*0688* 
S58CE 808A S8CF 2994 oc XL2* 808A" *SMODE* PTR=O; MODE=0 
5800 8086 5801 2995 oc XL2°808B°* - 
58D2 8882 5803 2996 oc XL 2*8882° KO K4 
$804 OO0&8F 5805 2997 oc XL2* OOS8F * EXEC SMODE INSTRUCTION 
5806 A882 5807 2998 oc xXL2*ass2¢ KOeK2,K4 | 
5808 0088 5809 2999 RSPPTR DC xL2°*0088* Y-REG=PROC PTR (PPPXXXXX) 
5 
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NOSTIC PROGRAM 


STMT SOURCE STATEMENT 

3000 oc XL2*O028F¢ Y-REG --> D-REG 

3001 oc XL 2° SB8E* _ => INDEX REG 
3002 RSAPTR OC XL2*0088°* Y-REGeACCS PTR (PPPLLELL? 
3003 oc XL2*026F¢ Y-REG -->' D-REG 

3004 oc Xt 2° 8B8E * --> INDEX REG 
3005 oc XL2*°0088° X*00% -—-> OP REG C 

3006 oC XL2*°208A* X*20* ~=> OP REG CR 

3007 oc XL2°008B°* X*00" -=-> OP REG Y 

3008 oc X&i2°O18C*# R4-R7 -—> EXTERNAL ZONE 

3009 oc XL2*O0O08C* R3-R7 ~-> EXTERNAL ADDRESS REG 
3010 oc Xi 2° BEBE * SERVICE ACCESS CYCLE 

3011 RSDREG OC XL2*00868 Y~REG = O-REG VALUE 

3012 oc XL2*028F* --> D-REG 
3013 RSAREG OC XL 2*008B * Y-REG = A-REG VALUE 

3014 oc XL2*OO8F®* -~-> A~REG 
3015 RSBREG OC XL2*O008B* Y-REG = B-REG VALUE 

3016 oc XL 2*O18F * “=> S-REG 
3017 RSOPRC OC XL2*°0088° -C 

3018 RSOPRR OC XL2* OO8A* LOAD OP-REG —-CR 

3019 RSOPRY DC XL2°008B * -Y 

3020 RSXREG OC XL2*00898 RESTGRE X-REG 

3021 * 

3022 RSKREG EQU * 

3023 oc xt 2*°o0C2* RESTORE K-REG 

3024 oc AL2C IPKREG) : : 

3025 oc XL 2*0000°* END 

3026 * ; ‘ 

3027 IPKREG OC xL1*00* K-REG BUFFER 

3028 IPAPTR OC XL2*0000* ACCESS PTR/MODE BUFFER 

3029 IPLINK DC XL2*0000* LINK 

3030 IPCHK OC XL1*O0* IOP CHECK-REG 

3031 SNSAVE DOC XL2*G0000* SENSE 0 AND i. 

3032 * 

3033 *— SL A TO OLE OE OO SAP ARI ISP AI Ge a a aes eannsevematemegnane SE 
3034 * SVP STRING ~— READ ALS FOR IDLE DISPLAY >: 
3036 * 

3037 RDALS EQU s 

3038 Oc XL 2*A862* KO eK? .K4 

3039 oc XL2*0088°* 

3040 oc xL2*o00Ca* LOAD CR-REG WITH 

3041 . Oc AL2(ALSADR) ALS ADDRESS (00-3F) 
3042 Oc XL 2°BO82°* KO eK2,K3 -— ALS DISPLAY MODE 
3043 OC XL2*O06E* READ ALS-B 

3044 oc AL2(ALSBD-1) ANO SAVE 

3045 oc XL2"OO6A* READ ALS-D 

3046 Oc AL2(ALSBO} AND SAVE 

3047 oc XL2*A882°* KO e K2 9 XK 

3048 oc XL 2°0000* END 

3049 © 

3050 © 

3051 ALSADR DC xL1*00° ALS ADDRESS 

3052 ALSBD OC XL2*0000* ALS B/D READ BUFFER 

3053 * 

3054 * 

3056 * SVP STRING —- READ EXTERNAL REGISTER FOR IDOLE DISPLAY * 
BOS T Carer ce een ese ee rer nnenmnenenanarenenenen ooo i tino enn ee een et IE 
3058 

3059 RDEXT EQU * 

3060 oc XL2*A882° KO oK25K4 

3061 DC XL2*0088° RESET C-REG 

3062 oc XL2*OO8A* LOAD CR-REG WITH EXT ZONE 
3063 Oc XL2*028C * R-BUS =--> EXT ZONE 

3064 Oc XL2"OOCA* CR-REG = EXTAR (OO1LEEEEE) 
3065 OC AL2(EXTADR}) 

3066 Oc XL2*008C * R-BUS --> EXTAR 

3067 oc XL 2°OB8F®* EXTIN —-> D-REG 
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3346 ADAPTER MANUAL OPERATIONS PGK = MOD 12 


GBJECT CODE ADDR 
0085 593C 
0065 593E 
5946 5940 
A682 5942 
0000 5944 
06 5945 
00 5946 
5947 
AB82 5948 
0088 594A 
OOCA §94C 
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0060 5956 
5960 595A 
A882 535C 
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PART NO. 4247615 
PAGE 24 
STMT SOURCE STATEMENT . 
3068 oc XL2°0085* => X-REG or 
3069 oc XL2°006D* READ EXTIN | 
3070 oc AL2CEXTIN} AND SAVE ' 
3071 oc XL 2*A882° KO, K2eK4 | 
3072 oc XL2*0000° END | 
3073 * : 
3074 & | 
3075 EXTADR OC XL1*00* EXT ADDRESS | 
3076 EXTIN OC XL2*00° EXT-REG READ BUFFER 
3077 ¢ 
3078 * 
BOTY am n ecoe- oa cee an coun memes oer * 
3080 * SVP STRING -- READ LOCAL REGISTERS FOR IDLE DISPLAY ®, 
308] Fenn <n atce or meen menen weeoereee eee one 
3082 * 
3083 RODLS EQU # 
3064 oc XL2°A862° KO K2_ KG 
3085 DC XL2°0088¢ KOeK29K4 
3086 pC XL2*O0CAS CR-REG = OLSAR (00ZZ0D0D1 
3087 pc AL2CDL SADR} | 
3088 oc XxL2*008C * R~BUS =—-> OLSAR | 
3089 DC XL2* O88F* OLS -=> A-REG 
3090 DC  XL2°038F¢« —> D-REG | 
3091 oc xL2°0085* => K-REG 
3092 oc XL2*006D* READ OLS 
3093 pc AL2(DLSIN) AND SAVE 
3094 oc XL 2*a682° KO eK2-K% 
3095 oc XL2*0000° END 
3096 * 
3097 * | 
3098 DLSaDR OC KL1°00* DLS ADDRESS 
3029 DLSIN DC XL1L°Q0? OLS-REG READ BUFFER 
3100 ® | 
3102 Caen ew ene = oe & 
3102 © SYP STRING -- LOAD K-REG AND RUR IOP FOLLOWING A °G* COMMAND. | 
3103 Been eee en eee te meneame - * 
3104 © | 
3105 RUNIOP EQU ss 
32106 oc ML2* 0862" . | 
3107 OC XL2°8862¢ | 
3108 oc xXL2* aes2¢ 
3109 oc XL2° 008A ° | 
3110 oc XL2°0CEE* | 
BLL oc xXxL2°00C2* LOAD KREG 
3112 oc AL2C LPKREG) FROM IOP K-REG By FFER | 
3122 oc XL2°008E* RUN LOP | 
3114 oc XL2° 000° END 
3115 * 
3116 t—-— eee cen e mn S 
3117 * SVP STRENG =~ SINGLE STEP IOP * 
3118 se oc ee cen ne Sh EN EN ET * 
3119 ¢ | 
3120 IPSTEP EQU 
3121 oc xi.2°Bes2e 
3122 oc XL 2°ase2?* . i 
3123 oc XL2*o08Ae 
3124 gC RLZ2°OCSE* 
3125 oc XL2*00C 2¢ LOAD K-REG 
3126 oc AL2(CYCK? , FOR SINGLE STEP 
3127 oc XL2* COBE® RUM IOP FOR ONE CYCLE 
3128 Bc xi 2°8882¢ KO ,K2,K3 
3129 oc XL2*a882° READ ACC PYR/KODEsADDR COMP 
3130 oc xL22 0000* END 
3iZi @ “ : 
3132 CycK oC XLL OOF K-REG FOR SINGLE STEF 
3133 ¢ 
3134 & 
3135 go. = 
{ 
| 
24KARTC . PROG ID C192 
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PART NO. 4247615 
PAGE 24A 

STMT SOURCE STATEMENT 
3136 # SVP STRING -- ALTER ADDRESS COMPARE STOP e 
ee —— renee en er enanananan ap ar-anemcmemanmannne EE 
3138 ¢ 
3139 AACNP EQU * 
3140 oc XL2*A882° KO 9K2,K4 
3141 oc XL2*0088* 
3142 oc XL2°O0CA® LOAD CR-REG = BLOCK ADDR. 
3143 oc AL2(VAL2-1) 
3144 oc XxL2*O0CB* LOAD Y-REG = OFSPL ADDR 
3145 oc AL2(VAL2) 
3146 oc XL2*O28F® OISPL ADOR --> D-REG 
3147 oc XL2°048D°* RZeceRT/O-REG —~> ADDR COMP REG 
3148 OC XL2*208A° P27? 
3149 oc XL2*OCSE* 2222 
3150 oc XL2*A882* KO »K22K40 
3151 oc XL 2°0000* ERD 
3152 * 
3153 ¢-—---— eee <opae aoe eee een ELROD NCE nT ES CRO eR MER mIeD a Hio-cap-cmeaemenmas canes EE 
3154 SVP STRING -- DISPLAY OLS % 
3156 * * 
3157 ODLS EQU * 
3158 » Oc XL2* AB8B2° KO,K25KS 
3159 oc XL2*0088° 
3160 oc XL2*O0CA®* CR-REG = DLSAR (00220000) 
3161 oc AL2(VAL1L) 
3162 oc XL2*008C* R-BUS <--> DLSAR 
3163 oc XL2°*O88F * OLS => A-REG 
3164 oc XL2*038F° --> D-RES 
3165 oc XL2*0085* > KREG : 
3166 oc %L2*006D * READ OLS . 
3167 oc AL2(VAL1B3 AND SAVE : Pa Genie tae 
3166 pc XL2°a882* KO KZ 5 K4 
3169 oc XL2*0000° END 
3170 & : 
3171 % 
BLT 2 Ber mr cr a tere cree ene area Aen aN EN LE YC LO OTT OIE! ot 
3173 ® SVP STRING -— DISPLAY ZLS e 
3i75 © 
3176 OZLS EQU = 
3177 oc X¥L2*AB82° KO »pK2eK4 
3178 oc xL2'0388° OP REG SET TO SZI OP 
3179 oc ZL 2*OOCA® CR-REG = ZLS ADDR 
3180 oc AL2(VALE? ADDR TO BE DISPLAYED 
3181 oc xXL2°Q28C* ZLS --> ZLSOUT REG 
3182 BC aL 2'0086* =>» X-REG 
3183 pc XL2*006D* READ Z2LS 
3184 oc AL2(VAL1B) AND SAVE 
3185 oc Xi 2°ASBB25 KO eK2 KS 
3166 oc XL2*O0000* ENO 
3187 ¢ 
3186 * ane meena en: 
3189 # SYP STRING ~~ DESPLAY EXTERNAL REGISTER ¢ 
3190 teen ee execs SP OP A SENECA CEN SP Ee RIENCE MP 
3i91 @& 
3192 OEXT eau * 
3193 oc XL2°ass2* KO eK2oKe ee 
3194 oc xXL2*0086* RESET CeREG - : 
3195 oc XL 2° 008A LOAD CR-REG WITH EXT ZONE : 
3196 oc KXL2*018Ce R-BUS --> EXT ZONE 
3197 oc XL2*QOCA® CR-REG = EXTAR (OOLEEEEE? 
3198 oc AL 2(FRD TBC} 
3199 oc XL2*O08C*® R-BUS —-> EXTAR 
3200 OC: XxL2°OESE* | 
3201 oc Xi 2° OBGE EXTIN -—-> D-REG : : ; : 
3202 oc Xi 2*00865* ——> KREG » i 
3203 oc XL2*006D* READ EXTIN . 
24HART6 PROG ID C192" 
827879 PAGE ; 


24a 


t 


Span Gapttce oe 


troagere 


ot 








tm 


IBM MAINTENANCE DIAGNOSTIC PROGRAN 


C192 
ERR LOC OBJECT CODE 


59€2 S5E81 
59E4 A882 
59E6 0000 


S9E8 A682 
S9EA 1688 
S59EC OOCA 
S59EE SEOO 
59FO OOCB 
59F2 SEOO 
S9F% 8882 
S9F6 OO8F 


59F8 A882 
SOFA 0088 
SOFC OO8A 
S9FE OOCS 
5A00 SE91 
5A02 028F 
5A04 8BSE 
5A06 SEGE 
5A08 8882 
SAQA 0065 
SA0C 5E90 
SAQE A882 
5A10 0000 


SA12 A8E2 
5A14 0388 
5A16 OOCA 
5A18 SETF 
SALA COCB 
S5A1C SE80 
SALE 8862 
5a20 OO8F 
SA22 ABB2 
5A24 028C 
SA26 0086 
5A28 6060 
SA2A SE81 
5A2C A8&2 
5A2E 0000 


5A30 A882 
SA32 0288 


5434 OOCA 
5A36 SETF 
5A38 00C8 
5A3A SE8O 
SA3C 8882 
SA3ZE 008F 


DATE 
—C aa. 


23AUG75S 
827785 


OSNOV7 
827827 


ADOR 


59E3 
59E5 
59E7 


59E8 
59E€9 
59E8 
59ED 
S9EF 
S9F1 
59F3 
59F5 
59FT7 
59F8 
59F9 
S9FB 
59FD 
SOFF 
5Aa01 
5A03 
5A05 
SA07 
5A09 
SAO06 
5a00 
SAOF 
5AlL1 


SAL2 
SA13 
SAl5 
SAiT 
SA19 
SA1LB 
SA10 
SAF 
5A21 
5A23 
5a25 
SA2T7 
SA29 
SA2B 
SA20 
SA2F 


5A30 
5A3i 
5A33 


5SA35 
SA37 
5SA39 
SA38 
S430 
SA3F 


5 


3340 ADAPTER MANUAL OPERATIONS PGM - MOD i2 


STMT SOURCE STATEMENT 


3204 
3205 
3206 
3207 * 


SVP STRING -- ALTER AND DISPLAY MODE BUFFER. 


Ses 


3209 * 
3210 * 
3211 * 
3212 AMB 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 DMB 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 * 


SVP STRING -— ALTER AND DISPLAY 2L5 


3237 * 
3238 
3239 
3240 AZLS 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3252 
3252 
3253 
3254 
3255 
3256 * 
3257 & 


3258 #———~.——_.. 


SVP STRING =- ALTER AND DISPLAY ALD-8/0 


LLL SE LO OT TE CF BER eee te emote ee eevee ence ae 


3259 
3260 
3261 & 





oc 
oc 
oc 


EQU 
oc 
oc 
Bc 
oc 
oc 
oc 


oc 


EQU 
oc 
oc 
oc 


“OC 


oc 


3262 AALSB EQU 


3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 


24MAR TE 
827879 


oc 
oc 


oc 
oc 
oc 
oc 
oc 
oc 


AL 2(VAL 16) 


XL2*asa2t 
XL2*0000* 





x 

XL 2*ass2° 
XL2*1688* 
XL2*O00CA® 


AL 2(VAL 2-13 


XL2*00CB* 


AL2(VAL2-1) 


XL 2*8882¢ 


_ xL2°O0BF* 


+ 

XL 2°A882* 
xL2*0088* 
XL2*O08At 
XL 2°00CB* 


AL2(MBIDX) 


XL2*O028F 8 
XL 2* 68 8E* 
XL2*6EBE®* 
XL2°*6882¢ 
XL2*0065° 
AL2( MODE) 
XL2°A862¢* 
XL2*0000° 


* 

XL 2* A682 ¢ 

XL2'0388* 

XL2*OOCA* 

AL2(VAL1) 

XL2°00CB* 

AL2(VALLA) 
aL 2°*8882¢ 

XL2°OO8F* 

XL2°A882" 

XL 2°O028C* 

XL2*0086* 

XL2*O006D* 

AL 2(VAL1B; 
XL2°A882* 

XL2°0000° 


XL2*A882° 
XL2°02888 


xXL2*00Ca* 
AL2(VAL1) 
xL2°00CB* 
AL2(VAL 1A) 
XL2°8862 ¢ 
XL2°O08F * 











PART NO. 
PAGE 


AND SAVE 
KOeK2,K4 
END 








KO .K2,K4 


Y-REG ---> D-REG 


END 


KO »K2,K4S 

OP REG SET TO S$Z1I OP 
CR-REG = ZLS ADOR 
ADOR TO BE OISPLAYED 
Y-REG #®* ZLS DATA 


KO,K&4 <-— NOT SERVICE MODE 
EXEC SZI INSTRUCTION 
KO 9K2 9 KS 
2Z2LS --> ZLSOUT REG 
-~> X=-REG 
READ ZLS 
AND SAVE 
KOsK2,K4 
END 





KO »K2.K4 
*SABI® OR *SADI® INSTRUCTION 
R220 IS SABI, R2=2 IS SADI 
LOAD CR-REG WITH 

ALS ADDRESS (00-3F)_ 
LOAD Y-REG WiTH 

ALS DATA 
KO »K4 —_ 


PROG ID 
PAGE 


NOT SERVICE MODE 
EXECUTE SABI/SADI INSTRUCTION 


4247615 


* 


LT TL TA oe ee eee HE 


nen an eae ween ee eer avae % 


*| 
F ‘ 
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¥ PART NOw 4247815 
| eo MAINTENANCE DIAGNOSTIC PROGRA ace oee 
| (€192 3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 
| Ce LOC OBJECT CODE ADOR STMT SGURCE STATEMENT 
| f= 5a40 B082 5A41 3272 oc xL2*B082* KOsK2eK3 —= ALS DISPLAY MODE 
oe SA%2 O06E 5A43 3273 SVPALS OC XL2*O06E® READ ALS-8/0 
SA&4 5E81 5A45 3274 OC AL2(VAL1B) AND SAVE 
|) Sa&6 aBs2 5A47 3275 OC xXL2*aB82" KOoK2.K4 
; 5A48 C000 5A49 3276 oc XL2°0000¢ END 
| 3277 * 
eS 3278 * 
| 32719 Came rn eran aan ne rm aan een meemernen ae aera ensnmenneen 
1 3280 * SVP STRING —- ALTER AND DISPLAY OLS * 
{ 3 328] #------~-~. Se mem meeranemenen i 
| 3282 * 
| 5A4A 3283 ADLS EQU * 
(> SA4A age2 5A4B 3284 OC XL2*°age2° KO.K2,K4 
be 5a4C 0088 5A4D 3285 oc XxL2*0088" 700" TO C-REG 
| 5ASE OOCA SASF 3286 oc XL2*OOCA* LOAD CR-REG WITH 
1 €"  §a50 SETE 5A51 3287 OC AL2(VAL1} OLS ADDRESS (00-3F) 
| ~ -SA52 00CB 5053 3288 cc xL2*O00CB* LOAD Y-REG WITH 
i 5454 5EB0 5A55 3289 DC AL2(VALlA) DLS DATA 
: € 5A56 OO8C 5457 3290 oc XL 2*°008C* R2eee7 ——> DLSAR 
* 5A58 028F 5A59 3291 oc XL2'028F¢ Y-REG =—> A-REG -—> D-REG 
Po 5A5A 0180 5A5B 3292 DC XL2*°018D* FORCE OLS WRITE 
( €-  SASC 008C 5A5D 3293 pc XL2*008C* R2ceeT => DLSAR 
ine 5A5E O88F SASF 3294 DC XL2*088F* DLS ——> A-REG 
oe 5460 038F 5A61 3295 DC XL2*038F° > O-REG 
nee 5A62 0085 5A63 3296 DC xL2°0085* . > X-REG 
Ds 5464 006D 5A65 3297 0c XL2*0060° READ OLS 
5A66 5E81 5A67 3298 DC AL2(VAL18) AND SAVE 
| €>  $A6B ABB2 5A69 3299 DC XL 2*°a882? KO oK2 eK 
as 5A6A 0000 5A6B 3300 oc XL2*0000° ENO 
3301 * 
' 3302 m4 
3304 * SVP STRING -- ALTER AND DISPLAY EXTERNAL REGISTER * 
@ DSS Cece enn cree en encenne, en eer nen nanan cmemnenemeneenas - 
3306 * 
SA6C 3307 AEXT EQU # . 
€ SA6C ABB2 S5A6D 3308 OC XL2°a8s2° KO oK2_K4 
5A6E 0088 5A6F 3309 oC XL 2°90088° *00* TO C-REG 
: 5A70 OOB8A 5A71 3310 oc XL2*O008A* "00" TO CR-REG 
€: 5a72 018¢ 5A73 3311 oc XL2*O18C¢ Roel ==> EXT ZONE 
5A74& OOCA 5A75 3312 oc XL2*O00CA®* LOAD CR-REG WITH 
5A76 6062 SA77 3313 oc AL2(FRDTBL} EXT ADDRESS (OO1EEEEE) 
> SA78 008C SATS 3314 DC XL2*008C* R3c0ee7 ——> EXTAR 
SATA O00CB 5A7B 3315 DC xL2*00CB* LGAD Y=-REG WITH 
SATC SE7F SA7TD 3316 oC ALZ2(VALi) EXT DATA 
€> SATE o28F SATF 3317 DC XL2*O28F* Y-REG ==> A-REG ==> D-REG 
5A80 0280 5A81 3318 DC XL2*02808 FORCE EXT wRITE 
5A82 008C 5A83 3319 oc XL2*008C* R3eee% —=> EXTAR 
€: 5A8% oese 5A85 3326 DC XL2* OEGE® 
5A86 OB8F 5A87 3321 oc XL 2° OBBF ® EXTIN <=> D-REG 
; 5A88 0085 5AB9 3322 DC XL2*°0085¢ => X-REG 
€> SABA 006d 5A8B 3323 DC XL2*006D¢ READ EXT : 
SA8C 5E81 SA8D 3324 DC AL2(VAL18) AND SAVE 
_ SABE ABB2 SASF 3325 oc XL2*ass2¢ KO 2K29K4 
3 5A90 0000 S5A91 3326 oC XL2*00005 END 
3327 * 
332 3 Bow ee re EES LE CECT LTTE ET BO Ret AE cn mannan LE 
gs 3329 * SVP STRENG =~ DISPLAY CONTROL STORE * 
. 3320 Ba ee nee ee acento Stes eat ee nae Sn 
3331 # 
@ SA92 3332 OCS = EQUE ee 
SA92 A882 5093 3333 oC XL2*A882° KO .K2,K4 
5494 0088 5A95 3334 oc XL 2900888 00° TO C-REG 
€2  5a96 00CA 5A97 3335 oc XL2*OOCA® LOAD CR-REG WITH 
5A98 SABT 5A99 3336 OC AL2(C IBUF-1) CS ADDRESS BLOCK 
SASA 00CB 5A9B 3337 oc XL2*00CB: LOAD Y-REG WITH 
; €3 5a9c Sass 549D 3338 oc AL2(CIBUF) CS ADORESS DISPL a 
: 5A9E 028F SASF 3339 oc XL2*026F ¢ Y-REG --> A-REG <=> D-REG 
i 23AUG75 OSNOV7TS 24MART6 PROG ID Ci9-2~ 
£C NO. 827785 827827 827879 PAGE 254 
i @ 
i 
| e ; 
i 
i 
i@ 





IBA MAINTENANCE DIAGNOSTIC PROGRAM 


Cio2 
ERR LOC 


5S&BAO 
SAKZ 
SAAS 
SAAG 
SAAB 
SAAR 
SAAC 
S5AAE 
S5AaBb0 
SAB2Z 


5AB4 


SABO 
5A68 
5 ABD 
SABF 
Sac 
5AC3 
5acs 
Sac? 
5ac9 
SACB 
Saco 
SACE 
SADL 
5ad3 
SADS 
SAOT 
SA09 
5 ADB 
SA0D 
SADE 
SAEL 
SAE3 
SAES 
SAET 
SAEG 


5 AEG 
SAED 
S&EF 
SAFI 
5SaF3 
SAaFS 
SAaFT 
SAF9 
SAFB 
SAFO 
SAFF 
5801 
5803 
35805 
5B07 


DATE 
EC €O. 


3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 


OBJECT CODE ACDR 
ose8o SAAL 
GEBE SAA3 
0066 5RAS 
5A84 SAAT 
OO06A Saad 
5ABS SAAB 
0068 SAAD 
5AB6 SAAF 
A882 SABE 
00090 SAB3 
6000000000 SAB8 

SABF 
A882 SABA 
6086 5A8C 
OOCA SABE 
5AB? Sacc 
oocs SACE 
5ABB SACS 
O28F SACG 
0880 5aCB 
ooce SACK 
SAB4 SACE 
00CA SA&CE 
5A65 Sé50 
ooce SAD! 
SABG 5 al 
AEBE SAD 
CESE SA08 
OE BE SADA 
0068 Sa OC 
SABG6 SADE 
006A SAaES 
SABT SRE 
00668 SaE4 
5SABB SREG 
Abs2 SAES 
0000 SAER 

SAEB 
ABE2 SAEC 
0088 SEE 
OOCA SAFO 
SABT SAFE 
ooce SRES 
SABE SAF 6 
C28F SRES& 
988D SAE a 
OESE ‘SAEG 
OCé& SEEE 
5&B5 3300 
OOGR SEG2 
SABE 5804 
ALBe S806 
oG0d S808 
23AUGTS GENOVTS 
BAT ESS BZTaLZ’t 
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_TBM MAINTENANCE DIAGNOSTIC PROGRAM 


a 


3 


_ C192 
~ ERR LOC GBJECT CODE 


& 


rm, ate 


a 
4 


wn, 


Se, 


© 


@ 8 


STMT SOURCE STATEMENT 

3340 Dc XL2°O88D" R22e7/D-REG =-> CSAR-B/D 

3341 pC XL2*OE8Et SERVICE ACCESS CYCLE 

3342 oC KL2"0668' REAG C-REG 

3343 oC AL2(CIBUF-4} AND SAVE 

3344 oC XL2°O06A* READ CR-REG 

3345 ‘pe AL2{CIBUF~3) AND SAVE 

3346 DC XL2? 006B° READ Y-REG 

3347 oC AL2(C1BUF-2) AND SAVE 

3348 DC XL2*ase2é KO 9 K2 9 Ke 

3349 oc XL 2*0000° END 

3350 ¢ 

3351 CIBUF OC XL5* 0000000000" CONTROL STORE BUFF...DATAC3I/ADDRIZ} 
3352 ¢ 

3353 @ 

3356 Pee n nan eee eee cree are ramen onan ~-* 
3355 « S¥P STRING -~ ALTER AND DISPLAY CONTROL STORE % 
3356 %------—— ear een rc net ger ate nme eneewee ten ane 
3357 « 

3358 ACS = EQUS oe 

3359 oC KL2*A882° KO KZ, K& 

3360 DC XL2* 0088 ¢ *OO" TG C=REG 

3361 pc KL2*O0CA® LOAD CR-REG WITH 

3362 oC AL 2(CIBUF=3 } CS ADDRESS 3LOCK 

3363 oC XL2°OOCBE LOAD Y=-REG WITH 

3364 oc ALZ(CI BUF} CS ADDRESS DISPEL 

3365 DC XL 2° O28F¢ Y"REG --> A-REG -=> D-REG 

3366 oc XL2° 08808 R2..7/O-REG <-> CSAR-BSD 

3367 BC XL 2° 0008 LOAD C=REG 

3368 DC AL 2(CIBUF-4) 

3369 DE KLZ*OCCAE GAD CReRES 

3370 bs ALZ(CIBUF-3} 

3371 oC XL2°00CB° LOAD Y~REG 

3372 oC ALZ(CIBUF-2? 

3373 oc XL2°REBE® WRITE CS LEFT 

3374 oC XL 2°CEBE€ WRETE CS @EGHT 

3375 Bc XL2°OE8Es SERVICE ACCESS CYCLE 

3376 oc KL 2°0068° READ C~REG 

3377 CC = AL 2EC IBUE~2! AND SAVE 

3378 OC KL2° 006° READ CR-REG 

3379 oC AL2¢(CIBUF=1} AND SAVE 

3380 oc xL2*6068° READ Y=RES 

3331 DC AL2(C Thue! AWD SAVE 

3382 DC KL2¢agg2e KO eKZ KA 

3383 pc XL2* 00068 END 

338¢ 

3385 ¢ 

3386 Bema a te en a 
3387 * SVP STRING ~- DISPLAY CONTROL STGRE DATA LEFT * 
B3BG Remmi re merce arene ace nn none nmen aes mean en 
3389 

3390 DCCL «6EGU Os 

339} DC Ki 2*aseze KO KE, Ke 

2392 oc XL2'00885 *00* 7G C-REG 

3393 oc KL2°00CA8 LOAD CR-REG HITH 

3394 DC = AL 2ECIBUF~1) CS AGDRESS @Lock 

3395 oC XL 2°00CB® LOAD Y-REG WITH 

3396 oC LZ ECE BUF} CS ADDRESS DISPEL 

3397 oC XLZ°O28F © Y-REG --> A-REG —-> 0-REG 

3396 pC ML 2° OB8DE R2e< T/D-REG <-> CSAR-B/D 

3399 oc XL2°OEBEe SERVICE ACCESS CYCLE 

3400 oC KLZ°O068* READ C-REG (PARITY) 

BOL ac AL Z(CLBUF~3} AND SAYE 

3402 oc XL2*O068¢ READ CR-REG (COL? 

3403 DC AL2ZICIBUF=2) AND SAVE “ 

3406 oc RL2°A682° KO eK2,KS 

3405 oc xL2¢ 00008 END 

3406 
BROT Bermcrenr er enerenr rennet manne enna an ites aneencen cie meeety ann eine cement erate ene enue 
_ 2eMARTC PROG ID £ig=2 
B27879 PAGE 26 | 


{ 
{ 
{ 


cea 


en 


© 


5809 
5B0B 
5600 
5B0F 
5Bil 
5813 
$815 
5817 
$8529 
SBiB8 
SB1LD 
SBiF 
S821 
5823 
5B25 
5B27 
5829 
3828 
$820 
58 2F 


SB2% 
5B332 
5835 
5837 
58395 
5838 
5830 
S53F 
5B42 
5843 
5845 
5847 
5849 
5848 
$840 


SBeF 
5B51 
5653 
5855 
Sb57 
SBS 
5858 
585D 
S85F 
SB6L 
5863 
5865 
5 B67 
5869 


“DATE 


EC NO. 


ADDR 
5809 
A882 5BOA 
0088 5BOC 
OOcAa SBOE 
SABT 5816 
o0cs 5812 
SABES SRLS 
028F 5B16 
688d 5818 
ooce SB 1A 
5SABS SBIC 
SOCA SB1E 
SABG 5820 
AEBE 3622 
OE BE $624 
0068 5B 26 
SA85 5828 
0664 SBZ2A 
SABG 5B 2C 
ABE2 5B2E 
6000 5836 
5831 
ABE2 5B 32 
0088 5834 
OOCk 5836 
SABT 5838 
ooce SB82A 
SAB2 583C 
Q28F 58 3€ 
ose 5840 
OEBE 5842 
068 5B44 
SAB5 SB46 
OCéB 5648 
5AB6 5844 
AS82 5B4C 
ocoe 5S84E 
58 4F 
ABS2 5E39 
6588 SBSé2 
o0Ccé. 5H 54 
SABT 3B 56 
Goce 5858 
SABE SBS& 
O28F 5B5C 
08s) 585E 
ooce SBé0 
SABS 5B62 
ooce 5864 
SABE 5B66 
CEBE 5SB68 
OESE S864 
Z23AUGTS OSNOVTS 
@27785 827827 





3340 ADAPTER MANUAL OPERATIONS PGM =~ HOD i2 


























PART nQ. 4247625 
PAGE 26a 

STMT SOURCE STATEMENT 

3408 *% SVP STRING <~ ALTER AND DISPLAY CONTROL STORE DATA LEFT 2 

SEOG Be nr re er er en ener ean an manures an ar anameras menemeraren as a taeeiaaeatee ateateeeen atte ee eee ee) 

3416 & 

341i ACOL EQU & 

34k2 BC XL2*aae2* KO ,K2,K4 

3413 oc XL2* C088 & *00* Ta CeREG 

3414 oc XL2*OOCA® LOAD CR-REG WITH 

3415 DC AL Z(CIBUF—-1} CS ADDRESS BLOCK 

3416 oC XL2*°OGCB* LOAD Y-REG WITH 

3417 BC ALZ2¢CEBUF} CS ADDRESS OFSPL. 

3413 oc KL 2°*Q28F ° Y~REG <--> A~REG <--> D~-REG 

3439 pe XL2°OB8D8 RZaeT/D-REG —=-> CSAR~B/D 

3420 DC RL 2t*Oo0C at LOAD C-REG (PARITY) 

3421 oc AL 2(C IBUF-3} 

3422 oc XL2*OOCAt LOAD CReREG (CDLI 

3423 pC AL2(CIBUF-2} 

3426 oc AL 2° AE BE & WRITE CS LEFT 

3425 oc XL2*OEBE® SERVECE ACCESS CYCLe 

3426 DC XL2*0068? READ C-REG (PARITY! 

3427 cc AL 2(C IBUF-3} AND SAaVE 

3428 Oc XL2°OO06A* REAG CR-REG {COL} 

3429 DC AL2(CIBUF-2} AND SAVE 

3430 oc XL2*A882? KG pK29K4 

3432 Dc XL2*0000¢ END 

3432 % 

3433 

3434 & 

BEB Beer eer men crmre te cm een cnet en ee ae cee ae oe ee se eae ce vemos 

3436 2 SVP STRING == DISPLAY CONTROL STORE DATA RIGHT € 

ne ome enamae oats co ean ae a ear amram cent am etree Seeman 

3432 & eee 

34329 OCOR EQU & OT ee 

3469 oC XL 2°ASB2° KG pK2e KS 

3441 oC XL 2* 00886 *OO* Tao C=-RES 

3442 DC XL2°OOCA?® LOAD CR-REG WKITK 

3e&e3 oc At 2(C iBUF—1i} CS ADDRESS BLOCK 

3444 oC XL 2°O0CB* LOaR0 Y-REG WITH 

5445 0c ALZ(CIBUF} CS ADDRESS OFSPL 

3446 dC XL 2° O28F ¢ Y¥-nEG --> A-REG ==> D-RESG 

3447 pc XL 2*O088D* R2ee7T/D-REG --> CSAR-B/ OD 

3448 pc XiL2* OEBEt SERVICE ACCESS CYCLE 

B4aE9 oc XL 2° OO068! READ C~REG (PARITY? 

3450 oC AL Z2(C IBUF~33 AND Save 

345i pC XtL2* 0068" READ Y-REG (CORS 

2452 oc AL2(CIBUE-2} AND SAVE 

3453 oc XL2°*A852* KG oK2_K4 

3454 OC XL2°9000° End 

3455 ¢ 

3456 & 

BEST Ca er er meee ese connie ne eee een emecr emamceremanns omen pete aemcn erences eto 

3458 & SYP STRING -—~ ALTER AND OISPLAY CONTROL STORE DATA RIGHT & 

BE 5G armen rere renee, Ae oth a a ee ecto nereon eam ae meneame nara tee ponte oa omer Nr Taner aE 

3460 = 

3461 ACOR EQU % 

3462 oc AL 2°AsBs2* KO, K2 9 KE 

3463 OC Xi 2*OO66 5 ®O0* TR Cm-REG 

3464 DC XLZ2°*OOC AE ELDOAD CR-REG WITH 

3455 DC ALZ{CIBUF-i) CS ADDRESS BLOce 

3466 oC AL2*O0CS* tCAD Y-REG KETH 

3467 DC ALZ(CEBUF? cS ADDRESS DISPL 

3468 BC XLZ°O2BF* . Y-REG --> A-REG --> D-REG 

3469 o¢ 2. 2°O88D* R200 ?f/D-REG --> CSAR-BFD 

3476 Bc AL2*° O0C8* ECAD C-REG (PARITY? 

3471 oc ALZ(CIBUF-3) 

3472 oc Xt 2° O08 * LGaAd YRREG {CDRP 

3473 oC ALZ(CIBUF-2) = 

347% oc XL2°*CESE* WRITE CS REGHT 

34675 oc AL 2°*OESE* SERVICE ACCESS CYCLE 

2&HAR ISG PROG ID Cig-2 

827879 FASE 


268 
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PART NO. 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247615 
PAGE 27, ¢€ PAGE eta 
C192 3340 ADAPTER MANUAL GPERATIGNS PGM - MOD 12 gue 3340 ADAPTER MANUAL OPERATIONS PGM - KOD 12 
ERR LOC OBJECT CObE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE £ODOR STAT SGURCE STATEMENT 
5868 0068 5B86C 3476 oC XL2'0068¢ READ C-REG (PARITY) t: 5COB 02 01 O8 3544 LA S(yXRLIFXR1 ADVANCE PRINT AREA POIMTER 
5B60 SABS 5B6E 3477 oc AL 2(CIBUF-3} AND SAVE e 3545 % 
5B6F 0068 SB7O 3478 pc XL2°006B" READ Y-REG (COR} po 5COE E2 02 02 3546 CEXT3 LA 2(9XR2)4XR2 ADVANCE YO NEXT VALUE 
5871 SAB6 SB72 3479 oC AL2(CI8UF-2) AND SAVE f 5C€11 O& O1 5SCOA SDEC 3547 ALC MOYNH244!2),K0003 ADVANCE TO NEXT REG NAME 
5873 2882 5B74% 3480 oc XLZ7A882¢ KO yK29K4 - SCL? OF 00 5E99 SE8C 3548 SLC = VLCONT(1)5K1 DECREMENT COUNTER 
5875 0006 5876 3481 Oc XL2*0000* END 2 5C1D CO O1 5BF8 2549 BNZ CEXT2 GO IF NOT LAST VALUE 
3482 % €. 3550 * 
3483 + * ~ 5C21 36 O1 50DC 3551 A NEG3eXR1 ADJUST TG ADOR GF LAST CHAR PRINTED 
3484 %--—--~-~-—-~—~- ~~ Se ee Sanne meen enema 3552 % 
3485 * THIS SUBROUTINE CCMPARES CLD AND NEW REGISTER VALUES * € 5C25 30 OO SEAO 3553 Cut L2nNa-0 IS LINE 2 FENISHED? 
3486 + AND INSERTS CHANGED VALUES ONLY INTO THE PRINT BUFFER * S6C29 F2 O1 08 3554 JNZ = CEXT4 JUMP TF YES 
3487 *-~ wo re en ee en a en ene 3555 @ 
3488 * g 5C2C 34 O1 5SEAO 3556 ST i 2NO,XR1 STORE LAST ADDR OF LINE 2 
5B77 3C 40 6340 3489 CMPPRT MVI PTBUFN.CE ¢ CLEAR PRINT BUFFER TO BLANKS 5C30 CO 87 5BE6 3557 g CLING GQ 00 LINE 3 
587B OC 84 623F 6340 3490 MVC = PTBUFN~1(PTBUFN-L4!,PTBUFN CLEAR L& TO L6 3558 * 
5881 OC 9C 62BA 6268 3491 MVC L4-1L(L4—L1) oh 4 CLEAR LI TO £3 - 5C34 34 G1 SEA2 3559 CEXT4 ST L3N@~eXR1 STORE LAST ADOR OF LINE 3 
3492 * 3560 * 
5887 3C OO SEAS 3493 MVI LéNa,6 CLEAR PRINT LINE END ADDRESS AREA B56) Brenner ne ne en ee enone naneeemmeen % 
5888 GC OA SEAT SEAB 3494 MVC LONO~1(LEN2—PRTNG) »LONG TO ZERGS & 3562 # SET UP LINE FOUR - DLS REGS * 
3495 BD EB Barren me ce ee on a a a ee Sn ee ee aan neem accmawcmwwm 
3496 ~~ atahetnaenettenetanatateeten eS 3554 + 
3497 SEY UP LINE ONE ~ TAR ¥ALUES ef 5C€38 CZ Ol 62C3 3565 CLING® LA L446 ,_XRi SEY PRINT POINTER TO LINE 6 
2498 Bema - * 5C3C 3C 00 5E26 32566 MVE OLSA0,0 SET OLS ADDR CTR ¥O ZERO 
3495 % a 5C4O0 CZ 02 6137 3567 LA DLSO1,XR2 SEY TO FIRST PAIR GF REGS 
SBSi C2 O1 62iE 3500 CLIN! LA LieXRi SET PRINT POINTER TO LINE 3 1 & 3568 * 
5895 OC 91 5886 SEBSG 3501 MVC MOVNM14442} oNIARNG SET TO FIRST REG NAME 5044 3C 08 5SESa 3569 CDLS1 MVI VLONT,& SET YO 8 ENTRIES 
5895 C2 02 6100 3502 LA MIAR XR2 SET TABLE POINTER TO FIRST VALUE 3570 & 
S89F 3C 03 SESS 3503 My! VLCNT,2 SET FOR 3 ENTRIES '€>  8C48 AD 03 5D ac 357i CDOLS2 CLO HSTBL-REGTBL{4,XR2) eO4yXR2} COMPARE CLO AND NEX 
3504 3 i 5(4C F2 SL 17 3572 JE CDLS3 
5BA3 AD 04 5D CO 3505 CIARL CLE HSTBL-REGTBL(5,XR2} eG y%R2} COMPARE OLD ANC NEw VALUE . 3573 * 
5BAT F2 61 10 3506 JE CLAR2 JUMP TF EQUAL Pye: SC4F 6C 03 08 00 3574 KYC S5(4-XR19 90% eXR2} MOVE NEW VALUE TO PRINT AREA 
3507 % 5€53 7C 7E OL 3575 VG 1(,XRL} ples MOVE IN @at ne er a 
SBAA &C 64 09 OO 3508 MVC 905-XR1} 206 -XR2) MOVE NEW VALUE TC PRINT AREA : 5656 34 02 5CE2 3576 ST DE SADN, XRI STORE ADDR OF UNPACKED DLS ADDR 
SBAE 52 00 GO O65 3509 MVC OL Ls XR1)-950_XRD) MOVE @ POS TQ LEFT OF NAME e 3577 * 
5BB2 4€ 04 05 O6CO 3510 MOVNML MVC 8 =65(5-XR1},3—-* MOVE REG NAME TO PRINT AREA fen S5C5A CO 87 O21E 2678 8 UNPACK CONVERT PACKED HEX TO EBCODIC 
3511 ¢ 5C5E 02 5C5E 3257S DC MLitié LENGTH 
5687 D2 91 08 3512 LA L1G-.XR1L)_XRL ADVANCE PRINT AREA POINTER i SC5SF SE2E 5660 3560 oc AL2(0LS&AD) AREA TO CONVERTED 
3513 * tn he 5C61l 00G0 5C62 3581 DLSADN DC XL2*00¢ ADOR OF CONVERTED VALUE 
58B& E2 02 05 3514 CIAR2 LA 5£eXR2) -XR2 ADVANCE TO NEXT VALUE | 3582 % 
5BBD OE Ol 5886 SDFG 3515 ALC MOVNM144(2) »KO005 ADVANCE TO NEXT REG NAME €: 5C63 D2 01 O8 3583 LA Bt yXR1LigXR1 ADVANCE PRINT AREA POINTER 
5BC3 OF OC SE99 SEaC 3516 SLE  VECNTEIP-KL DECREMENT COUNTER it 3584 * 
5BC9 CO 01 SBA2 3517 BHZ CIARL GO IF NOT LAST VALUE 5C66 E2 62 04 3585 CDLS3 LA 4(,XR2) 2XR2 ADVANCE TG NEXT VALUE 
3518 *& if 5C69 OF GO 5E26 SESD 3586 ALC DLSAD(1)-K2 UPDATE DLS ADORESS 
SECO 36 01 SDDA 3519 a NEG2,XR1 STORE ADDRESS OF pF SC6F OF OO 5E99 5E8C 3587 SLC VLCNTOC1) KL DECREMENT COUNTER 
5801 34 01 SESE 3520 ST LING» XR) END GF LINE S5C75 CO 01 5C48 3588 8NZ CDLS2 GO IF NOT LAST VALUE 
352i ®  €: 3589 * 
3522 #~ —— Sr ar ee ner erm mene ea cere a te cr ee a ne ee na x * 5C79 36 O1 50DC 3590 A NEG3 -XR1 STGRE ADDRESS OF 
3523 # SEY UP LINES THO AND THREE - EXTERNAL REGS - 5C7D 34 01 S5EA4 3551 ST L4N@,XR1 LAST CHAR PRINTED 
2 2e8 Ceres Se a ee ee ee ae eee eer enema ae Oe 5C81 OD 01 SEA 5EC2 3592 CLC L4NasL 4P6a CHECK IF ANY ENTRIES 
3525 © = SC87 F2 04 09 3593 JNH = CDLS4 GO If KRONE 
58D5 C2 01 6244 3526 CLIN2 La L2—XR1 SET PRINT POINTER TO LINE 2 3594 & 
5809 OC O01 5COA SERS 3527 MVC MOVNM2¢4 (2) eFSONMA SEF TO FIRST REG NAME € 5CB8A OC 02 6280 SOEA 3595 KYC  }3=«.L 44203)» DL SN MOVE ‘OLS*® TO START GF LINE 
SBOF C2 02 6119 3528 LA FBO,XR2 SET TO FIRST EXTERNAL REG 5C90 F2 87 08 3596 3 CLINS 
SBE3 FZ 87 GE 3529 J CEXT1 3597 = 
3530 *# | € 5C93 C2 Gl 62BA 3598 COLS& LA b£4—-1,XR} STORE ZERQ LENGTH LINE 
SBE6 C2 Gt 6285 3531 CLIN3 LA L3,XR1 SET PRINT POINTER TQ LINE 3 5C97 34 01 5EA4 3599 ST L4NQ.XR1 
SBEA OC Gi SCOA SEBA 3532 MVC =MOVNM244(2) ,OXCNMa SET TQ FIRST NAME IN LINE 3 3600 * 
5BFO C2 02 6127 3533 LA DXC »XR2 SET TG FIRST EXT REG IN LINE 3 © 3601 %-—~—~~——--- ~~ +--+. a mme eceenenanencneceeree Et 
3534 * i 3602 * SET UP LINE SIX — ADDRESS COMPARE AND CHECK STOP r 
SBF4 3C 07 5SE99 3535 CEXTL MMVI VLCNT,7 SET FOR 7 ENTRIES 3603 #----~-~ eae + ~~ penn ee ee wmeete ot 
3536 ¢ '@ 3604 + 
58F& AD 01 5D 00 3537 CEXT2 CLE HSTBL-REGTBLEZ+XR2)200yXR2) COMPARE OLD AND NEW VALUE 5098 C2 O1 6301 3605 CLINS La L5_XR1 SET PRINT POINTER TO LIWE 5 
SBFC F2 81 OF 3538 JE CEXT3 JUMP TF EQUAL c 5COF C2 02 6158 3606 LA COMP XR2 SET TABLE POINTER TO ADOR COM 
3539 *& 2 i 3607 *& 
58FF 6C 01 05 00 3540 MVC 5(29XRL) Ol eXR2) MOVE NEW VALUE TO PRINT AREA 5CA3 OC 04 6158 5SE28 3608 MVC COMP(S),ADRCHP MOVE IN ADDRESS COMPARE VALUE 
§CO3 7C TE 03 3541 MVI 3 eXRE)D Ce=e MOVE IN #at 5CA9 AD 04 5D 00 3609 CLC = HSTBL~FGTBLE5 oXR2)400eXR2) COMPARE OLD AND NEW VALUE 
5C06 4C 02 02 C00cG 3542 MOVNM2 MVC 8 213,XR1),4-% MOVE REG NAME TO PRINT AREA G 5CAD F2 81 10 3610 JE CCHK JUMP ITF EQUAL “ 
3543 @¢ 361i * 
| 
DATE 23AUG75 OSNOVTS 24NAR 76 PROG ID £19-2° Co 23AUG75 OSNOV75 24KMAR76 PROG 10 Ci9-2~ 
EC NO. 827785 827827 827879 PAGE 27 EC NO. 827785 827827 827879 PAGE 27a 
| © , ; 
| S 
| @ t 
i: @ 
‘e@ | 
| i 
mm 








EI EE EE eee 


¥ 


i: € 

















































































































18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247615 — IBM MAINTENANCE DIAGNOSTIC PROGRAM Oars NO. Man oee 
PAGE 28 AGE 
C192 3340 ADAPTER MANUAL OPERATIONS PGM = OD 12 C192 3340 ADAPTER MANUAL OPERATIONS PGM — MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT " ERR LGC OBJECT CODE ADOR STMT SOURCE STATEMENT 
5CBO 6C 04 09 Ov 3612 MVC =: 9 Se XR1} 9 OL e XR) MOVE IN NEK ADOR COMP VALUE 3680 * 
5CB4& 5C 09 00 05 3613 MVC 001eXR1)_5¢,XR1) MOVE @ TO LEFT OF NAME 5053 CO 87 4040 3681 PRTRGX B RTN1B RETURN FOR NEXT COMMAND ERTRY 
5CBB 4C 04 OS 60EF 3614 MVC 5(5eXR1i),»COMPNM INSERT NAME 3682 * 
3615 * @ 3683 * a 
5CBD D2 01 OC 3616 LA 12(,XR12_,XR1 ADVANCE PRINT AREA POINTER acer Ber ea gee aon Tce Caiat GREER a a ae a 2 
3617 * ; * 
5CCO C2 02 6159 3618 CCHK LA CSTOP,xXR2 SET TABLE POINTER TO CHK STOP & 3686 %—~--—-----—— is an Tv ci ite tis eiaciincson a a ein nde mameaete 
4619 © 3687 * 
5004 OC 00 6159 SE2C 3620 MVC = CSTOP(.19 IPCSTP MOVE IN CHECK STOP INDICATOR 2 5057 34 08 5DBF 3688 PRTBUF ST PRTBX4¢3,ARR SAVE RETURN ADDRESS 
3CCA AD 00 5D 00 3621 CLC HSTBL-REGTBL(1,XR2),06,XR2)} COMPARE OLD AND NEW ete 505B 34 01 5087 3689 ST PRBXR1+3eXR1 SAVE xR1 
SCCE F2 81 10 3622 JE CCHKL JUMP IF EQUAL SO5SF 34 02 5086 3690 ST PRBXR243,XR2 SAVE XR2 
3623 * 7 3691 * 
S5CD1 6C 02 06 02 3624 MVC = 603 XR1}. 9209 XR2) MOVE NEW VALUE TO PRY AREA € 5063 39 20 OAOE 3692 TBF UDT1—1,.X*20* 1S 5472 ON SYSTEM? 
5CDS 5C 00 00 04 3625 MVC = OU 2 XK 19 9 40 XRD? MOVE @ TO LEFT OF NAME 5067 F2 10 08 3693 JT PRTB3 JUMP EE NOT 
CDS 4C 3 6 v 404eXR1) ¢CHKNE INSERT NAME 3694 * 
chad meiee eye aaa * ie tear .  §06A 35 CO SEBE 3695 L KYBDIa, TAR SET LEV 1 IAR TO REQ KEY INT ROUT 
S5CDE 02 01 09 3628 LA 90 eXR12eXR1 ADVANCE PRINT AREA POINTER SO6E F3 10 05 3696 SIO X*05* KEY ENABLE & RESET ae. ey INTERRUPTS 
3629 * 5D71 3C 00 SE9C 3697 MVE PRTEND sO CLEAR *ABORT* INDICATOR 
. 3698 * 
Ses ae oI SEAL a3i oo st Coke Nel See eer Chan, CHV ERED c 5075 3C 06 5E9A 3699 PRTB3 MMVI LINCTR»6 SET COUNTER TO 6 LINES 
3632 * ; 5079 C2 O1 SESE 3700 LA LING,XR1 SET TO ADDRESSES FOR FIRST LINE 
3633 *-— — meee 2 < 3701 * 
3634 * SET UP LINE SEVEN * € 5D7D 1C 01 SEC4 00 3702 PRTBL MVC PTTEMP(2),0(»XRL) CALCULATE LENGTH 
3635 Caan ne eee a a. eae en enen renee emerane —* 5p82 1F OL SEC4 CC 3703 SLC PTTEMP(2),PRT@-PRINS(,XR1) OF LINE 
3636 * {: 5087 F2 04 13 3704 JNP PRTB2 SKIP PRINTING IF NOT POSITIVE 
SCES C2 O1 6314 3637 CLING LA L6—XR1 SET PRINT POINTER TO LINE 6 3705 * 
S5CED OC O01 5D0D SEBC 3638 MVC MOVNM74402)-,APTRN@ SET TO FIRST REGISTER NAME - 508A CC 00 509A SEC4 3706 MVC PTLENG(1),PTTEMP STORE LENGTH IN PRINT PARAMETERS 
SCF3 C2 02 615D 3639 LA APTR»XR2 SET TABLE POINTER TO ACCESS POINTER = 5090 1C 01 5D9C 00 3707 MVC = PTADDR(2)-0(eXR1? STORE ADDRESS OF LAST CHAR 
SCFT 3C 04 SESS 3640 MVE = VLCNT,4 SET FOR 4 ENTRIES 3108 * feu sade! meter ROUTIRe 
3641 ¥ 5095 CO 87 O21A 8 
. S5CFB AD Ol SD 66 3642 CPTRL CLC HSTBL-REGTBL12.X%R2),0(,XR2} COMPARE OLD AND NEW & 5D99 Ol cal a i e seer ae ec ue tae ta pe PRIMES 
ae SCFF F2 61 OF 3643 JE CPTR UMP IF EQUAL SDSA SD9A 3711 PTLEN ae pn 
3644 © . i 7 5098 509C 3712 PTADOR OS AL2 ADDRESS OF LINE TO bE PRINTED 
5D02 6C 01 06 OO 3645 MVC «(29 XR1}400 - XR2) MOVE NEW VALUE TO PRT AREA ce: ty as ce ee ere cece 4h heer iat 
5006 7C TE 04 3646 MYT - @@eKRLI,C8=? MOVE IN t=¢ 5096 D2 O01 02 7 oXRid> 
5069 4C 63 03 COD0 3647 MOVNMT MVC 344sXR1) »e~—* MOVE REG NAME TO PRE AREA _  SDAO OF 00 SE9A SEBC 3725 SLC LINCTRO1)-K2 DECREMENT LINE COUNTER 
3648 * €> 5DAG CO 84 5D7D 3716 BP PRTB1 GO IF WOT LAST LINE 
5D0E D2 01 09 3649 La 9 eXRLI¢XRI ADVANCE PRINT AREA POINTER 3717 * ee. pein cians Sa wigs Gan eecc bie 
3650 * SDAA 39 20 OAODE 3718 7 “le 
§D11 €2 02 62 3651 CPTR2 LA 20 eXRZ} eo XRZ ADVANCE TABLE POINTER TO NEXT VALUE €- SDAE F2 10 03 3719 Jt PRBARL JUMP EF NOT 
5D14 OF 01 SOCD SDEE 3652 ALC MOVNM7*4(23,K0004 STEP TO NEXT NAME . 3720 * : 
SDIA OF 00 SESS SEaC 3653 SLC = VLCNT¢19eK1 DECREMENT COUNTER 5D81 F3 10 00 372i RSIARL SIO X*00*sKEY . DISABLE REQ KEY IHTERRUPTS 
5D20 CO O1 SCFB 36546 BNZ CPTRI GO IF NOT LAST VALUE '¢ 3722 # secvenerant 
3655 * 5084 C2 01 Coo0o 3723 PRBXR1 LA #—%_XR1 
5024 C2 G2 6165 3656 La SNS, XR2 SET TABLE POIRTER TO SNS 5088 C2 02 0000 3724 PRBXR2 LA #-# »XR2 
3657 2 ; | > ay SOBC CO 87F O00C 3725 PRTBX B toe RETURN TO MAINLINE 
5028 AD 63 SD OG 36538 CLC HSTBL-REGTSL(4,XR2}.04.XR2) COMPARE CLD AND NEW 3726 * a 
3660 * & 3728 % 5471 REQUEST KEY INTERRUPT ROUTINE 7 * 
SO2F 6C 03 08 09 3661 MVC =: BL 4& XR1L}-OL eo XR2) MOVE NEW VALUE TO PRT AREA 3729 * THIS ROUTINE FORCES TERMINATION OF PRINTING BY PRTBUF * 
5033 4C 04 04 6108 3662 MVC = (5 KR1 be SNSNM INSERT FIELD NARE e 3730 * SUBROUTINE WHEN REQUEST KEY IS PRESSED . 
3663 & 3731 %~—---.—-----~—— ~ooee 
5036 02 01 08 3664 LA L1G XRL} XBL ADVANCE PRINT AREA POINTER 3732 * A ass cae duie PAG SeMiUe RES 
3665 * 5DC0 35 04 5SDES 3733 KYBOI t ’ ) 
5038 36 O01 SDDC 3666 CSNS2 A NEG3eXR1 STORE ADDRESS OF €= 50C4 3C 01 SESC 3734 MVI PRTEND,1 SET *ABORT® INDICATGR 
503F 34 02 SEAS 3667 ST LOND eXR1 LAST CHAR INSERTED 7 50C8 35 20 SECO 3735 L RIARL@,PLIAR FORCE EXIT TO PRTBUF SUBROUTINE 
3668 * 50CC F3 10 02 3736 SIO X*01°sKEY RESET REQUEST KEV INTERRUPT 
3669 %- oe wane ee - ® & SDCF CO 87 5DCO 3737 8 xYBDI BRANCH BACK 
3670 * PRINT LINES ONE TO SEVEN AS PREVIOUSLY SET UP  , 3738 * , 
3671 saint ew sina ens asi ities  aaeeeeeeeeelll 3739 ‘ 
3672 & ! 3740 #—~ a 
5043 C2 87 5057 3673 PRIREG B PRIBUF GO TO PRINT GUFFER SUBROUTINE ® 3741 * *tt CONSTANTS AND ERROR MESSAGES 44 = 
3674 @ ! BIG 2 Few rr ere 
5047 38 04 0208 3675 TBN SBYTEO,SSHO5 00° NOT SPACE PRINTER n od] 3743 * 
5048 F2 10 05 3676 JT PRIRGK IF USING ALTERNATE PRINTER 3744 © ; 
5D4E CO B87 O21A ‘3678 8 PRINT SPACE PRINTER 6 LINES e 3746 & ete MULTI-BYTE CGNSTANTS #62 * * 
DATE 23AUGTS OSMoV?S 24HART6 PROG ID C19-2 Coare 23AUG75 OSNOVTS 24MARTE Proc ID C19-2° 
EC NO. 827785 827627 827879 PAGE 28 EC NO. 827785 827827 827879 PAGE 284 » 
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ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT ’ ERR LOC OBJECT CODE ADOR STMT SGURCE STATEMENT 
3748 % C- SE78& FSFOTE 5E7TA 3816 V30 oc CL3°30e2" 
5003 0005 5004 3749 DEC5 oc It2*se 5E78 F3FS7E 5E70 3617 V38 oc CL3*3gx6 
5005 OOOF 5006 3750 DEC15 oC IL2*158 3818 * 
5007 FFFF 5008 3752 NEG1 oc XL2°FFFFe 3820 * eae ONE-BYTE CONSTANTS eee s 
5DDB FFFD 5DDC 3754 NEG3 OC IL2%=38 : 3822 * 
SODDD FFFB 5D0E 3755 NEGS oc IL2*-58 SE7E 00 SE7E 3823 MCNT oc XL1* 008 
50DF 0000 5DEO 3756 xR154 OC XL2*0000* se S5ETF 00 SE7F 3824 VALI DC xXLitoe 
5DE1 0000 SDE2 3757 XR2S1 DC xXxL2*0000" | €+ 5€80 00 5E80 3825 VALIA DC  xXL1*O® 
§50E3 0000 5DE4 3758 kR2S3 OC XL2*0000* | 5E81 00 5E81 3826 VALIB DC XL1tof 
50E5 0000 SDE6 3759 SIARIL OC XL2*Q000* pete 5£82 00 5E82 3827 CYCSW OC XL1#0° 
5 .  SOET 0000 S0E8 3760 KO000 OC XL 2*0000* i i 5£83 00 5E83 3828 COSW oc XL1*°O* 
5DE9 0001 5DEA 3761 KO0001 OC XL2*0001° ! 5EB4 00 5E84 3829 RUNSH OC xXL1°O°8 
5DEB 0003 5DEC 3762 K0003 0C XL2*0003°* a 5—85 00 5E85 3830 CONVIL OC XL1°oO8 
5DED 0004 S5DEE 3763 KO004 OC XL 2*00048 i { 5€86 00 5686 3831 CICTR OC XLI*oO* 
5DEF 0005 50FO 3764 K0005 OC XL2* 0005" 5E€87 00 5E87 3832 COCTR oc XLE* OF 
50Fl OOOF 5SD0F2 3765 KOF oc XL2* OGOF® spans 5€88 O08 5E88 3833 COCTR1I OC xLI¢* gt 
5DF3 8000 5DF4 3766 K8000 OC XL2*8000° t 5E89 00 5E8S 3834 COCTR2 OC XL1*6* 
SOFS 0000 5O0F6 3767 STRCTR OC XL2*O0000* SE8A 00 5E8A 3835 IND oc XL1° O° 
SDFT7T FOFO SOF8 3768 ZERO oc CL2°90° : 0001 3836 LDSW EQU xXfoLre 
5SOF9 40460F1L SDFB 3769 ZONE oc ci3° i128 & 0080 3837 SWCNTL EQU x*808 
50FC 0000 SDFD 3770 CONV2 O0C 2XLi*O* 0040 3838 NCOMMA EQU X*4Q08 
5DFE 0000 SOFF 3771 SENSE OC XLZ*O0000* . 5E8B 5E8B 3839 SVCOM ODS XLi 
5E00 4040 5E01 3772 VAL2 oc CL2¢ s c SEBC O1 5esC 3840 Kl oc XL1* 2° 
SE02 4040 5E03 3773 VAL2A OC ci2* ¢ . 5E8D 02 5EB8D 3841 K2 oc XL1LeEQe 
§£04 40404040 SEOT 3774 VAL4 oc 4CLie ¢ : % SEBE OA SE8E 3842 K10 oc XLL*OA* 
SEO8 404040404040 SEOD 3775 BLANK 0DC 6cLie ¢ €: SESF 20 5ES8F 3843 K20 oc XL1¢208 
SE0E 404040404040 5E13 3776 CGONVY6 OC 6CL1* * 5€90 00 5E90 3844 MODE oc XLi*oo® 
5E14 000000 5E16 3777 CONV3 oC SXLit*ar ees 5£€91 00 5E91 3845 MBIDX DC xL1*0o? 
5E17 000000 5E19 3778 CONV oc 3SXL1*08 {3 5E92 00 5E92 3846 CISW oc XL1*o* i 
~ 5G 5E1A 00000060 S5E1D 3779 ADRS oc 4XLi* 908 5E93 60 5E93 3847 MSSwW oc XL1¢°O° Se 
SELLE 40404040 5E21 3780 LOC pc 4CLie ¢ 594 00 5E94 3848 OCMDSH OC XtL1*o* 
S5E22 0001 5E23 3761 BSIN1 oc XL 2*0061° €: 5€95 00 5€95 3849 ZLS# oc XL1*oO8 
5E24 0002 5E25 3782 SNHALT OC XL2*°0002* : SE96 00 5E96 3850 CICTR1 DC AL1¢O# 
SE26 00 5E26 3783 DLSAD oC XLi*o0o* =2 5E97 00 5E97 3851 OCISW OC ALi*o® 
SE27 3784 CMPFLG EQU * ADORESS STOP INDICATOR : €2 5E98 00 5E98 3852 DCDSW DC ALI*& oO? 
5E27 SOETETETET SE28 3785 ADRCMP DC CLS* KxXxxe ADDRESS COMPARE VALUE 5£99 00 5E99 3853 VLCNT oC XL1*9* 
SE2C 7C SE2C 3786 IPCSTP OC cLitae CHECK STOP INDICATOR : SESA 00 5E9A 3854 LINCTR DC XL1*O# 
5E2D0 C180 5E2E 3787 Cis oc AL2*Ci80° ‘ < 5E9B 00 5E9B 3855 SWOIGT DC XL1°65 
SE2F 0000 5E30 3788 DATASW DC XL2*0000* 5E9C 00 SESC 3856 PRTEND DC ~=xXLItoF 
5€31 0000 5E32 3769 SWTEMP OC XL2° 00008 3857 * 
5£33 0000 5E34 3790 SWVAL OC XL2*0000° @ 3858 #~—~——._ - a enmaneenenayeemencvaneneanemnenmerenenaoannnen 
5E35 0000 5SE36 3791 INPOS OC XL2°0000* 3859 * make ADDRESS CONSTANTS ined 3 
5E37 5CSCSCSC5C5C 5E3C 3792 ASTRSK DC CLO! wegeeee BBEO mm nn eee 
3793 * @ 3861. + 
DT GEa Dm rn cee ee et ee eer a een cree aera ener en nen ni 5E9D 3862 PRTNA EQU * PRINT BUFFER LINE END ADDR STORAGE 
3795 *% eee CHARACTER CONSTANTS set * . SE9D 0000 S5E9E 3863 Lina oc XL2*6000° ‘ 
3796 ¢-—----—- whaecons To ea nna annnennnemenenenennmnnnnnent £3 SE9F 0000 5EAO 3864 L2N2@ = OC XL2*0000° 
3797 * SEA1 0000 SEA2 3865 L3Na OC XL2*0000* 
5E30 C3C4 5E3E 3798 CD oc ci2*cor me SEA3 0000 SEAS 3866 L4Na oc XL2*0000# 
5E3F 40C1E3 5E41 3799 BAT oc €cL3* ate i €3 5EA5 0000 SEAG 3867 L5NQ oc XL2*0000° 
5E42 040703 5E44 3800 MPL oc CLS*MPLe i SEAT 0000 5EAB 3868 LéNa oc XL2°* 00008 
5E45 DSCOCICBE3 SE49 3801 RIGHT OC CLS* RIGHT? SEAQO 3869 PRT@ EQU * PRINT BUFFER LEFT ADDRESSES 
3802 ¢ i &3 SEAQ 6210 S5EAA 3870 oc AL2(L1P) 
SE4A 40C5D5CIC2D3C5C4¢ 5E51 3803 NABLED DC CL8* ENABLED® { SEAB 6243 SEAC 3871 oc AL2(L2P) 
5E52 CODSCICSE3CSES5SCS 5SES9 3804 INACTV DC CL8* INACTIVE* { _ 5EAD 6284 SERE 3872 oc AL2(L3P) 
3805 +  €3 SEAF 62BA 5EBO 3873 oc AL2(L4P) 
SESA FOFO7E 5E5C 3806 VOO oc CL3*CO=8 5EB1 6300 5EB2 3874 oc AL2(L5P) 
5E5D FOFSTE SESF 3807 VO4 oc CL3*O4=t | 5EB3 6313 5EB4 3875 oc AL2(LO6P) 
5E60 FOFSTE SE62 3808 VOB oc CL3*O8se ! € 3876 * 
5&63 FOC3TE 5E65 3809 VOC ~——ooc CL3*ocnt i SEBS 6083 5EB6 3877 MIARN@ OC AL2(MIARNM) 
5E66 FILFOTE 5€68 3810 V10 oc CL3*10«¢ { 5EBT 60CO 5EB8 3878 FBONMa OC AL2¢FBONN) 
5E69 FLF4TE SE6B 3811 V14 oc CL3°1408 2 { €: SEBS 6005 5EBA 3879 OXCNM2 DC At 2(0XCNM) 
5E6C FLFSTE 5E6E 3812 vis oc CL3*1g=¢ SEBB 60FT7 SEBC 3880 APTRNA DC AL2¢( APTRNM) 
SE6GF FIC37E SE71 3613 VIC oc Cu3*1Cae | 3881 * 
SET2 F2FOTE 5E74 3814 V20 oc CL3*20=3 ; G SEBD SDCO SEBE 3882 KYBDIa OC AL2(KYBDOI} = 
SE75 F2FS7E SET7 3815 v28 oc CL3* 2604 | SEBF 5081 S5ECO 3863 RIARIA DC AL2(RSTAR1I} 
DATE 23aUuGT5 OSNOV7S 24MARTO PROG ID C19-2 © ace 23AUGT75 OSNOV75 24MART6 PROG 1D Ci19-2° 
£€C NO. 827785 827827 827879 ‘PAGE 29 | er NO. 827785 827827 827879 PAGE . 29a. 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C192 
ERR LOC 


SECl 
5EC3 


SECS 


SECT 
5ECF 
5ED7 
SEF 
SEET 


SEEF 
SEFT 
SEFF 
5FO7 
SFOF 


5F17 


SFLF 
527 
SF 2F 
5637 


SF 3F 
5F47 
SF4F 
557 


5FSEF 
SF61 
SF63 
SF6ES5 
5F67 
SF69 
SF6B 
5F6D 
SFOF 
5FT1 
5F73 
SFTS 
5F7T7 
SFTS 
SFTB 
SF7D 
5SFTF 


5F8L 
5F85 
5F89 
5F8D 
SF91 
5F95 


DATE 
EC nO. 


f 
t 
t erate 
i * e & & © & eo . e net @ 





3340 ADAPTER MANUAL OPERATIONS PGN - HOD 12 








OBJECT CODE ACOR STMT SOURCE STATEMENT 
3884 * 
62C0 S5EC2 38685 L4P6a OC AL2(L4¢5) 
5EC4 3886 PTTEMP DS AL2 
3887 
61C7 S5EC6 3888 INMSG@ DC AL2( INMSG) 
3889 * 
3890 *---~~—-——-~————-—--—— 
3891 * eee 
3892 %--- =~ 
3893 * 
SEC? 3894 CSTBL EQU *& 
4040404040404040 SEEE 3895 oc SCL5* 
4040404040404040 3895 
4040404040404040 3895 
4040404040404040 3895 
4£040404040404040 3895 
SEEF 3896 CSTBLI EQU © 
0000000000000000 5F16 3897 oc 8XL5*0000000000* 
0000000000000000 3897 
0000000000000000 3897 
0000000000000000 3697 
0000000000000000 3897 
3698 
SF17 3899 MBTBL EQU #@ 
0000000000000000 SF1E 3900 oc SxXL1*o¢ 
3903 * 
SF1F 3902 ALSTBL EQU * 
0000000000000000 SF3E 3903 oc 32XL1°O8 
0000000000000000 3903 
0006000000000000 3903 
0000v00000000000 3903 
3904 ¢ 
SF3F 3905 MSSTR EQU «& 
0000000000000000 SFS5E 3906 oc 32xXL1 50° 
0000000000000000 3906 
0000000000000000 3906 
c000000000000000 3906 
3907 
SFSF 3908 MSTBL EQU «¢ 
60co 5F60 3909 oc Xt 2*°0000* 
6900 5F62 3910 oc XL2*0000* 
0100 SF64 3911 oc XL2°01008 
6200 SF66 3912 oc Xt 2°0200* 
9306 5F68 3913 oc XL2*°03008 
0400 SF6A 3914 oc XL2*0400¢ 
0500 SF6C 3915 oc RL 2°0500° 
0600 SF6E 3916 oc XL2*0600* 
0700 SF70 3917 oc XL2*6700* 
0600 SF72 3918 oc XL 2*080G* 
0900 5F74 3919 oc XL2°09008 
0AcO SFT76 3920 oc XL2°OA00* 
9600 SFT8 3921 oc Xi 2*0B00* 
acco SFTA 3922 oc XL2*0co0o* 
opco SF?C 3923 oc XL2*oco0o* 
OE00 SFTE 3924 oc XL 2*0E00* 
GFOO 5F80 3925 oc XL2°*OF00* 
3926 *% 
3927 t-—- << 
3928 * e*¢ 
3929 t-~----- neo 
3930 # 
SF8i 3931 ROTBL EQU + 
CS5CcéEC2C9 5F84 3932 oC CL4*EFBIS 
CSCSOCOF1 5SF38 3933 oc CL4*EFIi° 
C5C1C4E2 SFBC 3934 oc CL4*EaDS* 
CSC6E3C9 SF90 3935 oc CLStErtre 
C5C306F2 SF94 3936 oc CL4‘ECO2* 
C5C8CS5E2 SF98 3937 oc CL4&*EHES* 
23AUG75 OSNOV7S 24RART6 
827785 827827 827879 





A AES AED <A CHC 


STORAGE TABLES FOR *CI*,*CD*,*MS*, AND *ALS* Ste 














PART NO. 
PAGE 











SE Aa ene ee: 





FILE BUS IN REG. 

FILE IN 1 REG. = 
ADAPTER CIAGNOSTIC SENSE REG. 
FILE TAGS IM REG. 

CHANNEL OUT 2 REG. 

HAROWARE ERROR SENSE REG. 


PROG IC 
PAGE 





we coe. 


ae ee aoe ene emepe enema cee emen en wna Ht 


EXTERNAL REGISTER NUMBER/NAME TASLES Bee 


| 
| 


4247615 
30 


aK 





* 


o> i ee a 


— 


i 


| 
| 
! 


€19-2 
30 | 


i 

| 

| 

| 

- : | | 

—- | 
©2068 e8e8e8e6e @- 


® © 





£ 
te 


ors 


te, 


gm, d wn 
or Mae 


@enoo0o0n 


C192 


5F99 
5F9D 
5SFA1L 
SFAS 
5SFA9 


5FAD 
5FB1 
5S FBS 
5SFB9 
5F8D 
5FCL 
5FC5 
5FC9 
5FCD 
SFD1 
SFOS 
SFDO9 
5FO0 
5FEL 
5SFES5 
SFES 
SFED 
5FF1 
5SFFS 
SFF9 


SFFD 
6001 
6005 
6009 
600D 
6011 
6015 
6019 
601D 
6021 
6025 
6029 
6020 
6031 
6035 
6039 
603D 
6041 
6045 
6049 


6040 
604E 
604F 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
605A 
605B 


DATE 
EC NO. 


© 


106 @ 





"ERR LOC OBJECT CODE 


C5C3C3C8 
C5C3C303 
C5E2C2F1 
C5C6C3E3 
C5C2D6F0 


C5C6C206 
c5Cé6C2C9 
C5C1LC4E2 
CS5C6E3C9 
C5C306F2 
C5C6C9F1 
CSC8C5E2 
CS5C6E3D6 
CSC6E3CT7 
f5C3C3C8 
C5C3C303 
C5C6E309 
CSE2C2FO 
C5C4E2E3 
c5cecaceé 
CSE2C305 
C5CSE7C3 
C5E2C2F1 
C5C6C3E3 
C5C2D6F0 


C€5C3C3c8 
cscéc2c9 
CSC4E2E3 
C5C6E3C? 
C5C6E3D6 
c5cé6csce 
C5C1C4E2 
CSC6C9F1 
CSC8CS5E2 
C5C6E309 
C5C6C206 
CSE2C305 
C5C3C3p3 
CS5C4E7C3 
C5C6E3C9 
C5C6C3E3 
C5E2C2F1 
CS5C2D6F0 
C5C306F2 
CS5E2C2F0 


01 
02 
03 
os 
06 
oO? 
09 
OA 
OB 
oD 
OE 
OF 
il 
13 
1S 


23AUG7TS 
827785 


ADDR 


5-99 
5F9C 
5FA0 
5SFA4S 
5FA8 
5FAC 


5FAD 
SFBO 
5FB4 
SF88 
5FBC 


* SFCO 


SFC4 
5FC8 
5FCC 
5F00 
5FD4 
5FO8 
SFDC 
5FEO 
SFE4S 
5FE8 
5FEC 
5FFO 
SFFS 
SFF8 
SFFC 


5SFFD 
6000 
6004 
6008 
600C 
6010 
6014 
6018 
601C 
6020 
6024 
6028 
602C 
6030 
6034 
6038 
603C 
6040 
6044 
6048 
604C 


6040 
6040 
604E 
604F 
6059 
6ce51 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6054 
6058 


OSNOV75S 


18m MAINTENANCE DIAGNOSTIC PROGRAM 


3340 ADAPTER MANUAL CPERATIONS PGM = MOD 12 


STMT SOURCE STATEMENT 


3°38 * 


3939 LOTBE EQU 


3940 
3941 
3942 
3943 
3944 
3945 ® 


3946 LRTBL 


3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 * 


3968 FRONAM 


3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983" 
39P4 
3985 
3986 
3987 
3988 
3989 * 


3990 ERDTBL 


3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 


24MART6 
827879 


oc 
oc 
oc 
oC 
oc 


EQU 
BC 
oC 
Doc 
oc 
oc 
oC 
oc 
oc 
oc 
oC 
oc 
oc 
oc 
oc 
oC 
oc 
oc 
DC 
oc 
oc 


EQU 
oc 
oc 
Doc 
oc 
oc 
oC 
oc 
oc 
oc 
oc 
oc 
oC 
oC 
oc 
oc 
oc 
oc 
oc 
oc 


s 

CL4s*ECCH® 
CL&*ECcce* 
CL4* ESBS 
CLe*EFCT® 
Ct 4*EBOO* 


= 

CL4*EFBO® 
Cis*EFBI® 
CL4*EADS®* 
CL4*EFTE® 
CL4* ECO2* 
CL4*EFII® 
CL4*EHES* 
Ct4*EFTOS 
CL4°EFTG® 
CL4*°ECCH® 
CL4*ecci? 
CLS*EFTR® 
CL4*ESBO? 
CL4*EDST® 
CLS* EFHF® 
CL4*ESCN® 
CL4* EOXC* 
CL4*ESB1° 
CL4*EFCT® 
CL4*EBOO® 


& 
CL4*ECCHE 
CLe*EFBr® 
CL4*EDST* 
CL4&*EFTG®* 
CL4*EFTOS 
CL4*EFHF ¢ 
CL4*EADS * 
CL4*EFIL® 
CL4*EHES* 
CL4*EFTR* 
CL4é*EFBOS 
CL4'ESCNE 
CL@*ECCL? 
CL4*EOXCt 
CL4@*EFTI® 
CL4*EFCT® 
CL4*ES82° 
CiL4e*eBoor 
CL4*ECco2* 
CL4*ESB0* 


* 

ALi* ol‘ 
XLi*02° 
XL 12°O3°* 
XL1*0O5°* 
XL1*O6* 
XLb*O7* 
XLi*o9* 
XLL*OA* 
xL1°08° 
XL1*OD® 
XL2°OE* 
XL 2° OF ° 
XL1°L1> 
XL1*°43° 
XL1°215* 


PART NO. 4247615 
PAGE 30A 


CHANNEL COUNT HIGH. 
CHANNEL COUNT LOW. 


SENS 
FILE 


& BYTE i. 
TRANSFER COUNTER. 


BUFFER OUT 0. 


FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
CHAN 
CHAN 
FILE 
SENS 
OEvI 
FILE 


BUS GUT REG. 

BUS IN REG. 

ADAPTER DIAG SENSE. 
TAGS IN REG. 
CHANNEL OUT 2 REG. 
IN 1 REG. 

HARDWARE SENSE REG. 
TAG OUT REG 

TAG OUT REG. 

NEL COUNT HIGH REG. 
NEL COUNT LOW REG. 
TRAP REGISTER. 
E BYTE 0 REG. 
CE STATUS REG. 
HARDWARE FLAGS REG. 


SCAN CCNTROL REG. 
DATA XFER CONTROL REG 
SENSE BYTE 1 REG. 


FILE 
BUFF 


Ol 
02 
03 
05 
06 
Oo7 
09 
OA 
06 
oD 
OE 
OF 
ll 
13 
15 
16 
17 
19 
18 
lf 


01 
02 
03 
05 
046 
07 
09 
OA 
08 
oo 
OE 
GF 
il 
13 
15 


XFER COUNTER REGO 
ER BUS OUT REG. 


CHANNEL COUNT HIGH 
FILE BUS IN. 

OEVICE STATUS. 

FILE TAG GATE. 

FILE TAG OUT. 

FILE HAROWARE FLAGS. 
ADAPTER OLAGNOSTEIC SENSE. 
FILE IN le 

HARDWARE ERROR SENSE. 
FILE TRAP. 

FILE BUS OUT. 

SCAN CONTROL. 

CHANNEL COUNT LOW. 
DATA TRANSFER CONTROL. 
FILE TAG IN. 

FILE TRANSFER COUNTER. 
SENSE BYTE i. 

BUFFER GUT 0. 

CHANNEL OUT 2. 

SENSE BYTE 0. 


CHANNEL COUNT HIGH 

FILE BUS IN. 

DEVICE STATUS. 

FILE TAG GATE. 

FILE TAG OUT. 

FILE HARDWARE FLAGS. 

ADAPTER DIAGNOSTIC SENSE. 

FILE IN le 

HAROWARE ERROR SENSE} 

FILE TRAP. | 

FILE 8US OUT. 

SCAN CONTROL. 

CHANNEL COUNT LOW. oe 
DATA TRANSFER CONTROL. 2 ae 
FILE TAG INo | 


PROG 10 C1e-2° 
PAGE 30a 


4 ge es ee 





EET ASA TE PPA AOE EA GCS SPEEA EES 























| 
IBM MAINTENANCE DIAGNOSTIC PROSRAN . PART NO. ashaets! 16M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247615 
eek PAGE 311 @ PAGE | 31a 
z 
C292 3340 ADAPTER MANUAL GPERATIONS PGM —- MGD 12 ' ee” 3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 
: i ; 
ERR LOC GBJECT CODE ABOR STHT SOURCE STATEMENT | “"ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
605C 16 665C 4006 oc XL1°E6° 16 FILE TRANSFER COUNTER. ! €:  60A3 C3E€2E307 60A6 4074 CSTP OC CL4*CSTP? 
6050 17 605D 4007 oc XLieaize 17 SENSE BYTE ie 60A7 C1D3E2C2 60AA 4075 ALSB 0C CL4*atsB* 
605E 19 605E 4008 oc XL1°198 19 BUFFER QUT O- ' 6@OAB C1D3E2C4 60AE 4076 ALSO OC CL4*ALSD? 
605F 18 605F 4009 oC =—s_ KLEE LBP 18 CHANNEL OUT 2. i & : 4077 * 
6060 IF 6660 4010 oc XL1¢*1F® if SENSE BYTE 92. | 4078 — * 
6061 FF 6061 4011 oc XLL°FFS 2 4079 * *#¢ = =§=©6PRINT REGISTER NAME TABLES * 
6062 00 6062 “013 FROTBL DC XL1*O08 TG BE FILLED IN LATER. 4081 * 
4014 & _ 6OAF -D4C09C1097E 6083 4082 MIARNM OC CLS°MIAR= 
4015 ¢--- on nnn nena anna enn emnnnnnmnenmmmnmmnmamnnnnnnnnn%® f° 6086 E2C9C1097E 6088 4083 oC CLS*SIAR=¢ 
4016 * DATA SW ENTRY COMMAND LOOKUP TABLES * ~*~ 6089 C4E2C1097E 608D 4084 DC CL5*DSAR=* 
SOL, Cam a ee nen e as _—- @OBE ~C6C2D6 60CO 4085 FBONM DC CL3* FBO" 
4018 * - ' €> 60C1 C6eE306 60C3 4086 OC = CL3 FTO 
6963 4019 SWCMD £QU #¢ DATA SWITCH CODES FOR COMMANDS ~  60C4 CECc2c9 60C6 4087 oc CL3*Far* 
6063 01 6063 4020 oC Sst *1C01° THIS TABLE MUST 6E _ 6007 C6E3C9 60C9 4088 oc CLB*FTI¢ 
6064 02 6064 4021 oc xXL1°02* PRIOR TO *CMDTBL * € 60CA Cecace 60CC 4089 oc CL3*FHE® 
6065 63 6065 £022 oC XL1¢03¢ 60CD C6E309 60CF 4090 Dc CL3°FTR® 
6066 09 6086 4023 oc XL1°09° _ 60DO C6E3C7 6002 4091 oC CL3*FTG* 
6067 OA 6967 4024 oc XL1¢oae €°  60D3 C4eE7C3 60D5. 4092 OXCNM OC CL3"Dxc* 
6068 OD 6068 4025 oc XLL*OD® 6006 E2C2FO 6008 4093 DC CL3*SBO° 
6069 FF 6969 4026 oc MLICFFe TERMINATOR : 6009 £2C3D5 60DB 4094 oc CL3°SCNP : 
4027 * {° —- 6ODC:_-C4E2E3 600E 4095 oc CL3°DSsT® 
6062 “028 CMDTBL EQU & COMMAND TABLE ; 6CDF C8C5E2 60E1 4096 , oc CL3°HES! 
606A C7 606A 4029 oc cLi*G? . 60E2 C1C4E2 60E4 4097 oC CL3*°aDS* 
6068 CB 6068 4030 oc CLieHe €  60E5 C3D6F2 60E7 4098 DC CL3*Co2° 
606C C9 6060 4031 oc Clute | 60E8 C403E2 6GEA 4099 DLSNM 0C CL3°OLS* 
6060 E3 606D 4032 oc cLiete é 60E8 C3D6D4077E 60EF 4100 COMPNH DC CLS*COMPe® 
606E C1 606E 4033 oc CLisae €:  60FO C3ceD27E 60F3 4101 CHKNM 0C CL4*CHKee 
606F C4 606F 4034 oC Ess CLL DF 60F4 C107E309 60F7 4102 APTRNM OC CL4*AP TRE 
4035 * - ss OF 8 OTE E309 60FB 4103 DC CL4°*PPTR® 
Bet pe ae eee. as 6070 4036 CMDRTa EQU* COMMAND ROUTINE ADDRESSES €> OFC 4009C4E7 60FF 4104 DC CL4* IDX? : 
6070 4478 6071 4037 oc AL2(GCMD) 6100 4040£709 6103 4105 oC CL4* xR* remain 
6072 421A 6073 4038 oc AL2(HCMD) 6104 40E2D5E27E 6108 4106 SNSNM OC CL5* SNSee 
sors 422 6075 4039 oc AL2CICMD) ' 4107 * 
6078 4485 6079 4041 oc AL2(ACMD) 4109 * *#* STANDARD DISPLAY REG STORAGE TABLES é * 
. 4043 © 41ll « 
GQIC 4046 SvOP23 EQU os DATA SW CODES FOR 2 & 3 CHAR OPERAND' 6109 4112 REGTBL EQu * CURRENT REGISTER VALUES 
607TC O1 607C 4045 oc XL1°01° @ 6109 4113 MIAR@ EQU ® 
607D 02 607D 4046 oc XLi*92¢ | 6109 610D 4114 MIAR BS § CLS 
607E 03 GOTE 4047 DC = - &L1*03° G10E 4115 SilaRa EQu  e 
6OTF 04 607F 4048 oc XL1°04" , @  e10€ 6112 4116 SIAR DS CLs 
6080 FF 6080 4049 oc XLI°FFS _ TERMINATOR 6113 4117 DSAR@ EQU 
4050 * { 6113 6117 4118 DSAR OS cis 
- 6081 405) OP2TBL EQqU ¢ s 2 CHAR OPERANDS  & e118 6119 4119: FBO DS cL2 
6081 C1C3 6082 4052 AC oc CL2*ace O1LIA 6118 4120 FTO dS CL2 
6083 C39 6084 4053 CI oc CL2°cu® 611C 6110 4121 FBI os c12 
6085 04E2 6086 4054 MS DC CL2ens* @ e11€ 611F 4122 FT! oS cL2 aed 
6087 04C2 6068 4055 MB oc CL2°MBe 6120 6121 4123 FHF cs cL2 
4056 * 6122 6123 4124 FTR oS L 
6089 4057 OP3TBL EQU ss 3 CHAR OPERANDS @ ci2s 6125 4125 FTG os eta 
6089 C4D3E2 608B 4058 DLS oc CL3*Dis® - e es 6126 6127 4126 DXC os cL2 
608C €9D3E2 608E 4059 ZLS pc CL3*2ZLS° 6128 6129 4127 SBO oS cL2 
608F C3C4D3 6091 4060 COL oc CL3°"COL® €@ 6124 612B 4128 SCN os c.2 
6092 €3C4D9 6054 poet coOR =O CL3*COR® 612C 6120 4129 DST DS CL2 
4062 * 612E 612F 4130 ( 
6095 4063 SWwOP4 EQU = DATA SW CODES FOR 4 CHAR OPERANDS @G 6130 6131 4131 ADS bs ce 
ec os 6095 4064 oc XLL+04" 6132 . 6133 4132 C02 OS c12 
cuss: oe pn a0e- oc xL1°08° 6134 6137 4133 DLSO1 DS CLs 
oer) as Sast 606s OC XL1 S108 € 6138 6138 4134 DLSO3 0S = CL4 
oeeae 6 DC XL1°24 613¢ 613F 4135 DLSOS oS CL4 
6099 4068 oc XLL°18¢ 6140 6143 4136 DLSO7 oS CLs 
609A FF 609A zeee : bc XLI°FF® TERMINATOR i @ cise 6147 4137 DLSOS9 OS cLée 
6148 
6098 4071 OP4TaL EQU * 4 CHAR OPERANDS gise Cine aise Brs00 os eis 
6098 CLO3SE2E4 609E 4072 ALSU DC CLO*AL Sut @ 6150 6153 4140 DLSOF OS CL4 = 
609F C103E203 6042 4073 ALSL OC CL4*ALSL® 6154 6158 4141 COMP oS cis 
DATE 23AUGTS OSNOV?S Z24MART6 PROG 10 C19=2  @isre 23AUG75 OSNOVT7S 24MART ; 
6 G6 10 *. 
EC NO. ez7785 827827 827679 PAGE 31 e. NC. 827785 827827 827879 Pace Sake: 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C192 3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 C192 3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 



























































ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT _ ~ ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
6159 6159 4142 CSTOP DS  CL1 & 6341 4200 HONG EQU # 
615A 615B 4143 CHK oS = Ct2 6341 SCSC40C1C4C107E3 6368 4201 HDNGN OC  CL40**® ADAPTER MANUAL OPERATIONS PROGRAM. ee* 
615C 615D 4144 APTR OS  CL2 6349 C5D940D4C 105E4C1 4201 
615E O15F 4145 PPTR ODS  CL2 t 6351 D340D6D7C5D09C1E3 4201 
6160 6161 4146 IDX oS = CL2 6359 C9D605E240D70906 4201 
6162 6163 4147 XR OS CLz 6361 C709C1044B405C5C 4201 
6164 6165 4148 SNS DS CL2 eS 4202 * 
6165 4149 REGTBN EQU 1 " 6369 4203 WARNL EQU * 
4150 © . 6369 E6CLDIDSCODSC77A 638E 4204 WARNIN OC CL38*WARNINGZOVER 10 DATA FIELDS IN STRING. * 
4151 © THIS TABLE MUST FOLLOW REGTBN £ 6371 D6E5C50940F 1F040 4204 
6166 4152 HSTeL EQU ¢ PREVIOUS REGISTER VALUES 6379 C4CLE3C140C6C9C5 #204 
, : 6166 61C2 4153 HSTBLN DS CLC REGTBN-REGTBL41) . 6381 03C4E240C9D540E2 . 4204 
4154 © ( 6389 €309C9D5C74B 4204 
4155 e o-----= * 4205 © 
4156 © *** OC'S USED BY 5471 SUBROUTINE  %e¢ a 638F 4206 WARN3 EQU © 
4157 ¢-----—-----— ——------ -« ff 638F E6C1D9D5C9D5C760 63BA 4207 OC = CL&&* WARNTNG= AMOP HAS OVERWRITTEN FAO BACKUP IN * 
4158 © 6397 40C1D4D6D740C8C1 4207 
61C3 0000 61C4 4159 KYSTAT OC = XL 2" 00008 KEYBOARD STATUS _  639F E240D6E5C5D9E6D9 £207 
61C5 6210 61C6 4160 AIN oc AL2CINPUT+65) END OF INPUT AREA { 63A7 CIE3E3C5D540C6C1 4207 
4161 © 63AF FO040C2C1C302E407 4207 
9162 Crm nnn nn nnn nnn 6387 40C90540 4207 . 
4163 © COMMAND INPUT AREA * ¢ 63BB D4C1C9D540E2E3D6 63C5 4208 WARN3N DC CLI11°MAIN STORE,* 
4164 *---~—---—---—— ren 63C3 D9C56B 4208 
4165 ¢ Auge 4209 © 
61C7 4166 INMSG EQU «© i €3 63C6 4210 WARNS EQU * 
61C7T C3060404C105C440 6108 4167 INMSGN DC CL21°COMMAND ENTERED IS - ° 63C6 4040404040404040 63F3 4211 oc CL46* AN ATTEMPT TO LOAD FAO FROM DISK MAY * 
61CF C5D05E3C509C5C440 4147 _ 63CE 40C1D540C1E3E3C5 4211 
6107 C9E2406040 4167 € 6306 D4D7E340E3D640D3 4211 
4168 © " —- &3BDE 06C1C440C6C 1F040 4211 
610C 4169 INPUT EQU ® _ 6386 56D9D6D649C4C9E2 4211 
610C 4040404040404040 6210 4170 oc 83=—s @6CLA* * (|. 63€E 024004C1E840 4211 Pas 
Sapna ee 61E4 4040404040404040 4170 - - 63F 4 C3C1E4E2C540C140 640A 4212 WARN4N OC CL23*CAUSE A HANG CONDITION. * Sree 
61EC 4040404040404040 4170 63FC C8C105C740C3D605 4212 
61F4 4040404040404040 4170 &) 6404 C4C9E3C9060548 4212 
G1FC 4040404040404040 4170 | | £213 * 
6204 4040404040404040 4170 . . 6408 4214 MSG2. EQU + 
6200 4040404040404040 4170 - €3 6408 C9D6D740C9E240D9 6419 4215 MSG2N OC CLIS*IOP IS RUNNING.* 
6214 4040404040404040 4170 = 6413 E4D505C9D5C748 4215 
621C 4040 4170 4216 ® 
4171 © '€& 641A 4217 MSG3 EQU. 
9172 Cn nnn nn eee 641A C9D6D740C8C103E3 6424 4218 MSG3N OC  CL11°IOP HALTED.* 
4173 © : *¢@ = §€PRINT BUFFER tee 2. 6422 C5C44B 4218 , 
9116 Cnn eee enna erence eee ene, * © 4219 © 
4175 : 6425 4220 MSG6 EQU # 
6210 4176 LIP QU 8-2 6425 04D70340C9054007 6433 4221 MSG6N OC CL1S*MPL IN PROGRESS* 
621€ 4177 L1 equ) : € 6420 0906c709CsE2E2 4221 
621€ 6243 4178 DS 38CLi 4222 © 
6243 4179 L2P EQU)  #}, 6434 4223 MSG7T EQU # 
6244 4180 L2 equ ® EX ~— 6434 03D6C1C4C9D5SC740 6446 4224 MSGIN DC  CLI9*LOADING SECTION C17° 
6244 6284 4181 DS = 6SCL1 "  —- 643C-E2CSC3E3C9D60540 4224 
6284 4182 L3P EQU) _#-} ; 6444 C3F1F7 4224 
6285 4183 L3 EQuU '¢ 4225 * 
6285 62BA 4184 DS S$4Cil : 6447 4226 MSGB =EQU St 
62BA 4185 L4P cQU 0 &} /. 6447 C50SE3C50940CiD4 6474 4227 MSG8N DC CL&6*ENTER AMOP COMMAND In DATA Sti- SEE USERS GUIDE® 
6288 4186 L4 equ s  € +  644F 060740C306D404C1 4227 
6288 6300 4187 DS 7OCLi 6457 05C440C9D540C4C1 4227 
6300 4188 LSP EQU #1 .  645F £3C140E2E66040E2 4227 
6301 4189 LS equ & . (+ 6467 C5C5e0ESE2CS09E2 4227 
6301 6313 4190 bs 19CLL 646F 40CTE4COC4CS 4227 
63213 4191 L6P EQU ei 4228 * 
6314 4192 L6 equ ¢ . €& 6475 4229 MSG9 EQU © 
6314 6340 4193 OS = @5Ci1 6475 C&CLE3SCI40E2ZE640 6494 4230 MSGON DC CL32*DATA SW ENTRY- COMMAND CANCELLED® 
6340 4194 PTBUFN EQU 2-1 _ 6470 C5D5E3D9£86040C3 4230 
4195 © 2 &.) 6485 D6D4D4C 1050440C3 4230 
4196 * rr nt 6480 CLOSC3C50303C5C4 = 4230 
4197 © +t HEADING AND WARNING MESSAGES ‘ee + 4231 * e 
4198 $-———~---~—-----.- meen + © 4232 * * 
4199 ¢ ; 4233 * eee = =€6DISPLAY MESSAGES see we 
: '@ é eg 
DATE 23AUGT5 OSNOV75 24MART6 PROG ID C2192) ~~ DATE 23AUGTS OSNOV7S 24MAR7T6 PROG ID C19-2 
EC NO. 827785 827627 827879 PAGE 32; _ EC NOe 827785 827827 827879 PAGE 32a 
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192 3340 ADAPTER MANUAL GPERATIONS PGM = MOD 12 


IBM MAINTENANCE DIAGNCSTIC PROGRAM ; PART NO. 


C1g2 3340 ADAPTER MANUAL GPERATIONS PGH = MOD 12 


























ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
42346 tomenenne Se te ne aL eR Of 658B CSD9D9F47TADOC5CT 65B0 4278 ERRGN OC CL38*°ERRS:REG SPECIFIED CaN*'T BE DISPLAYED. * 
4235 % 6593 40E2D7C5C3C9C6C9 4278 
6595 4236 MBMSG EQU + 659B C5C440C3C1D57DE3 4278 
6495 D&D6C4SC540C2E4C6 649F 4237 MBMSGN DC CLIL*MODE BUFFERS 65A3 40C2C540C4C9E2D7 4276 
6490 Cé6C5D9 4237 65AB 03C1E8C5C44B 4278 
Pan e- 6581 2280 ERRS equ * 
6440 4239 ACMSG EQU * 
6440 C1C4C40940C30604 648C agA0 ACHSON De CL29"ADOR COMP STOP Is ATs 65B1 C5D9D9F57AD9C5C7 6504 4281 ERR5N DC CL36*ERRS:REG SPECIFIED CAN**T BE ALTERED.* 
6448 0740E2E3D6D740C9 4240 65B9 40E207C5C3C9C6C9 4281 
64B0 E240404040404040 4240 65C1 C5C440C3C1D57DE3 £281 
6488 404040C1E3 4240 65C9 40C2C540C 103E3C5 4281 
4241 ® 6501 09C5C44B8 4281 
64BD 4242 CIMSG EQU * € 4282 * 
64BD C3D0605E309060340 6407 4243 CIMSGN DOC CL27T*CONTROL STORE MICRGINSTR at? 6505 4283 ERR6 EQU * 
64C5 E2E3D609C540D4C9 4243 6505 C5D90SFE7AD5D640 65FA 4284 ERR6N OC CL38*ERROZNO COMMA/BLANK FOLLGWING GPERAND. * 
64CD C30906C905E2E309 4243 ‘ 6500 €3060404C161C203 4284 
64D5 40C1E3 4243 65E5 C1050240C6D6D303 4284 
4246 & 65ED D6E6C955C740D6D7 4284 
6408 4245 MSMSG EQU * { 65F5 C509C105C448 4284 
6408 E2ESEZE361F340D4 64EB 4246 MSMSGN DC CL20*SYST/3 MAIN STGRE AT* F 4285 # 
64EO CiC9D540E2E306D9 4246 : 65FB 4286 ERRT EQU)  # 
64E8 C540C1E3 4246 é 65FB C5D9D9FTTAE4DSC4 6617 4287 ERRTNR DC CL29*ERRT7T2UNDEFINED OPERAND FIELD.? 
42467 * 6603 C5C6C9D5C5C44006 4287 ; 
$4EC 4248 OLSMSG EQU * 6608 D7C509C1D5C440C6 £287 
64EC C403E240C1E3 64F1 4249 DLSMSN DC CL6*DLS aT? £ 6613 C9C503C44B 4287 
4250 * £288 * 
64F2 4251 ZLSMSG EQU * ; 6618 4289 ERRB EQU *& 
64F2 E9D605C540D3D6C3 6504 4252 ZLSHSN OC CL19* ZONE LOCAL STORE aT® c 6618 C509D9F87ACIDSES 6638 4290 ERREK DC CL36*ERRSZINVALIO EXTERNAL REG SPECIFIED.§* 
64FA C1D0340E2E3D6D9C5 4252 : 6620 C1D3C9C440C5E7E3 4290 
6502 40C1E3 4252 6628 C509D5£°9340D9C5 £290 
4253 % & 6630 C740E2D7C5C3C9C6 4290 
ay 6505 4254 COMSG EQU * : 6638 C9IC5C44B 4290 
6505 C3E3090340E2E3D6 651C 4255 CDMSGN OC CL24*CTRL STORE DATA LEFT aAT® 4291 * 
650D 09C540C4C1E3C140 4255 € 663C 4292 ERRO EQU) * 
6515 03C5C6E34040C1E3 4255 663C C5D909F97AD50640 665D 4293 ERRON DC CL34*"ERROZNO COMMA/BLANK IN DATA FIELD.? 
£256 * 6644 C3060404C16102D3 4293 
651D 4257 ALSMSG EQU) + if 664C C1050240C90540C4 4293 
6510 C103£2C2 6520 4258 ALSMSN OC CL4*aLsse aed 6654 C1E3C140C6C9C5D03 4293 
4259 * 665C C448 4293 
6521 4260 REGNSG EOU * '€ 4294 * 
6521 C9060740C5E7E340 6528 4261 REGMSN OC CL1i* IOP EXT REG oes 665E 4295 ERR1O EQU 
6529 DIC5C7 4261 es 665E CSO9D9FLFOTAC3E2 6683 4296 ERRION DC CL38*ERRLOSCSTP GPERAND NOT FOLLOWED BY 071° 
4262 * i € 6666 £3D7400607C509C1 4296 
652C 4263 RANMSG EQU) * 666E 05C440D5D6E340C6 4296 
652C D9C105404040F 140 6545 4264 RANMSN DC CL26"RAN i CYCLES THEN HALTED* ; 6676 06030306E6C5C440 4296 
6534 C3E8C3D355E240E3 4264 | © — 667E C2EB40F061F1 4296 
653C C8C50540C8C1D3E3 4264 | 4297 * 
6544 C5C4 4264 Donne 6684 4298 ERR1i EQU) # ; 
6538 4265 SSIOP EQU RANMSG+12 €. 6684 CSO9D9FIFI7AC2D6 66A9 4299 ERRIIN DC CLS8°ERRIESBOUNDARY ALIGNMENT ON (XxX) ADRS.? 
“266 * re 668C ESD5C4C1D9EB40C1 4299 
4267 * -_-- aaa -—- ar a 6694 D3C9C705D4C505E3 4299 
4268 * **z ERROR MESSAGES #8 *' ¢ 669C 400605404DE7E75D £299 
4269 t~--— SL Ne ee mn 66A4& 40C1C409£248 4299 
£270 * 4300 * 
6546 4271 ERR1 EQU 2 Bae: 66AA 4301 ERR12 EQU +# 
6546 CSDIDIFITACIODSES 6564 4272 ERRIN DC CL3L*ERRIZINVALIO COMMAND SPECIFIED. * 66AA CSOSDSFIF2Z7AC9D3 66CD 4302 ERR12N DC CL36"ERRI2Z:ILLEGAL GPERAND FOLLOWING CMD.* 
654E €C103C9C440C 3D6D4 4272 6682 D3C5C7C10340D607 4302 
6556 04C105C440E207C5 4272 € 66BA C509C 105C440C6D6 4302 
655E C3C9C6CIC5C44B 4272 : 66C2 030306£6C905¢740 4302 
4273 ¢ 66CA C304C448 4302 
6565 4274 ERR2 EQU «© 6 &: £303 * 
6565 CSD09D9F27A05D640 658A 4275 ERR2N OC CL3BSERR22NO COMMA/BLANK FOLLOWING COMMAND. © 66CE £304 ERRIZ EQU « 
6560 C3D604D4C 1610203 4275 66CE CSDIDOFLF37AD6C4 66F2 4305 ERR13N DC CL37*ERRIZS00D # OF DIGITS IN (MS) STRING.? 
6575 C1050240C6060303 4275 7 : { 66D6 C440784006C640C4 4305 
6570 D6E6CS05C 7460306 4275 66DE C9CTC9E3E240L9N5 4305 
6585 04D4C105C448 4275 66E6 4040D4E25040E2E3 4305 
4276 + G 6s€E v9c905c748 4305 ~ 
658B 4277 ERR&S EQU #2 £306 @ 
DATE 23aUG7TS OSNOVTS 24MART6 PROG 10 C19-2 owe 23AUG75 OSNOV7TS 24MART6 PROG 10 C1i9s-2 
EC NO. 827785 827827 827879 PAGE 33 eo” NO. 6827785 827827 827879 PAGE 33a 








Cig92 
ER® LOC 


66F3 
66F8 
6703 
670B 
6713 


6718 
6720 
6728 
5730 
6738 


673E 
6746 
674E 
6756 
675E 


6761 
6769 
6771 
6779 
6781 


6787 
678F 
6797 


6T9F 
6TAT 
6T7AF 


D&TE 
EC &O. 


CBJECT CODE ADDR 


66F> 
CSD9DSFIF47AD6D7 6717 
C509C 105C461C 104 
C409C5E2E240C6C9 
C5D3C440C9E240C2 
D3C 1050248 


6718 
CSD9D9F1F57AD506 6730 
“0E5C 103E4C540C6 
060303 06E6C905C7 
40C 103E3C5094009 
CS5SCT40C3D4C4% 


673E 
C5D9D9FIFETAC9DE 6760 
D740C8C103E3C5C4 
40C4E4(540£30640 
C3C8C5C3D240E2E3 
060748 


6761 
CSD9D9FIFTTAC9D6 6786 
0740C8C103E3C5C4 
40C4E4C540E3D640 
C1C4D9E240C3D6D4 
D740E2E3D607 


6787 
CSD9ODOFLFBTACODS 679E 
E5C103C9C440C IC 4 
C4D94009C1L DSCTCS 


6T9F 
C30605E20603C540 6784 
D2C SEBC2D6C109C4 
40C50909D6D9 


Z238UGTSE OSNOVTS 
SB2778S 


827827 


1BH MAINTENANCE OLAGNOSTIC PROGRAK 


STMT 


4307 
4308 
4308 
308 
4308 
4308 
4309 
4310 
4311 
4312 
4312 
4311 
431% 
4312 
4313 
4314 
4314 
4314 
4314 
4314 
4315 
4316 
4317 
4317 
4317 
4317 
4317 
£318 
4319 
£320 
4320 
4320 
$325 
4322 
4223 
&323 
4323 


4326 & 


242276 
E27S7S 





PART NOW 


PAGE 


3340 ADAPTER MANUAL OPERATIONS PGM ~ HOD 212 


STATEMENT 


EQU 
oc 


EQU 
+ 


eQu 
bc 


EQU 
oC 


EQu 
oc 


eQu 


ERRT1M DC 


s 
CL37°ERRIGIOPERAND/ADDRESS FIELD IS BLANK. ¢ 


& 
CL3S°ERRISSNO VALUE FOLLOWING ALTER REG CKDe 


€& A 
CL35*ERRIGSIOP HALTED OVE TO CHECK S7oP.* 


& 
CL38°ERRIT2IGP HALTED OUE TO AORS COMP STaP® 


= 
CLZ4°ERRISTINVAL EO ADDR RANGE® 


& 
CL22°CGNSOLE KEYEGARD ERROR? 


PROS 10 
PAGE 
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C192 3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 


“ERR LOC OBJECT CODE 


@ 


CATE 23AUGTS 
EC NOW. 277S5 


ADOR STMT 


4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 


SGURCE STATEMENT 


SEERKERSSSLSSKSSKSHAIRSESKKSKERKSTSERKS SLERSSSSRESSSLS SESH ATASSKSSSSSKASISE 


























* * 
& SYMBOL OEFINITIGNS * 
& 3 
HSSERESRGSSLKKKSSSASSSSE SESTSHSERESVSSRKS ESE RLS LATCAESKSSRSSTHSKHSRRSSSHOSE RE 
= : 

* LOCAL STORE REGISTERS 

¢ 

RRL EQU x°Q 6 INDEX REGISTER 1 

XR2 EQU X*02° INDEX REGISTER 2 

& 

ARR EQU X*08? CURRENT LEVEL ADDRESS RECALL REG 
PSR EQU X°OGe CURRENT LEVEL PROGRAM STATUS REG 
PRIAR EQU x® 208 PROGRAM LEVER 12 INSTR ADDR REG 

TAR1 EQU X*co* INTERRUPT LEVEL 1 JAR 

s 

& MESSAGE / HALT IDENTIFIERS 

& 

HLTOO EQU X*C100¢ NO HALT 

HLT7i EQU x*ci7visc 5471 KEYBOARD ERROR 

& 

Gi rere ee eee anes. —aes 

* 3340 PROGRAM COMMUNICATION AREA (CON) INDICATORS 


MICROPROCESSOR ADOR STGP ENABLED 
MPL. COMMAND INHIBITED 
AMOP CALLED FROM ANOTHER SECTION 


& 
ADRSTP EQu xX*808 
NOMPL EQU X*4Q? 
AMOP SW EGU x*O1°¢ 
= 








&. eens eres ac REF LINE ASS RES OED AES BE A AE BTA AA PA AND LNCS AP = 
s 54/1 KEYBOARD PRENTER UNIT EQUATES & 
s : 
PRT EQU X*1s# CONSOLE PRINTER 

KEY EQU X*10° CONSGLE KEYBOARD 

PRINTE EQuU X*e0° PRINT ONE CHARACTER 

RET €QU K°41e CARRIER RETURN 

= 

Sh a ee etree eee et een eee erene an cance en erm ears caren e-alerts tanoe 
& DCP SECTION REFERENCE TABLE 

* an 

TEST * €QU X*O0212¢ CHECK CONSOLE SWITCHES 

LINK EQU X*O216* . LINK TO NEXT RGUTINE GR SECTION 
PRINT  EQU X*O21A* PRINT A MESSAGE 


UNP ACK EQU X°O21E° UNPACK DATA =~ HEX TO EBCDIC 

HALT EQU) X*O222¢ HALT AND DISPLAY MALT IDENTIFIER 
‘PACK EQU X*02268 PACK DATA = EBCDIC TO HEX 

L_Gad EQU X*O22a° {GAD NEXT SECTION OR RECORD 

* 

SIZE EQU = X*0203¢ MAIN STORAGE SIZE 

UTAB EQU X*0232¢* UDT ENTRIES 

& 

SBYTEO EQU x*0208* COMMUN SENSE SHIYCHES 06~07. REH 
SBYTE2 EQU X*°O20A° COMMON SENSE SWITCHES 10-17. REH 


SSWOS equ X°Q4? USE ALT PRINTER ~ 5471 KYBOD PRTROREH 














4380 SSWi6 EQU = xt O2¢ ENTER VIA CONSOLE OATA SWITCHES. REN 
438i + 

4382 t---—— 

4383 OTHER REFERENCES EXTERNAL TO THIS SECTION 

4386 ©€ : 

385 t.OR EQU x*6CO0F 3340 MICROCGDE LOADER PGH — MOD 12 
4386 & 

42387 ERD 

24MARTS PROG ID Cid2~ 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C192 3340 ADAPTER MANUAL GPERATIONS PGH - HOD 12 


SYMBOL T LEN VALUE OGEFN 
AaCMP A001 5988 3139 
AALSB A 001 5A30 3262 
ABLEL A 006 5824 2905 
ABLE2 A006 5858 2925 
ac a.002 6082 4052 
ACOL A 001 5809 3411 
ACDR A001 584F 3461 
ACOSKP A 004 54C1 2558 
ACMO A 003 4485 0714 
ACMD1L A003 44C2 0721 
ACMD4 A 004 4553 0788 
ACMSG A 001 64A0 4239 
ACMSGN A029 64BC 4240 
ACS AOQOl 5A89 3358 
ADLS A 001 SA4A 3283 
ADRCMP A 005 5SE2B 3765 
ADRERR A 004 45A9 0823 
ADRS A001 5E1D 3779 
ADRSTP C 001 O08O 4351 
AOS A002 6131 4131 
AEXT & 001 SaéC 3307 
AIN A 002 6106 4160 
ALSAOR A 0G1 5928 3051 
ALSB A 004 G60AA 4075 
ALSBO A002 592A 3052 
&LSD A 004 60AE 4076 
ALSL A 004 60A2 4073 
ALSMSG A 001 6510 4257 
ALSMSN A 004 6520 4258 
ALSP A 004 5690 2756 
ALSP2 A 004 5759 2816 
ALSTBL A OO] SFIF 3902 
ALSU A 004 609F 4072 
ALTOIS A 004 4F4F 1984 
ALTMS A006 52D4 2342 
AMB A 00% S9ES8 3212 
AMOP A002 40012 0047 
AMOPGO A 004 4049 0102 
AMOPID A 002 OALE 0033 
AMOPSW C 001 0001 4353 
AMOPX A004 4041 0073 
AMOP1 A006 401F 6062 
APTR A 002 615D 4144 
APTRN@ A O0G2 SEBC 3880 
APTRNK A 004 GOFT 4102 
ARR C 001 0008 4337 
ASTRSK A 006 SE3C 3792 
AZLS A001 SAlL2 3240. 
BAT A 003 SE41 3799 
BEGIN A OOCL 0009 0006 
Bini A002 5SE23 3781 
BLANK A 001 SEOD 3775 
CCHK A 004 SCCO 3618 
CCHK1 A 004 SCElL 3630 
co & 002 SE3E 3798 
CocTrR aO001 SES? 3832 
COCTR1 A 001 SE8B 3833 
COCTR2 A O00 SEBS 3834 
co. 4 0C3 6091 4060 
CDOLS1 A 004 5SC44 3569 
COLS2 A 00% 5048 3571 
COtS3 A003 SC66 3585. 
DATE 23AUG75 oSedv7s 
827827 


EC NO. 827785 . 


4 


CROSS-REFERENCE 
REFERENCES 


2139 
2718 
29044 
29244 
o757 
2557 
2553 
2555 
0181 
O716 
0640 
2142 


1990 


1526 4041 


1032 1134 1152 1325 1371 1389 


2196 
2406 
21358 
0795 
o797# 
0366 
0637 
2860 
1618 
0537* 
3041 
1358 
0548* 
1402 
2411 
2703 


2763 
2747 
2456 
1408 
O777 
1163 
1102 
2060 


0068 
0051 
00492 
0057 
0468 
3638 
3880 
0049 
1828 


2490 
2712 


0555 
0306 
1480 
3610 
3622 
1278 
1220¢ 1223# 1224 
2792 

0973¢ 0984 10006 1263¢ 1269 12984 
09742 C981 

1168 2008 


2143 
0843 
os0o0 
2137 


3608 
0890 
1180 
2149 


1035 1064 
1183) «62135 


21137 «#1155 
2181 2332 


1864 
0539% 0540 0540* 0541 
2017 


0552 2759 3044 3046 


2822 


2744 2769 2801 2807 2813 


o807 0812 
1232 1283 
1106* 2340 


0834 
1296 


0851 
1356 


0054 0070 O220 0257 


0537 3639 


0393 1537 1859 


o755 
1522 


0794 0842 0889 


3572 


24RART6 
827879 


nee ame eT ae 


on “A 





0541* 0555 


0998 1014 1029 1046 
1460 1417 1477 1488 


1034 1136 


PART NG. 
PAGE 


1458 


1178 #1218 #1374 1392 
2540 


O557 2745% 2754 2760% 2762 


1107 #1125 1146 


1940 1959 2893 3688 


115@ 1177 1217 1373 1391 


1231* 2576% 2634 2653* 2668 2765% 2785* 2786 2789 


PROG ID 
PAGE 


4247615 
35 


C19- 
35 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


c192 


€ SYMBOL 


_ COLS4 
COMOVE 
COMSG 

_ CDMSGN 

i COR 

COSwW 
col 

’ ¢02 
CexTl 
CExT2 
CExT3 
CEXT4S 
CHAR2 
CHAR2A 
CHAR2D 
CHAR2E 
CHAR 2F 
CHAR2G 
CHAR2W 
CHAR3 
CHAR3A 
CHAR3B 
CHAR3C 
CHAR3D 
CHAR3E 
CHAR4 

CHARSA 
 CHAR4B 
{ CHARSC 
CHAR4D 
CHARGE 
£ CHAR4F 
CHAR4G 
CHAR4SH 
t TSHAR4I 
CHAR4J 
CHARSK 
{ CHAR4SL 
' CHAR4M 
CHAR4N 
¢ CHAR4P 
' CHAR4Q 
_ CHAR4SR 
€ CHAR4S 
” CHAR4V 
CHAR4X 
€ CHAR4SY 
CHAR4SZ 

_ CHK 

& CHKNM 

CI 
. CIAR1 
&{ CIAR2 
CIBUF 


CICTR 


- 


~~ 


CICTRI 
CIFOND 
( CIMOVE 
CIMSG 
_ CIMSEN 
&, -<CIRCHD 
Cisw 


DATE 
Ec wo. 


@ 


3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 


T LEN VALUE 
A 004 
A 005 
A 001 
A 024 
A 003 
A 001 
A 006 
A 006 
A 004 
A 004 
A 003 
A 004 
A 006 
A 004 
A 004 
A 005 
A 004 
A 004 
A 004 
A 005 
A 004 
A 005 
A 006 
A 004 
A 004 
A 005 
A 006 
A 006 
A 004 
A 00% 
A 004 
A 006 
A 005 
A 005 
A 004 
A 004 
A 005 
A 003 
A 005 
A 004 
A 004 
A 003 
A 004 
A 005 
A 004 
A 004 
A 004 
A 006 
A 002 
A 004 
A 002 
A 004 
A 003 
A 005 


5C€93 
5576 
6505 
651C 
6094 
5E83 
4934 
“98D 
SBF4S 
SBF8 
5COE 
5C34 
44F8 
4534 
453F 
455F 
4591 
4599 
4528 
480E 
4824 
4839 
4882 
4885 
489F 
499E 
4980 
49FB 
49E0 
49E8 
49F3 
4A67 
4A20 
4A4C 
4A04 
@AEE 
4AB8 
“ACC 
4AF6 
4815 
4839 
‘4855 
4B64 
4841 
4A8D 
4A95 
SAA1 
4A78 
6158 
60F3 
6084 
SBA3 
5BBA 
5A88 


A 001 SE86 
A 001 
A 004 
A 005 
A 001 
A 027 
A 004 
A 061 


5E96 
45E7 
5241 
648D 
6407 
456C 
5SE92 


23AUG75 
827785 


DEFN 


3598 
2642 
4254 
4255 
4061 
3828 
1265 
1298 
3535 
3537 
3546 
3559 
0755 
0775 
0779 
0794 
0814 
0817 
0769 
1120 
1127 
1136 
1165 
1181 
1174 
1320 
1327 
1358 
1348 
1352 
1355 
1402 
1373 
1391 
1361 
1460 
1438 
1447 
1463 
1476 
1490 
1502 
1507 
1493 
1416 
1419 
1425 
1408 
4143 
4101 
4053 
3505 
3514 
3351 


3831 


3850 
0879 
2282 
4242 
4243 
0798 
3846 


OSNOV75S 
827827 


REFERENCES 


3593 
2669 
2535 


1171 
2595 
1267 
1266 
3529 
3549 
3538 
3554 
0722 
0758 
O776 
0783 
0764 
0767 
1172 
0728 
1166 
1131 
1122 


2011 
1299 


0725 


0815 
0786 


1426 
0731 


1169 
0734 
1322 
1328 
1337 
1340 
1331 
1359 
1368 
1386 
1406 
1455 
1449 
1439 
1468 
1464 
1433 
1494 
1481 
1504 
1409 
1362 
1414 
1403 
0449 
3626 
0763 
3517 
3506 
21944 
3347 


0737 


1350 


2505 


1412 


0993 


2201 
3362 
3403 3415 
3467 3471 
0307* 0313 
2304 2353 
2190% 2214% 
08046 

2305 

2180 


0803 0814 


24MART6 
827879 


CROSS-REFERENCE 


2627* 2657¢% 


0818 0821 


1993 


2283% 
3364 
3417 
3473 
0320 
2360% 
2216 


2287 
3368 
3421 
3477 
0323 
2766% 
2274% 


0879% 2234 


2551% 2561 
3370 3372 
3423 3427 
3479 

0324* 0892¢ 0909% 2101% 
2781% 27842 


2643€ 2651 
3377 3379 
3429 3443 


2266% 2293 


3336 
3381 
3445 


210388 


: 


3338 
3394 
3450 


2216 


4247615 


PART NO. 

PAGE 355 
3343 3345 

3396 3401 

3452 3465 

2273* 2289% 

PROG 1D. ss 9-2" 
PAGE 350 
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-€192 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 


C192 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 — : ; 
CROSS-REFERENCE | | CROSS-REFERENCE 
| 
j 
{ 


SVMBOL T LEN VALUE DEFN REFERENCES 


C°SYMBOL T LEN VALUE ODEFN REFERENCES 


C12 006 46C3 0978 0982 1001 


tT 
A Z ocs A001 SA92 3332 2284 
C12 A 006 4703 2000 0979 f DOLS AO00L S9AO 3157 2460 
CLIN] A 004 5SB91 3500 OEC1IS A O02 5006 3750 0559 
CLIN2 A 004 5805 3526 é ext A 002 5004 aes cone 
CLIN3 A004 SBE6 3531 3557 | ' € DEXT A OOL SOCC 319 
CLING A004 5C38 3565 DLS A 003 6088 4058 1165 2002 
CLINS A 004 5€9B 3605 3596. _ _ DLSAD A 001 5E26 3783 3566 3580 3586¢ 
CLIN6 A 004 SCE9 3637 ' € DLSADN A 002 5C62 3581 3576¢ 
CMDERR A 00% 410E 0206 #0199 1737 1762 OLSADR . 001 oo3F 2038 0585e 3087 
CMORT@ A 001 6070 4036 1726 
CMDTBL A 001 606A 4028 1744 { DLSIN A 001 5960 3099 0592 3093 
CMPFLG A 001 SE27 3764 21468 2152% DLSLOP A 004 53C7 2457 2467 
CMPPRT A 004 S877 3489 0295 0334 0352 1644 1656 1662 2116 — OLSMSG A 001 64EC 4248 2400 
com A 001 0A19 0029 0051 0054 0059* 0070* 0127* 0198 0220 0223 0236 0242 0257 0366% i € ot Sask 7 ane one! aces sate 
1736 2137¢ 2149 
come AO00S 6158 4241 3606 3608¢ ee OrSee - ons ae ies pete “ 
COMPNM A 005 G6GOEF 4100 3614 Pe 
CONV. A O01 SEL9 3778 0924* 0925 0929 0947 0951 0972 ' ~ OLSOF A 004 6253 4140 0670 0672 ; 
CONV1 A001 SE85 3830 1252. 1262 1274 2567* 2570 _ BLSOL A 004 6137 4133 0593 0642 0644 3567 
CONV2 A901 SDFD 3770 1157® 1160 1247 1251 1394 1397 2571 2573 - € OLSO3 A 004 6138 4134 0646 0648 
CONV3 AOC] SE16 3777 0306% 0308 0327 0914 0924 0987¢ 0988 2207% 2210 _  OLSOS A 004 613F 4135 0650 0652 
CONV6 A OO] 5E13 3776  #$0908% 0913 2211 2213 i oes ' oo ee a2 pert bere 
£02 A002 6133 42132 0639 {. 
CPTR1 A 004 SCFB 3642 3654 | ” OMB A OOL 59FB 3221 2084 
CPTR2 A003 5012 3651 3643 | , DOALS A 00¢ 437F 0543 0558 
CSNS2 A004 5038 3666 3659 € DODLS A 005 4364 0585 0597 
CSTBL A001 SECT 3894 0893 1221 2191 2548 | “ DOLIGL A 004 582A 2907 2901 " 
CSTBL1 A001 SEEF 3896 2192 2275 2307 2549 2635 2671 | _ OONEXT A 003 582E 2909 2921 2926 . Se 
i _CSTOP A 001 6159 41462 1355* 3618 36208 € DSAR A105 6117 4118 
cote A 00% 6046 4074 1327 2014 ! osane : poi eu an? oseae 05228 te ee ae 
VDi A004 4166 0317 0312 
eves eee fuse Gant aan, | ratte A GBs eee itis ee 
4208 
CVMSAL A002 47EE 2099 10948 | _ OTSW1 A004 4E22 1645 1334 
CVMSA2 A 002 47FO 1100 1095* 1102 11030 | Sa : ace a isee 1912 
CVMSLN A 001 47EC 1098 1068* 1071 1077 1082¢ 1085 W 
CvCk AOQOl 5987 3232 0273% O274% 3126 i ee : oe a reas ppd 1062 1128 1149 1215 1292 1365 1383 1452 
CYCLE A 004 4174 0269 0178 O702 1723  OTSW 2 
CYCLE] A 00% 4178 O270 0705 | OTSW2B A 004 4EDS 1914 1865 1878 1900 1908 
CYCLE2 A 004 4216 0334 | _ DTSW2C A 004 4£90 1889 1884 
CYCLE3 A004 4184 O275 0279 | € OTSW2N A 004 4E2D 1849 1072 
CYCLES & 004 418D 0297 0286 “OTSW4 A 004 4E38 1853 0780 1023 1175 
noe A001 5E82 36827 0285 O29T* OT04¢ Carn A aoe ser sane pods 10g? 
17 A002 4155 0240 0225 0228 -DTSW6A A E 
cis A002 SE2E 3787 0063 . | DTSW6B A 00% 4E47 1859 1847 . . 
C19 C 001 0C19 0015 0033 0067 | — oxe A 002 6127 4126 0627 3533 i 5 : 
DATASW A 002 5E30 3788 1698@ 1699 1714 1752 1759 1768 1775 17926 1803 1812¢ 1817 1872¢ | € °DXCNM A 003 0 4092 sere : 
187% 1891 ~ OXCNMa A 002 8 : 
DCDL £001 SAEB 3390 2648 | oztS A001 5988 3176 2481 
DCOR A OOL 5832 3439 2644 | € €RONAM A 001 SFFD 3968 1811 2842 
DCOSKP A 004 SSSF 2649 2646 “ERDTBL A 001 6040 3990 1810 2841 
OCDSM A 001 5E9® 3852 25368 2579 25990 26258 | pte ele 4271 0206 
1 A004 5565 2629 2597 | _ RIN 0 
DCO2 A 00% 5581 2660 2656 | & ERR10 A 001 665E 4295 1344 
DCO3 A 006 SSCS 2667 2661 | ERRION A 038 6683 4296 1344 1345 
DCD¢ A 004 $503 2671 2658 2665 | € ERRLL A OOL 6684 4298 0993% 0996 1278¢ 1281 
OCISW A O00 SE97 3851 2183* 2219 2236¢ 2265¢ sean ‘ oe eens — aeye oe 1281 1282 
OCIl A 00¢ 522C 2268 2236 
DCI2 A 004 S272 2296 2292 ( ‘ERRL2N A 036 66CO 4302 O741 0742 1421 1422 
0CI3) A006 5285 2303 2297 “ERRL3 A001 66CE 4304 . 1090 
OCIS «A 004 5293 2307 229% 2301 ERR13N A 037 66F2 4305 1090 1091 
DCMD A005 4670 1522 018% 4042 x | € ERRI4 & 001 66F3 4307 0825 
OCMDSW A 00} SESS 38468 0150* 0775 0806 0817 0833 0883 1124 1145 1212 1330 12362 1416 ERR14N A037 6787 4308 0825 0826 _ - _ 
1432 1476 1525 2032 2077¢ 2132 2184 2263% 2334 23448 2407 24334 | ERRI5 A OOl 6718 4310 1509 Ae oF e 
2471% 248% 2542 2624 2709 2743% 2855 2880 | €€RR15N A 038 6730 4311 1509 1510 by SRT - . 4 5 
OCMDl A 00% 4880 2528 1523 ERR16 A 0Ol 673E 4313 1642 . - 
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DATE 23AUG7S OSHOVTS  $ 24NART6 ‘PROG 1D 132 DATE 23AUG7S OSNOV75  24MART6- = = - © pty > PROG 10 c19-2" 
EC NO. 827785 e27e2? 827879 PAGE EC NOw 827785 827627 627879 oe | . PAGE . 36A 
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18M MAINTENANCE DIAGNOSTIC PROGRAM | PART NOs 4267615 18% MAINTENANCE DIAGNOSTIC PROGRAM ise | PART NOw 4247615 — 
‘ PaGE 37 | @ doe PAGE 37A 
C192 3340 ADAPTER MANUAL CPERATIONS PGM = MOD 12 : €192 - 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 
| CROSS-REFERENCE © CROSS-REFERENCE - 
SYMBOL T LEN VALUE DEFN REFERENCES | (USYMBOL T LEN VALUE OEFN REFERENCES 
ERRIEN A 035 6760 4316 1642 1643 oe Oe __. INPOS & 002 5E36 3792 1790* 17968 1827 1832% 1862 1864 1915° 19308 , 
ERRIT A 903 6761 esis 1056 ae . ; " € ANPUT A OOL 610C 4169 0175 1456 1457 1479 1541 17178 1718 1718® 1744¢ 1747 1760 1835 
ERR17N AO 86 x Po : 1929 4160 
ERR18 A 001 6787 4319 1050 . a . _ TOPHLT A 004 4C4R 1631 1572 1970 
ERRIBN A 024 679F 4320 1050 1051 a R 4 € IOPHL2 A 00% 4C6C 1646 1635 1636 
ERR2 A002 6565 4276 0690 | 1OPHL3 A 004 4C86 1658 1647 1650 
ERR2N & 038 658A 4275 0690 0691 ' . TOPREG A 004 428C 0434 0283 0350 1632 2115 
ERR4 A001 6588 4277 1498 ' £ IPAPTR A 002 590C 3028 0460 0506 0519 0525 1649 2976 
ERRON A038 6580 4278 1498 1499 _- . ' " EPCHK A001 590F 3030 0448 1637 2943 
ERRS AOOl 6581 4280 1443 IPCSTP A 001 SE2C 3786 1349* 1353% 3620 | 
‘ERRSN A 036 65D4 4281 1443 1444 — 3 . £ IPHALT A001 S86E 2937 0270 0396 
ERR6 A001 6505 4263 0790 IPKREG A 001 $904 3027 0273 03679 1348% 1352¢ 1634 1646 2136¢ 3024 3112 
eRnon A 038 oer aoe pi 0792 : IPLINK A 002 S590E 3029 0499 0502 2978 
RRT A001 65FB 4286 . € IPSTAT A001 5872 2941 0399 
ears P| oes re a8 or?) o772 .  IPSTEP A 001 5973 3120 0275 
R71 A 6 6 © _ IRET A 00% 4419 0606 04348 
ERRTIN A 022 6784 4323 1604 1605 ' € KBLOOP & 004 48DA 1580 1576 
ae A oo} esis — eee see ‘ EY € 001 0010 4359 1546 1570 1577 1589 3696 3721 3736 
A KYBOEC A 004 40C9 0175 1706 +H FS 
ERR9 =A 001 663C 4292 0903 1242 € KY8DI & 004 SOCO 3733 3737 3882 
ERRON A oss 6650 sz2 eons 0904 1242 1243 ' KYBDI@ A 002 SEBE 3882 3695 : 
EVEN] A 003 4997 1301 1270 . _ KYBENT A 00% 40C5 0168 
EVEN2 A005 46£1 0988 o985 | € XYSTAT A 002 61C@ 4159 1580* 1582 1585 1593 1596 1599 1611 1612 
EXEC A006 53D2 2661 2482  « KOF A002 SDF2 3765 2345 
EXTADR A 001 5945 3075 05678 3065 : K0000 A 002 SDE8 3760 0113 2232 2593 3733 
exrih ‘ - aoee a or 3070 { 0001 A 002 SDEA 3761 100 1067 1082 1286 1946 2303 2667 
. -€0003 A002 SDEC 3762 3547 ; 
FBI A002 611D 4121 0616 KO004 A002 SDEE 3763 3652 . e 
: FBO =64 002 6119 4119 0575 0612 3528 € K000S A002 SDFO 3764 3515 : | 
ere FBONM A 003 60CO 4085 3878 - ~ KE A001 SES8C 3840 0278 0313 05469 0909 0981 1000 1082 1223 1232 1298 1829 2108 a 
FBONMa A OU2 SEBS 3878 3527 | ; 2214 2289 2299 2360 2464 2576 2653 2663 2760 2781 2785 3516 Pe 
FHF A002 6121 4123 0620 -€ 3548 3587 3653 3715 
FROTSL A 001 6062 4013 28516 2859¢ 28820 3198 3313 K10 A OOR SESE 3842 03146 
aid A ose oz ai2s oeze | _K2 A001 5E8D 3841 1910 3586 
i € 20, &001 SEBF 3843 2092 
oe a one ares ghee eee: i ¢ «8000 A002 SDF& 3766 0110 
'  tB2 A 00% 5710 2798 2787 
SCMD A003 4478 0682 0167 4037 i (482 A 004 5731 2804 2790 
GCMDX A006 4485 0688 0719 "£83 + =& 00% 5765 2810 2793 
GCND1 & 005 4491 069% 0606 : LOR € OO 6C0O0 4385 0228 0246 
Setats a aes sass ose aes 0529 | €AORGO A 004 415 024% 0229 
056 LORIO A002 Oalc 0032 0225 
Watt C001 0222 4370 1608 1695 1669 . , . LORPRT A 00% 4141 0232 0226 
uCRD A008 4218 — 2 1531 2015 4038. - €10Sw  € 002 0001 3836 0056 9107 0129 
LINCTR A 001 SE9A 3854 36999 37159 
HONGN A 040 6368 4201 0103 0104 / LINK € 001 0216 4367 0260 
HES A002 612F 4130 0635  € ARRTRN A006 4039 0070 0258 : 
HLTOO € 001 C100 4345 0105 ; _ ~ LNKSKP & 006 4324 0506 0503 ; 
HLT71 C 002 Ci72 4346 1606 1609 _t0AD C001 0224 4372 0238 
HRET A004 4288 0493 03936 . _ Er0c = 4,001 = 5E21 3780 «=—_:00755* 07568 0757 0760 0763 0766 -2120% 1222 1165 1168 1171 13209 
HSI0P A 006 4268 0353 0281 0343 1631 2030 2130 2179 2399 2534 2702 2840 i 1327 1358 1402 1408 1411 14625 1438 1463 1493 1990 1993 1996 
as Yen. : Sei = $152 3505 3537 3571 3609 3621 3642 3658 1999 2002 2005 2008 2011 201@ 2017 2537 2554 2645 2705 2746. 
; 2844 2853 “eo 
dant a - eo 0553 05569 0559¢ am : + LOT8L A OCO1l SF99 3939 1490 
rN oo 340 0066 O072¢ 36986 | . tRTBL & 001 SFAD 3946 1460 : 
ICMD &€ 004 422E 0360 0193 4039 | Gu “A QO1 621& 4177 0362 1986 2031% 2041 2079 2142¢ 21438 21478 21538 21808 21818 2331¢ 
10x A002 6162 4146 0513 23324 24008 24014 2439 24448 24726 24730 2487¢ 2488%- 2535% 25608 26750 
INACTV A COB 5E59 3804 2153 i 2703% 27128 2713% 2738¢ 2755* 2816* 2852% 2853% 3491 3500 
IND = «A COL SEGA 63835 = 0056 «0107 «01298 01568 OT79 0836 0886 1008 1022 1060 21070 1127 | €eina a0o02 sese 3863 2043% 2080* 21448 2162¢ 22328 23336 24028 24899 2541¢ 25938 270468 27140 
use sie tate. 1290 1333 1366 1382 1451 1686¢ 17056 17208 1849¢ 2854% 3520% 3700 
LIP = A 002 «6210 4176 =. 3870 
INMSG A OOl 61CT 4166 3888 _ - ; G2 A 002 6244 4180  2044* 2070 20738 2078% 2103 2187¢ 2188 2233¢ 2264 2271 2308 2337¢ _ 
INNSG@ A092 SEC6 3888 1944 2355 2410 24228 2628% 2445% 24468 26478 24480 24740 26758 26768 26778 i 
INMSGN A 021 6108 4167 2493% 24948 24958 24962 25458 2546 25948 26268 2632 2672 2716% 2728¢ de See aes 
INPLG A 001 4F26 1950 194850 | @ _ 2T34% 2749¢ 2750% 2751% 2752 2768 2817¢ 2818% 2819¢ 2820¢ 26560 28708 ee es 
Inpna A002 4F28 1952 19428 19466 | 2876? 28819 3526 . = ve 
DATE 23AUGTS OSNOV7S §=—-24NARTE = PROG ID cis-2! Mure asauers OSNOV7S —-26NARTE proc 1D ctee2? 
EC 80. 827785 827827 827879 PAGE 37 | EC NO. 627785  ###§ 827827 827879 PAGE ==“ 8TA 
! 
4 
i 





18M MAINTENANCE DIAGNOSTIC PROGRAM "PART NOs 4267615) .,. IGM MAINTENANCE DIAGNOSTIC PROGRAN . =a PART NO. 4267615 


PAGE 38 ‘i a PAGE 368A 
C192 3340 ADAPTER MANUAL OPERATIONS PGM - NOD 12 e’” 3340 ADAPTER MANUAL GPERATIONS PEM = MOD 12 
CROSS—REFERENCE , CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES C*SYMBOL T LEN VALUE ODEFN REFERENCES 
L2Na A002 SEAO 3864 2072* 21L1® 2229% 2364% 24296 2589% 2735¢ 27998 2877¢ 3553 3556¢ ATR & 004 S868 2929 2693% 
L2e A001 6243 4179 3871 f OP2TBL A O0OL 6081 4051 1781 
L3 A001 6285 4183 2600 35321 . OP3TBL A 00l 6089 4057 1788 . 
L3N@ A 002 SEA2 3865 2805*¢ 3559¢ _ GP4TBL A 0OL 6098 4071 1807 
L3P A 0O0l 6284 4182 3872 { PACK COOL 0226 4371 0695 0798 0846 O911 1040 1097 1140 1158 11813 1249 1377 1395 
L4 A001 6288 4186 0361 0362 6362 0362¢ 1985 1986 1986 1986¢ 2806 3490 3491 3491 8483 . 
3491* 3565 3595¢ 3598 3885 PEC A 002 CAO? 0021 
L4N@ A002 SEA 3866 2811 3591¢ 3592 35996 f PIO A 002 GAOL 0017 0061 
L4P A0Ol 628A 6185 3873 : : PPTR A 002 615F 4145 0483 
L4P68 A002 SEC2 3885 3592 PRBXR1 A 004 5084 3723 3689¢ 3719 
L5 A001 6301 4169 2812 3605 { PRBXR2 A 004 S088 3724 3690¢ 
L5N@ A002 SEA6 3867 2795¢ 36318 ' PRINPT A 004 4F03 1940 1833 1899 1904 
L5P A 001 6300 4186 3874 .  PRINPX A 004 4F29 1953 19400 
L6 A001 6314 4192 3637 ; € PRINT C 001 021A 4368 ©0101 0118 0122 0145 0204 0215 0231 0290 0329 0345 0688 0739 
Lona A002 SEAB 3868 0363¢ 0364 0364 03646 1987* 1986 1988 1988 34936 34694 3494 34944 O769 O788 0623 0901 0994 1048 1088 1227 1240 1279 1342 16e1¢ 
3667¢ 1441 1470 1496 1507 1602 1640 1652 1658 i690 1924 1946 2371 
L6P A001 6313 4191 3875 ¢€ 3678 3709 
4B A002 6088 4055 O7%60 1999 - ~ PRINT] C 001 0080 4360 1613 
MBFOND A 004 4585 0633 OT61 : — PRT C 001 0018 4358 1545 1588 1612¢ 1613 
MBIDX A O01 5SE91 3845 2066% 20498 2082¢ 2092¢ 2093 3226 -€ PRT@ AOOl SEAD 3869 3703 
MBMSG AOOlL 6495 46236 2031 ~ PRTBUF A004 SDS? 3668. 2113 2230 2366 2591 3673 
MBMSGN A Ol] 649F 4237 PRTBX A004 SOBC 3725 368e¢ 
MBTbL A O01 SF1T 3699 2081 2098 f PRT81 A OCS SDID 3702 3716 
MCNT A001 SETE 3823 0538¢ 0546 0549 , " PRTB2 A003 SD9D 3716 3704 
MIAR AOOS 6100 4116 0553 3502 : _ PRTB3 A004 SO7TS 3699 3693 
MIARS A001 6109 4113 0451% 05319 { PRTEND A001 SESC 3856 2235 2596 36978 37348 
MIARN2 A 002 SEB6 3677 3501 : ~ PRTND A OOl SFID 3862 0364 1988 3494 3703 ; 
MIARNM A005 6083 4082 3877 _ PRTREG A004 5043 3673 
MODE AOOl 5E90 3844 2064 2064¢ 2065¢ 2069 2087 2087* 2088* 2090 3232 € PRTRGX A 004 5D53 3681 3676 ‘ io 
~ """" “  WOVNM] A 005 5882 3510 3501* 3515¢ PSR C 001 0004 4338 3733% (ot ee 
MOYNM2 A005 5SCO6 3542 3527 35320 35476 PTADOR A002 5S5D9C 3712 3707 
MOVNMT A005 5009 3647 3636*% 36520 € PTBUFN A O01 6340 4194 0360 0361 0361 0361 1984¢ 1985 1985 1985¢ 3489¢ 3490 (3490 34900 
MPL A 003 SE44 3800 0201 “ PTLENG A OOL SD9A 3711 37068 
MPLCMD A094 411A 0215 0202 1740 _ PTTEMP A002 SECS 3886 1943® 1944 1945 37026 3703¢ 3706. 
MPLOlL A006 412F 0225 0221 ' € PLIAR C 001 0020 4339 373S¢ 
MS A 002 6086 4054 0766 1996 RANMSG A O0Ol 6520 4263 0288 0327¢ 0331 4265 
MSFOND 4 004 477F 1058 0810 , RANMSK A026 6545 42646 0331 0332 
MSG2  &001 6408 4214 0147 _ € RDALS A 0OL 5912 3037 0543 2756 
MSG2N A015 6419 4215 0147 0148 ; ' “ROOLS A OOL 5947 3083 oseT 
MSG3 AOQOl 641A 4217 0347 1660 — ROEXT AOOL 5928 3059 0569 
MSG3N AOL1l 6424 4218 0347 0348 1660 1661 { RDSAV A004 4C66 1625 15378 
MSG6 £001 6425 4220 0217 , .  READKB A 00% 488E 1537 0168 
MSG6N & 015 6433 4221 0217 0216 /  REAOMW AOO3 48ED 1588 1597 12619 
MSG? A&A O01 6434 4223 0234 ‘ ' € READO A004 489A 1541 1586 
MSGIN A019 6446 4224 READOA A 004 46848 1559 1594, 
MSG8 A001 6447 4226 £1692 © _READOB A 003 48A5 1545 . : 
MSG8N A046 6474 6227 2692 1693 ; € READOC A 003 4888 1546 3621 ir 
MSG9 A 001 «26475 «4229 1926 READL A 004 4882 1563 
MSGIN A 032 649% 4230 1926 1927 _REGMSG A 001 6521 4260 2852 
MSMSG A O01 6408 4245 2331 € REGNSN AO1lL 6528 4261 
MSMSGN A 020 6668 4246 REGTBL A 001 6109 4112 0136 0438 0440 1529 3505 3537 3571 3609 3621 36462 3658 4153 
MSOUT A 004 S2FF 2357 2361 i . REGTBN A 001 6165 4149 ©O135* 0136 0136 0136¢ 0438 0438 0639% 0440 0440 0440¢ 1s2e¢ 1529 
MSSAVE A 004 47C8 1085 1075 1078 Z e 1529 1529 4153 
MSSTR A O01 SF3F 3905 1100 2099 2102 2351 2354 REGX A002 43D9 0575 0568¢ 
MSSW A 001) «SE93 «3847 0809 08208 105e8¢ REGY A 002 43FE 0593 oSe6* 
MST8L A 00l SFSF 3908 1106 | ( RET. C601 0061 4361 1545 1588 
MOOFF A 004 4352 0525 0520 : RIARL@ A 002 SECO 3883 3735 
M1OFF & 004 4361 0531 0526 : RIGHT A OOS SE49 3801 2675 
NABLED A 008 5SES1 3803 2147 € ROTBL A OOL 5SF81 3931 1435 
NCOMMA C 001 00640 3838 1720 «(1849 1883 1911 19246 - RSAPTR A COZ SBDF 3002 0506* OS07¢ 0508% 0512 
NEGl A 002 SDDB8 3752 0319 1448 1467 1503 2253 2612 : . RSAREG A 002 58F5 3013 2963 
NEG2 A002 SDDA 3753 2110 2228 2363 2586 3519 a €-RSBREG A 002 S8FO 3015 2971 
NEG3 A002 SDDC 3754 3551 3590 3630 3666. oO RSOREG A 002 S8F1 3011 2959 
NEGS & 002 SDDE 3755 2794 2798 2604 2810 : : " _ RSIARL A 003 5081 3721 3883 fe * - 
MOCK &£ 005 4C1D 1611 1600 et €:RSIOP A 002 SBCA 2991 0599 Se a i 
MOMP2 C 002 0040 4352 0127 ©0198 1736 | ; RSKREG A 002 5904 3022 0368 ; 
DATE | 23AUGTS OSNOVTS 24RARTG . - PROG 1D C19~2 DATE 23au675 OSNOV7S 24MARTO fs a PROG 10 - €2922° 
EC NO. 627785 627627 © 827679 . PAGE 
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Ci92 3340 ADAPTER MANUAL OPERATICNS PGM > KOD Le _€192 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 





1 E 
CROSS-REFERENCE CROSS-REFERENC 
. REFERENCES 
SYMBOL T LEN VALUE ODEFN REFERENCES ( SYMBOL T LEN VALUE DEFN EFERE 
2565 2616 
RSOPRC A 002 58FD 3017 2952 caecon : ooL gene Saas er 
RSOPRR A 002 S8FF 3018 2954 580 
SUBCD9 A 003 55E9 2678 258 
RSOPRY A 002 5901 3019 2956 SUBC] A 004 513C 2179 1994 
RSPPTR A002 5809 2999 0474 2974 # euBeLa AcUGe. “EDLC 22S ee 
BAD Meee. ea ne eon ies SUBCI2 A 004 5205 2249 2203 
Pe RRE Ge O0e oe ae cnaee yes ene SUBCI4 A 005 519E 2207 2309 2312 
aie peek oaee. anes > SUBCI5 A 005 5175 2194 2226 
RINGER cee. see’ (aus rt SUBCI7 A 004 5196 2205 2255 
RTN1L A 004 4084 06129 Olli Olé ejecia Ades” 2626b est ae 
RTNLA A 004 4088 0135 0108 0246 
RTN1B A 004 404d 01506 0143 0208 0692 0742 O773 O792 C827 O905 1052 1092 i244 1346 . §SUBCI9 A 004 510C 2228 ou seas 
1623 1645 1474 1500 L5Li LT1Z 2374 3681 Saber? ‘ 0) saab baa Stone 
2 
See aoe one rt . SUBDL2 A 004 5376 2423 2426 
RUNADP A 004 425C 0381 0683 Seor aa Bb: seece- 2406 Sa0k 
RUNIOP A COL 5961 3105 0381 SNeCLa"A O04 “Saey” oa10 Snot 
RUNSH 4A O01 5EB4 3829 0138% 0395 1559 1961 Sipe occa ee eat ose 
RISAVE A 004 46E&6 0989 0923% SO EGLer ac Gon Sh460- 2408 oe 
SBYTEO C 001 0208 4377 2368 3675 SRebE Tn Goa cae. Bese S56. 2k6a 
SBYTE2 C OOL O20A 4378 0158 1575 oeaeda ah aGe. AEB 3686 econ, 
Sen a 002 6128 4128 (0631 SUBMB1 A 004 S06D 2077 2033 
SCNCDO & 004 480A 1220 SUBMB2 A 004 5685 2084 209% 
SCNCDL A O06 “&8E2 1223 179% © SUBMB3 A 00& 50C2 2105 2109 
SCNCO2 A 003 4901 1234 1225 SUBMB4 A 00% SODE 2113 2075 2155 2431 2736 2796 2878 
: 4 S50E2 2115 2240 2601 
SCNCD4 A 003 4919 1246 1235 1238 . euene” s ace aoe ease cece 
4 76 i 
SENCbe a 005 4945 1276 1302 SUBHSi A 004 SZDA 2344 2335 
SCNCIO A 004 46607 0892 - SUBMS2 A 002 52FO 2350 2346% 
SCNCIL A 003 460F 0895 1012 { SUBMS3 A 004 532B 2374 2369 pee tat ee 
; =e 2020 
SCNCI2 A 003 4627 0907 0896 0899 SUBREG A 00% 5779 zene oe 
SCNCIS A 005 70D 1003 0992 | SUBRGL A 005 5785 28 28 
SCNCS1 A 004 4731 10622 0884 1212 - € SUBRG2 - a0 oes de od 
SENSE A Go: Sige ire toes Sionce A coe gree gent 2aee zene 
CNMS1 A 004 479F 10 
aaiee A 004 47DE 1094 1086 ' € SUBZLS A 00% 5464 2508 2006 
SCSADR A 002 4766 1042 1038% SVCOM A OOL SEBS 3839 0236* 0242 
’ * 0062 0063 2338% 2339% 2340 SVPALS A 002 5A43 3273 2707* 2740% 
Soe aches Sere ee pcece : . € SVPCTL A 004 $863 2893 0271 0276 0370 0383 0397 0400 054% 0570 0588 0600 2062 2065 
Sega oct cide ALG eee 2140 2198 2285 2412 2462 2558 2649 2719 2757 2862 2884 
STARS A OOL G1OE 4115 0452% 05284 
SIARL & 002 SDEG 3759 0072 | | € cure i oe ae aoe puss 0223% 
SIZE COOL 0203 4374 02120 
SNHALT A 002 5E&25 3782 0139 1563 1964 sees A eos ts oe 2 
ensave , ioe Seti Bost base Sea; 2949 ; € SvPTEn i: 902 5860 ocak 01408 0142 O460% 0461 046128 0462 04628 0463 0463% 0467 04748 0475% 
SNSNM A COS 6108 4106 3662 , 0476 0476% 0477 0477% 0478 0478*% 0482 04993 0500% 0505* 0508 15649 
SS10P A O0Ol 6538 265 0293 1566 1965% 1967 2897* 2898% 2905* 2907 2915* 2916% 2917 2928% 2925 
SSwOS C 001 0004 6379 2368 3675 € SWCANC A 004 4EEB 1924 1709 1881 
SSwl6 C OO 0002 4380 0158 1575 SWCMD A O01 6063 4019 1725 «1744 
STRCTR & 002 SDF& 3767 1067* 1061% 1095 1103 1165 ere Cc Oot 0080 3837 6156 eke 0836 obese 1068 Nee yoke 207G 4127 1248 LIT& 1214 
STRZLS & 004 S&1E 2481 2458 1290 1333 1364 8 
SUBAC A 004 SOEA 2130 199i “SWOIGT A OOL SE9B 3855 1845% 1850*% 18536 1856 1894 1967 
SUBAC] A 006 S108 2142 0372 2133 SWENT A 00% 4C€92 1686 C159 0162 1578 1934 
SUBAC2 & 00% 5138 2155 2150 { SWHALT A 002 4€65 1870 1846% 1857# 1906 1910¢ 
SUBALS A 004 55FO 2702 2018 SWIXR2 A903 DED 1821 17979 1815% 1828 
SUBAL1 A 004 566A 2743 2710 SWMV5 A 004 4E0B 1830 18288 18629% 
SUBAL2 A 00% S641 2729 2726 ( SWNTX A 004 4ELE 1837 1745% 
SUBAL3 A 004 565A 2738 2706 SWNT2 A 00% 4CC5 1708 1703 
SUBAL4 & 00& 5608 2709 274) SWNTiA A 005 4CFD 1728 1734 
SUBAL6 A 005 56CF 2771 2782 2802 2808 2814 ( SWNT1B A 005 4026 1744 1729 
SUBCD A 00% S46C 2534 2009 2012 SWNTIiC A 003 4053 1765 1750 
SUBCD1 A 004 5555 2624 2543 SKNTZ2 A 003 4D60 1771 1766 
SUBCD2 A 004 $53E 2610 2563 Z { SWNT2A A 003 4066 1774 1769 
SuBCO3 A 00& 5515 2588 2577 ' SWNT3 & 004 4084 1785 1779 
SUBCD4 A 00S 540D 2567 2673 2679 SWNT3A A 004 46092 1790 1783 7 
SUBCDS A 005 54A9 2551 2586 { SWNTS4 A 003 4DAL 1795 1786 
SUBCD6 A 006 5482 2546 2676 SWRTGA A 004 DCC 1610 1804 
DATE 23A4UG75 OSNOV7S 24RARI6 PROG IC C19-2 © ice 23AUGTS OSNOVTS Z24MARTS PROG ID C192 ¢ 
EC NOW 6827785 827827 827879 PAGE 39 EC NOw 827785 827827 827879 PAGE 398 
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C192 3340 ADAPTER MANUAL OPERATIONS PGM - HOD 12 ci92 3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 


CROSS-REFERENCE © CROSS-REFERENCE 
SYMBOL T LEN VALUE DEEN REFERENCES | ESYMBOL T LEN VALUE DEFN REFERENCES 
SWNT4B A 004 4004 1612 1808 0436 0566* 0567 0568 O577 0577* 0578 0585 0586 0595 05958 0596 
SWNTS A006 4DDC 1815 1793 : & 0602* 0662 0685 0694 0714 0718 0721 0724 O727 0730 0733 0736 
SWNTSA A005 4DE2 1817 1823 0756 0782 0785 0794 0797 0839 0842 0845 0881 0881¢ 0889 0895 
SWNT5B A 00% 4DFB 1827 1818 0898 0907 0907* 0908 0923 0925* 0926 0927 0929* 0930 0931 0932 
SWNTSC A 004 4DF7 1825 1799 1801 -e 0937* 0938 0947# 0948 0949 0951* 0952 0953 0954 0959% 0960 0989% 
SWOP23 A 001 607C 4044 1791 ; 1006 1006* 1011 1025 1031 1034 1037 1037 1038 1063 1066 10662 
SWO?4 A001 6095 4063 1806 1074 1080 1080* 1094 1120 1130 1133 1136 1139 1151 12154 1157 
SWPRTS A003 4EOF 1831 1753 1763 «1772 : .& 1177 «1180 «62209 «1209% 1217 1234 1237 1246 1246% 1247 1288 1288¢ 
SHTEMP A 002 5E32 3789 1699% 1700* 1702 1708 1711 1714* 1715* 1722 1728 1739 1775* 1776% 1293 1320 1321 1324 2336 1339 1367 1370 1373 1376 1385 1388 
1778 1785 1798 1600 1813 1815 1874 1875* 1877 1880 1906* 1907 1391 1394 1435* 1438 1447 1447# 1460# 1463 1466 1466% 14908 1493 
SWVAL A002 5E34@ 3790 1892 1897 1902 & 1502 1502* 1522 1538 1541 1542 1543 1543 1611 1615 1615 1617 
$1 A 004 4666 0934 09272 0930¢ 1623* 1725* 1728 1731 1731% 1733 1744 1747*# 1749 1755 1762 1762% 
$2 A 004 466A 0936 0926* 0932¢ 0937 1765 1771 1774 1782 1782* 1789 1789% 1790 1791% 1795 17958 1796 
$3 A004 4677 0940 0931¢ 0938¢ é 1806* 1610 1817 1820 1820 1822 1827* 1830 1831 1831% 1832 1835 
$6 A004 4699 0956 09499 0952¢ 1860 1862* 1886 1887 1887% 1897 1898 1898 1902 1903 1903® 19:5 
$5 A 004 469D 0958 0948* 09542. 0959 1916® 1929* 1930 1931 1932 1932 1942 1943 2081% 2090 2091 20918 
$6 A 00% 46AA 0962 0953 0960+ € 2103* 2105 2106 2106* 2110® 2111 2192¢ 2201 2202 2207 2224 2224 
TCMD A 00% 4164 0255 0052 0196 4040 2249 2250* 2251* 2252 2254* 2275* 2282 2283 2287 2288 2288¢ 2307* 
TEST C 001. 0212 4366 0255 1574 2311 2311 2355* 2357 2359 2359% 2363% 2364 2456% 2463 2465 24658 
TSTOAT A 004 4BF6 1593 1583 & 2549% 2561 2562 2567 2584 2584 2610 2611 2612% 2613 2615¢ 26358 
TSTIEX A004 4F4B 1972 1959* 1962 1968 2642 2643 2651 2652 2652 2671* 2678 2678* 2744* 2759 2761 2761% 
TSTIOP A 00% 4F2D0 1959 1688 1667 2768 2778 2779 2779% 2794* 2795 2798 2799 2800® 2804 2805 28060 
TSTSW A 004 48C8 1574 1560 1567 © 2810* 2811 2612% 2841*% 2847 2847* 2851 3500* 3508 3509 3509 3510 
UDTO A003 OAOC 0024 3512 3512* 3519+ 3520 3526* 3531* 3540 3541 3542 3544 35448 3551 
UOT: A003 OAOF 0025 0162 3692 3718 3556 3559 3565* 3574 3575 3576 3583 3583* 3590* 3591 3598¢ 3599 
UNPACK C 001 O21E 4369 0446 0465 0480 0485 0490 0510 0550 0572 0590 1757 1889 2038 S$ 3605* 3612 3613 3613 3614 3616 3616* 3624 3625 3625 3626 3628 
2067 2096 2208 2268 2348 2423 2436 2568 2629 2729 2773 «62871 3628* 3630 3631 3637* 3645 3646 3647 3649 3649% 3661 3662 3664 
eons st 3664% 3666* 3667 3689 3700* 3702 3703 3707 3714 37148 3723¢ 
YTAB C001 0232 4375 0115 € XR 004 4C3E 1623 1538* 1591 . 
Magee es Vali AOOl SETEF 3824 0310 0314* O317¢ 0318 0323 0698 0700 0701 08469 0972 0975 0978 “ XRISV2 A 004 4411 0602 0436% aie aa 
O978* 1143 1262# 1265 1265* 1380 1405 1486 2036¢ 2040 2046 2057 XR1S1 004 5214 2254 22494 


2411% 24346 2436 2441 2464 2466 2478¢ 2717% 2739% 2867 3161 3180 
3244 3267 3287 3316 
VALIA £001 SEBO 3825 0269* 0278* 07008 1161 1398 2419 2725 3246 3269 3289 


om, 


A 
A 
A 
XRIS3 A 00& 5540 2615 26168 
XRIS&4 A G02 5DEO 3756 1617# 1618 
c 


XR2 001 0002 4335 0270* 0275% 0368* 0381# 0394 0396 0399¢ 0402% 0435 0543 0569 0587s 
VAL1B A OOl SEBl 3826 2419 2425 2463 2725 2731 2867 2872 3167 3284 3204 3253 32746 & 0599% 0603 0893* 0988 1003 1005 1005* 1106 1105* 1106 1221¢ 1272 
3298 3324 1274 1285 1287 12287* 1301 1436¢ 1448 461% 1467® 1491% 1503¢ 1539 
VAL2 &002 SEOL 3772 O694% 0697 0801 0845% 0848 0990 1003 1004# 1028 1045 1139¢ 1142 1624* 1726# 1732 1732 1745 1781 1788% 1807* 18119 1821 1821¢ 1825* 
hi84 «#61275 «#1285 1286 1376* 1379 1479% 1480 1485 2035¢ 2046¢ 2047 @ 1830 2060% 2079% 2080 2084* 2102* 2105 2107 21074 21398 21888 2189 
2047% 2048 2050* 2051 2051* 2052 20528 2053 2053* 2054 2054* 2055 2191 2194 2195 2196 2200® 2202 2205 2206* 2213 2215 22158 2222 
2055% 2057 2058% 2059 2059¢ 2270 2282 2291 2296 2299% 2300 2303% 2223 2225 2225* 2228% 2229 2284* 2308 2339 2354% 2357 2358 2358¢ 
2338 2345* 2346 2350 2401 2426 2428 2488 2631 2642 2655 2660 S 2406* 2460% 2481* 2490 2546% 2547 2548¢ 2551 2552 2553 2557® 25602 
2663% 266¢% 2667¢ 2713 2732 2734 2771* 2775 2874 2876 3143 3145 2562 2565 2566% 2573 2575 2575* 2582 2583* 2585 2585¢ 2588¢ 2589 
3216 3218 2644% 2648% 2672 2718* 2756% 2769% 2771 2780 2780* 2801* 2807% 28136 
VAL2A A002 5SE03 3773 2028% 1043 1045 2291 2655 é 2842# 2844 2848 2848% 2860* 2883% 28946 2897 2900 2903 29038 2904 
VALS A001 SEO? 3774 2776 «2778 2909 2909* 2912 2915 2920 2923 2923% 2924 2928 2928* 3502* 3505 
VLCNT A001 5SE99 3853 3503* 3516* 3535¢ 3548% 3569% 35875 36409 36532 3505 3508 3514 3514* 3528% 3533® 3537 3537 3540 3546 35468 3567¢ 
VOC A003 SE65 3809 2820 g& 3571 3571 3574 3585 3585* 3606* 3609 3609 3612 3618 3621 3622 
v0G 4 003 5E5C 3806 247% 2493 2817 3624 3639% 3642 3642 3645 3651 3651% 3656* 3658 3658 3661 3690 
V04 A003 5SESF 3807 2818 ae 3724% 
vos A003 5SE62 3808 2475 2494 2819 | €oxR20 A 004 4€42 1626 15398 
vic A003 SET] 3813 2752 ~X¥R2SA A004 5186 2200 2195% 
v10 A 003 5E68 3810 2476 2493 2749 _ X¥R2SB A 004 54C5 2560 2552 
vis A003 SE6B8 3811 2750 € XR2SV1 A 004 4284 0402 0394% 
vis A003 SE6E 3812 2477 2496 2751 “ XR2SV2 A 00% 4415 0603 04352 
v20 A003 SE7T& 3814 2464 2645 _ ¥R2S1 A 002 SDE2 3757 2189% 2206 2222% 2250 
v28 A003 SET? 3815 2446 € XR2S2 A 004 SICE 2223 22052 
v30 & 003 SETA 3816 2447 “XR283 A002 SDE& 3758 2547® 2566 25826 2611 
v38 A003 SETD 3817 2448 —X¥R28¢ A 004 5507 2583 2565% 
WARNL A OOL 6369 46203 2229 { ZERO A 002 5DFS 3768 2473 
WARNIN A 038 638E 42046 2229 1230 ZERVAL A 004 4600 0987 0976 
WARNS A 00) 638F 4205 o120 _2es A 003 608E 4059 1121 2005 
WARN3N A O1l 63C5 4208 Q220 0122 i { ZLSMSG A 001 64F2 4251 2487 
WARNS A001 63C6 4210 OL24 ; -ZLSMSN A O19 6504 46252 
WARNGN A 023 640A 4212 Gl2% 0125 2LSW =A 001 5E95 3849 2403 2430% 2457 2505% 276T# , 
xR A002 6163 4147 0488 | &,20NE A 003 5DFB 3769 0288 
XR1 C GOL 0001 4334 G17S* C177 0180 0163 0186 0189 0192 0195 0201 0308* 0318 0319% 
| j 
DATE 23AUG7S OSNOVTS 24HARTS PROG ID C19-2° DATE 23AUGTS5 OSNOV7S 24HARTE PROG 10 Ci9-2 
EC NO. 827785 827827 °§ 827879 PAGE 40 EC NO. 827765 827827 827879 | PAGE “0A 
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c192 3340 ADAPTER MANUAL OPERATIONS PGM - MOD 12 


CROSS-REFERENCE 
SYMBOL T LEN VALUE DEEN REFERENCES 
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“THE CHARACTER 


Rey 2 tates e 
GBK GBD PN 42 


“TCOVIORH & EDP 


ee eeeeeencened 


T YR 


ey 


“T SY3Cau 


“T4U :CAUSBDAD+ D 


a 


~ T+UA5B/US0E THOH* 


Oo 


“T+UBOQ3P /OHEAUN 


“ 


Y 


T+Ul e+B8ASST-B -, 


“T 4UDWOHEBEXT71 <B 


° 


“T*UE/D O<F Y9Bs/- 


0° 


T¢UFSEHT /OHKe D 


T+UGP/ 41 YOHIBICS 


eo 9 


“T+UHKPYRsT a PXe 


® 


T4UI CFWNEOH) $)aB 


& 


* T+UHHOE,B VUDOH) 


8 


T4#U.C/0 ( /DGCE 


® 


TeU.= N/_OF4+ N/ 
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T+U<90F1/Pa8G 7/8 
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T+U (40H*BG-EQ7 WE 
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INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT< 
€c1 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 
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UBTZ B/U: NZHIDA 
“pp2kex HCS &L I. 
ASS9"80C -MEUSD 
( GY#ENP2 GUL 00 
HF® GECx /oHO! E 
APY. 2-JHC WH2P52 
sTSBGEea:azo™L 
GEWT /OHE &_UI<B 
Q @8GKE28 VV/0H) 
BUA-4 MEMCE1/0NWE 
_OF 4+ N/_OF7 0H 
AOEI/CaBG /8BOJE 
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3340 ADAPTER MANUAL OPERATIONS PGM = MOD 12 


OBJECT CARD LISTING 


3340 ADAPTER MAN 


Seeeveaeseodeesveeee 


3 S?HE&A-008 /-H+E0 
TECO + EsS7HE.-4 
/RE1LSQOI/RLOAPYE 
” /4>40-E/T65. <B 
HF-HEBM4B VODOHE 
AENP2-J? /OHEA/( 
3-<HBOF# /5-CC A 
JOKE ESVecAcoTs 
pxae N7OQ1EA3/ 71 
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OLD CO 87 VB060 469 KECD & CDRLAD GO #haD NEX2 LMAGL CAND aN KLIDEN U20A 00 O2ZUA 513 SBYTEZ DC xL7*&u8 
ObFT CU 87 UBDLS 4?u B OKCTK GO SACK AND PROCESS THL CAKD 0z0n U0 0z0B 524 SBYTL3 DC XL 2°68 
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Q348 35 Gz UADO 654 L ARRSAV,Xhz PICK UP KLIURN @ o77 * bC ALzZ(10 ADDRESS -eiGHIMUSS SIT2i-) s 
034C Cz 01 O33A . 55 LA CTR,XR1 LUAD BASL @ 6738 2 * 
O33A 056 USING CTa,int O7Y FOSCSCSHESSESESHELS TES SSSI ST SSOSEHRSSSSSTSESSHSE SH SS SS TOSS SHS HSSTSS SOS SHV O SHS 
0350 5E 07 CC BD 657 ALC ARRSAV(2,%b1),FIVe(, 241) AJUST sctTUan ao 0307 34 O08 0406 o8U RUNPA Si AckSAV,&R8 
0354 oC OU Ov OO . 653 AVC Cah (1,Xb1) ,vU(,Xh<) MOVe LeSoTH BSYTL 0368 CU 87 0340 out b CS PA 
0358 oC 01 4C 04 659 BYC DEST3(2,4h 1) 94 (XL H2) hOVtE 10 @ U30F 7C 03 39 odZ UNPKY SVL H¥X1(,Xh1) ,HeB DO AUAMESAL 
035C of O01 AS 04 b6uU MVC 9 =- DgSiZ (2,281) 94 (eX 2) MOVE 10 @ U372 68 OO 4A 00 O63 UNPK2 BVX TomhP?{u,Xh 1) ,0 (,ka2) 
U30uU BS O02 O02 661 L Z2Q,4Kz) pike FICK UP FhOS & 0373 684 AVXI ECU e—3 
0303 CO 37 4000 v62 B *—2 G376 7A FO 4A 685 Son TEMP 1(,XR1) , 2° Fu® SLT FOa o-9 
O300 603 CHPKia LOU e-1 0379 7D PA 4A oto CLL TEMP2(, 288) ,X*PA® CuoftCK FOs a-P? 
0360 o64 ILBF L£QU *-1 U37C Fz 82 O04 6c7 JL ONPKS 
O37F 5F 00 wa 53 608 SLC £EAP1(2,X83) -X39(,XHK1) SUbS2TnAC% X°39° IF A-¥ 
0383 3c 00 0000 059 UNPKS hVi +-#,0 
0384 69C 2nNPT ECU w~ 3 
0366 o8t DESI £00 e- 14 
0387 5SE 04 4C O02 692 ALC DEST1(2eXH1) - 8461 (,45 1) DbeCRevAscNT TO ALDKLSS 
0385 7D O02 39 094 CL1 MVX2(,32 2) ,BNZ CReCK POh 20st DONE 
038D o84 X39 £OU s- 74 
O38r Pz &3 06 0295 vi UNPKS 
0393 7C O02 39 090 MVI BVX2(,181) - BZ bO ZOuL 
G394 DO 87 38 097 b Us PK 2 (, 1513) 
0397 76 02 02 69S UNPKS A HLGl (,181) -AbZ DECHESENT FROK o 
0392 SE 00 GO 01 boyy ALC CTH (1,401) ,BiG1-1 (,X%n 13) DELCRENBZNS L2KGTH & CHsCK FOR O 
O39pD 7uO ONE kyu *-1 
O39E DO 01 35 701 BNZ Un PK 1(,2%81) #0 
03a1 LO 87 CI Wz B LDREG (,X1) Yes 
703 * 
O3A4 38 08 O357 7O& SAVKEG ST Sk1¢3,258 SAVE s#ETUSN o 
O3An 34 03 O3FE 705 ST LUSEG4+3,Xa1 SAVb X81 
USAC 34 02 0802 Fo ST SR243,ERZ ibe 
03b0 CO 87 U482 Ww? b RTES1 EHLCK DATA SWITCHES 
0334 CO 8? G000 Jus SRT b o-8 
DATE =» 292UG750 0 OPNOV75 — WHAHTO =— USS UNT6 PROG ID PFP-3 DATEL  29AUG75  —-U7ROV7D WHak7?o  U3UNT6 FeUG 1D FRF-3 
EC NOW 827504 327805 327672 571071 FAaGk 7 sC NOW 827804 627805 627872 571871 Pause va 
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PAKT NO. 2hoz2sU 1bS RALNTENANCE DIAGNOSTIC PHOGRARB PART BO. 4248230 
PAGE 3 PAGE OA 
¥FFF3 DIAGNOSTIC CONTHOL PHUOGRAL - mObDEL 12 
SOURCS STATLMLNY Esk LOC OsJeCT CODE ADDH SIM SUURCE SIATLALNT 
TU eeestees eeseagcs Tuy *eeesese sesercese 
731° PACK BERETA ECRERESEER TESTES ESSERE RESEEESSEROCES ES ETEREEEOSEEE PACK 2 TOU F LboL FFSOSOSS OFS CS EEE SEROETEREEE SE OEREOEEEESSEEESEEREODED TES: ®& 
Fiz eeeeeees se2988 88 751 eevacese eeeseses 
713 =«* 2 752 * s 
7a ® SU3BbOUL1HE TO CONVERI ELC DAL DiGLIYS U-P 10 FACHKLD uEXADECIMNAL % 153 * SUSROULIINE USLD 10 KEAD CCNSULE SWIICHES ABD TEST POR VALAIDLIY es 
7b * DATA. LINKAGE TO ¢H1S SUBROUTINE iS AS FULLOBS<-- s Joa 8 POSITIONS. OLE ONE UF Tdbh FOLLOWING VALIDILY CONDITIONS IS ® 
7 * 2 755 @ eNCOUNTERCU, ENT&leS ARE ACCEPILD UNTLL Unt VALIDITY SW12CH IS * 
717 * b PACK e 750 © CHANGED. * 
Tix 2 be XL V°LEAGINe * 427 *# s 
719 # vc AL2(FROB SUDKRESS -KIGHITSOST BYTs&-) & Too PUXX - TUAM CPF sSa XX. % 
7z2u * DC AL2 (70 400RSSS -KkIGRTNUST bYITL-~) s Joy * FIXX - DURA Gb SS XX. * 
721 SRSCS TEETER STE SESS EERE EES CEES SETS EEERER EES SESESREE SEE EE REERESE SED ERRS Fo * F24X - GO 10 ZLOUDINE XxX. 2 
722 RPACK SI ARRSAV,AKH Joi & EEXX - TekSINATL StCT1LON,. s 
123 b CePA Joc * DXXO EXLCUT£ ALL PHOGHAMS Fud LeVICe AX -LISK-. s 
T24 Tow CTn(,Xxn 1) ,X*#0T* CHECK FOR ODD LENGTH Jos DXXX — EXECUTE SiCaION xXz2z s 
72> oP PKY OKAY IF &VEN LRNGTH Jou * 5 
Teo SLC CTH (,XRI) , ONE SUBTHACT 2 ITP OLD LENGTS ToS SETEHSKSIAAESTE SSE SOSSTSSHHE SER TEESE SEES ERESEEOASSSHECSESEEDSEECESEESELSEE 
727 PKI MVI00 MVXZ(,XK1) MAN DO SUMEXIC U4SU0F TVood IbASt EYyU ® 
Tab xrkz AVe TEMP (,XK1) ,U (3,XHzZ) PACK BY%4t 1840 Lied BALP Bete O40? &G6 VUS0O7F FoF SETV Dc XL 72°890" e 
729 CLI TLEP (,4R4) ,X* FOS CHLCK FOR O-9¥ O8Urt 40.07190050802 VaOL 76O8 DLE XL 0° 44.0 WwOcUHDe® « ALL 1IOGLTHYLRE 
Fav JhL PRI JUMP IF vU-G uSOxi 01 OS$UE 709 bc XL F*QT° ° 
731 ALC TEMP (T,%H24) ~Nibc(,-Xn1) AJUST FUR A-F OsOF 4006 G4tUu 770 DatSHS DC XLzZ*tO?® e KLALIB Anka POX LATA SWITCHES 
742 PK3 AVX *-3 (U0), ToAP (,XK1) SOVi HALF SYZTE TO o 0407? 771 USING SLTU,XR1 
733 MVXZ EQU tk 0412 T72 1GNE LQ set 
@a4 DEST2 LGU e-—2 U4S7I0 373 XREFS LUV DATS&S 
735 A Ntot(,Xk?) ,saz beCunMikT FON o@ O814 774 XKEPA EQU * 
736 CLI BVX2 (,4H1) M28 CHzCkK FOn ZORE DORE OStF 34 UF G4a3D 775 SetSse sv VEK1¢3,X21 
737 JE PK4 JUsP lf LONE 0815 (2 01 O407 776 La SLiU,zk1 
73u YL SYX2(,X81) ,-NZB bU ZONE 8429 7h UG 3A VW7 s?t SLTS1I3(,XR%) ,AKB 
739 B PR2(,XKY OS4C 52 03 IF U9 770 MN = CAKSS745 6,481) ,LATSHS(,Xh3} PORE COHRECI B11 PATic#AR 
740 Fina ALC D£512(2,2R13) -Nict (,4% 1) beCRGSLNI FO @ Us1F 7979 Nink ECU -7 
Wat SLC CTk (3,XR1) 200 (, Xi) C¥t0k FORK LHL O820 78 Fe FP Tov SBE CHKSS343(,X%h1} ,X*Fa® TO SEI A&A B12 OB Ia 
Vaz PIVE EGU ej ! 0423 5C OO 2D 00 738% CHKSS? BC CHKSS201 (1,441) , * —* (,451) SBYITLY TARD SbYT.L5 
743 BNZ PK1(,%51) if MOT LO Next bYTE 0827 SE GOT OY UY 782 4LC DalSesS (,X8 1) ~DAISHWS (, X81) 
744 LDRsG LA t—* X41 RESIOR& Anni 08238 58 02 22 UY 7384 HAZ CHKSS242(, 481) zDATSWS (,Xb1) 
74835 Sune LA e-F XRz OX2F C2 GT Gzu4H 784 LA SBYTEU,Aa1 
74&o B +-s KkeTURR 2O SsCIION 0833 785 MODIry ECU = 
747 ARRSAV LUU #14 Aor 4 0433 7A UO OO Joo CHKSSZ Shh e—#(,XR 1) , -& 
G43o0 38 01 0&33 Ja? SBP BODIFY,1°0 28% 
O4€3a Cz 04 VOO”U Tess VXh1 LA e—8 X21 
O43r CO &7 0000 789 B +—s 
4441 79U SeTSXe EGU s—j} 
00013 791 DROP XR 
ONOF 7¥2 USING DATS¥S-1,252 
ON82 54 OZ O4OA 793 RYLST SI TeX1LTIe35,XHn2 SAVce Ibex KeGS AND SLT UP BASE 
US4o C2 02 O4OF 794 LA DAISWS—23,A2bz 
OS4GA BY 01 57 735 ST TEAXLIA3 (,XKz) -£h1 
O4¥¥D 34 Od SFP 796 ST TeSTE+s (442) g ARR LOALD SLITUhA SHANCH 
0450 CO &7 7800 737 b ThHEFDD Ste 1P FDD LUAVED 
0454 F2 6&7 OC 7¥8 TSIOVL J TEAIZ ( 58S) BATSHS(,1R2),0 ) @tAD SWITCH 
0457 BD Ev 00 799 CLI DAIS+S—-1¢,A4H2Z) -X*bb® 
O45A F2 84 13 $00 Ji iES11 
O45D BB DO OO 601 IBN DAITSWS- 1,422) -X* DO® 
O400 F2 10 Ov 802 J1 TST} ¥OH CAbD SYS JT OG ) 
0462 8603 1S*iDSK EYUU e— 4} 
0863 Cz 014 QuUud 604 TEXiT Ja S- 3, XK4 BESTORG Isded kEoS ANU LAIT 
0867 C2 G2 0000 ovS 4ELXiT1T LA o-2, XK2 SUBLUUTING 
O4eob CO 67 0000 800 TLEST2 5b s-% 
VSOP 40 O4OF su? DC XL17* 408 AbSOSMAL VsaSiNATION 
i 0470 sOs TLST1 LUD s 
609 
04870 BC 3C 7b 310 HLIA MVi TaLTe2(,XRZ) -HP HALS Su BOTc VALID Sa EnIRY 
: G47s FP2 87 OF 331 J THLT 
8l2 
0470 BD 3E 78 64s GkS5tz CLI YALYeZ(, 482) AP FOXCE ALT£RbALING baLT CODES OF 
O879 F2 8&1 U6 624 Js Test3 “HR> AND -idU~ (RP FIRST) 
G87C BC 3E 78 8615 HdLib £vVI THL142(,282) ,HP 
OS7F F2 87 03 Sto J THLY 
ISMAKTO 030 UK 76 PEOG 1b FFP-3 DATE 2¥AUGT75 O7THOVIS ISMARTO 0.33 UN 76 FROs iv PrF-35 
oz707z 5713871 PAGE t& EC NO. B827&04 827805 827672 371671 rAus GA 
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PAK NO. 6268230 
PAGE y FAGE YA 
PF¥3 DIAGNOSTIC CONTROL PROGKs&K ~ BODEL 12 FFF3 DIAGNOSTIC CONTROL PHUGHAMB — MUDEL 12 
Lik LOC OBJLCT CODE ADDK STHS SCUNCE STATENLNYT ERR LOC OBJECT CODE ADDK SIMs SOUKCL STALLBSLST 
V4b4 637 25 EYVU e— 39 SBU seeeness BOSS Ce SS 
O42 HC Ob 78 636 1£S13 KYL LHL14¢2(,%h2Z) ,bU UO% F LINK $8SS6lOF FE4549F4S5SS8FSO SS TESSSESSHSOSSTOELOSHSESCSSHESESSE HO SBE LILHK & 
0485 FU 3B OU B39 THLT = WP o—% GH HALE -de- O& -HU- FOR SW1UCH EWVBY BbZ seeesese ore 
320 bo3 * 
0486 BU 00 01 824 Sus DATSWS (,XKZ) ,X°G? mtAL DATA SBLITCHES vse & SUsKOUTIHE TO PxrOVLDE SOUTINE TO SUUTINE AND SECTIOM 10 Srv TIVES s 
O46D b2e TSILRL EVU See bu> & LinhKaGte Tdb CONGROL PROGSAM UStS Then ROUTadbr PHEFIX AS af & 
O4os Kb DO OU 623 TbN DALSES~“BC,XKZ} ,X* DU FOw CAHL S¥S §¢ J FLSE? } bud & LbYcKFACE BLTWkEoM DIAGNOSTIC SLCTION amb COM SOL PaOwkABe. ® 
O4Sz BY zu 00 324 Ibe DSTSHS—-1¢,A4n2) pk? 2U" bez ¢ = 
0491 Pe 9U «£3 bad JF TLeSi? GSE FFSRSEKFSEESESTSESSESKSSE SESE OSI TS CESHIRS SE FEFSEEHKED TSESCSALSESSHE OLS S OOS SESES OH 
uze bd9 
bz7 * D POUND IN LEPTHOST SWITCH SG ZiEkU LABLE D522 34 O01 USEF S4¥u HLINK ST LNKS4#3,X1 SA¥x£ 3h 
O4yy Cz 01 OFA Bau LA FLéc-3,XR1 PUINT BY LABLE o¥ 
ONGs 3C PD U2F5 529 HVE VTR,PU 053z Cu $7 0842 bY¥Z LNKI B RT cSt GC CHECK DATA SBLPCHES 
O49C SF Ob O2 G2 bau SLC OZ (12,XH 1p -UL( XK} 535 893 I1Kn? rQ0 s—4 
U4AG pe UT 97 331 ST DADBA(,Xb2) ,An7 0536 35 46 0208 ao4 TBR SBITEC,SSHYI PROW1lbc LOOP OW HOVIISE GP SSUUT OF 
O¥A3 C2 04 VOLVO S352 LLSISA LA t-¥* 155 LUAL LISK LOAL FAbLL POINTE US3AR F2 90 OB bY5 JF Laka 
G4Ao 633 DADDK LOU 7 53D 3p 014 OBO3 6986 LNKIA CLI EbUB,X*OBE lf Filhst AIK SLING SUE, Go =O 
O47 OC UZ Uc O71 B34 ALSTO MVE £(3,X1) ,DATSHS(, 282} MC¥S LATA TO DISK LOAD TABLE 054% CG #1 9000 P97 bE 0 PROGRAB &2S2UAKT 
OGAB 7% UP O2 635 TSF 2,481) ,-2* OF! CHe.CK £¥UX DXLY UDS4ads F2 B7 ay &GYd J LEKS 
U4Ab FZ 10 03 b3o J7 TESTOR 699 
O4BT 7B 07 U0 S37 SbF U(-ke4) i Pure TUsxh pit? GFF Ud5eo 3b FP U2T4 9uC LEKz CLI BPFX-T,R 2 PFE in IH1S LAs2 sOUTLNE 
U4n& 838 1LSioA LOU * O546c Fz 017 OD yu Jhk LBA3 hu, GU Ow Tu CheCh PURTELE 
U4B4H EO b7 67 839 b VEST Z (,Xnz) GO ALLOS NcdT LEDRY 902 
G457 5D EE OU BYU 4ESI2F CLI DATSRS-t(, kha} pl Pon?® USaP 38 6&0 O2z0a 903 TB SBYTEO, SSBUC 4cst FOS Luur ON SECTIOB 
O4bA FZ 07 08 B41 JNE SLSS7A u553 20 to 0000 904 bT 0 Xis, GO KroiAK] PRUGSAS 
U4BD oF OF SF US54 Bas NVC TLSTE+3 (2, 4K2) 1TH? u557 Cu &F OZR $05 B ELOAD a0, GU LOAL bixY SzeCTIO# 
OaCze c£U 87 bv? 645 % Te5i2¢,Xhz) GO aLLUW NieXd cBTHY 0554 9¥o ITH? EY e-1 
V4C5 844 TESI7TA LED * 0555 00 u55y 907 DC XL7*O# 
OscS BD FI OU B45 CLI DATSWS-1(,XKk2) ,X* FU" SU8 
C4Cu FZ 87 OY B4b JE 44518 US>SC 35 23 0271 9uUY LAKS L SPFa,xXk1 Six UP £O GO TO SLAT BOUTIRE 
V4Cb BL Fu vu ba7 CLI DATSWS-1(,4h2} 22° FU* Uv500 UE UO CAULR 039D 910 ALU HNUM (1) ,Obe IRCSEDRLNT RUUTINE SUBBER Zac 
ONCE Fz v1 15 bab JRE TESi11 D>oo6 7D GU Vs03 OV 941i CLe SANUS (1) ,0€,58 43 Cdcth sGALNST BIN PREFIX 
O4D1 BA 01 24 849 SBN MODIFY (,XR<) ,X*U3* CHANGE TO Sti BITS OFF O5o5 F2 Bt O07 912 Jt LEKS 
V4D4 BL 30 01 b5u 1b536 CLI DF iSWS(,ak2) -L*3u * Mahc SURE SS NUMA IS QO-2P USer FO 35 57 913 KHLTE HPL H3,HH *kTA MUM IB KIM PREFIX OUI G? Osbth 
OND? Fe 82 Cb bd51 JL i2ST9 0571 CO &7 0532 gua b LBK1 wo CicCK FOR DAIA S¥IICH tool FICA— 
C&LDA FU 36 76 B52 KLID HPL 82Z,bH ®rihOR-SSd ® HIGHLEK THANK 24-ZF- 915 1100 
653 % Ok *INVELID HIN SELECT CPTION 916 
V4DL LO &7 67 654 b LcSiz(,Xk<) GU ALLOW Beck ENTHY 0575 iC 03 0231 03 917 LEAKY NYC KEPX (8) 3 €,481} SivT UP CURBLA1 KOUSIAML PREP IX 
OSEO 855 TESTY iQU * OS7A 43 20 U2us8 91s TRN SBYTEV, SSHUZ CScCK POR BYPASS MABUAL 131.287 SIRS 
USe0 EU 67 OZ 850 b S21SSW(,XRZ) uUS7zé 7B 80 61 919 Vbb 1(,21b1) , SITU C3K wR PHEFIA BASUAL INTcSW PLAG 
OWLS LU 67 67 B57 B TESLZ(,XHzZ) GU ALLOW NeXT ENDHY 0561 CO 10 0548 920 BT Lak2 SalP KROUTIBL IF pOth CONDIZ20NS TAUL 
GC&to BL F2 00 bod TES313 CLI DAISWS-1(,4%h2) ,X*F2* 921 
04:9 LO U1 5a &59 ENR =T2XIT(,%82) 0585 b2 01 O04 $22 La 4(,Xb1) kat 
O4EC 35 01 OAOT 860 L FRTS,X%n1 SUAR1 CHECKING WIVH FIRST ROUTINE 0588 24 97 0593 923 Si LWhoO+3,XRI LuUab kuUUTI at SIAKTIIG AbD 
GO4¥PU IC 0U vsvs 00 bol BhVC 8 BNUM(1) ,U(,X01) LOAD CURRENT IN SUR WITd PIS? ONt Godse C2 01 0G00 God LEKS LA 7-*, X13 keS10ke levck bEOS 
O4FS 1D OU VAUV3S LU bo2 FLSTIZ CLC BNUS (1) ,U(,a51) 1S “HIS HUN PREFIX COKREC3 o5¥u CO 87 vuULU 925 LNhKO b e-s khak SUsmOUII WE 
USPA ¥Z 84 06 8o3 Jz TLST 4 EES - RABOLCS 920 
U4FD FO 35 57 Bos 145713 HPL 83,85 SKIN NUBDEK OUT OF ScVUENCe 
Q500 FO 67 07 tod B TeStd (,Xb2Z) GO ALLOM- ENTEY aGALN 
’ u503. $b VU 01 OU 606 2cST14 CLC DATSHS(1,Xhe) -G(,XK1) BekaNCH LIF THIS IS SELECTED 
US07 FZ bt Tz 807 s TES1 to KHOUTINe 
O50 7D FF Uz bod CLI 2(,X%n1) ,X*FP* CHECK 980A LAS’ KOUTINE IBDICATION 
; @50D CU &T USDA boy bE HLTD YoS. SRANCH FO £kKOH HALY 
U531 2E Ob O05 03 &7U ALC BNUB (4) ,4ONE (,XK2) INChcfhbNT sOUILE& NUMbEb 
5140 75 04 U5 871 i 3(,%81) ,Xk1 LOAD ADDRESS ur NLXT KIN PREFIX 
usty LO &7 ko B7z 8 TEST V2 (,XHZ) oO CHLCR 2415 kia RUM 
U51C IC G3 0211 03 B73 TEST Yo EVC | = sPPX (4) ,5(,X%41) SAVL KOUZIRE FnkFIX 
. 0521 Dz 04 04 874 LA 4(,XR1) ,aR1 LOsD ADDSESS UF FIRST INSTRUCTION 
0524 B4 01 SF 675 si VoSTEC3 (,XKZ) Lut ib SUDKOUTING t21t 
0527 34 04 0593 o7o St LNKO*3,Xn? SreT Uk LIBK LXiT LN C?SL LOOPING 
0525 £0 5&7 67 677 b TeST2 (,X#2) G bLLud NEXT LATKY 
VOUs 87x DROP XkZ 
{ 
eas oaten eae WHAT 0330476 EkOS 1b FFF-3 DAIL 29 AUG75 VTNOVTS 19MAE 76 U3J UNTO kaGu Lv PRF-3 
¢ bU5 beI972 271871 PAGE 9 zC NO. 427804 827805 827872 571871 PAwL oa 
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PART RO. be4bc SULSM MALNIENANCE DIAGNOSTIC PROGBAS FAR WO. 4248230 
PAG: 1Uu PAGE 10a 
FFF3 LAGNOSTIC CONTROL PROGRAM - MODEL 12 PPP3 DJAGNOSTIC CONTiLUL PRUGRAB - BODEL 12 
zk LOC OBJECI CODE ADD STMT SUUKCe STATENEST Ekx LOC OBJECT CODE ADDR STINT SOURCE STATLBENT 
925 *eeeeeeee eeeetence OouL SC OU IL OO 990 HVC NSPACE(2,3H2),0(,%H1) LOAD SPACE COURTER 
924 8 PRINT SOF ESSE ETERS ESE SESESS CEKESSRELES SETERTSET OL VEN SSSESS ES PhINT ®& Go%?0 bB P&S 4D 9914 SbF NSPACE(,248 2) oh Fu LleGQl11 TU SLYEB 
Q3U Peeeeeese SERSCEESE 06133 3C 60 06C7? 9¥Z MVE PR104¢1,96 Sia UP COUNT FO# CONSOLE I/O 
931 * LINKAGE TO PRINT IS AS FOLLUES-— * 993 
932 * * 06177 76 10 00 994 TBN 0(,%81) ,BLi3 BhawCH IP THIS 1S SPACE ONLY OP 
933 @ B PRINT WHEKL PRINT 1S sQUAT&£D £0 1304 * Vota F2 10 BS 995 JT PR17 
934 * DC Xa ¥°PLAGS* * UbsID 7B 20 VO 990 TBR O€,XK1} ,.wlTz Skiv SLTUP 1F DATA FIELD KEADY 
935 * VeDC ILV*LENGid -MAXINUB OF 91-* * OezZu F2 10 AY 997 J2 PRIOA 
$30 * teDC ALZ(ADDKESS UF LASt CHARACTELs OF PrikT FILLD) * VoZ3 Cu 37 0715 _ 998 B PRiW DURSY¥Y COMMAND TU BAKE SUse& NO EUSY 
937 * 2,3%DC XL2*HLSSAGE IDENTIPICATION® * 0627 E000 Vtss Y899 LDUMCOM DC XL2* EOOO* 
933 © FLAGS * 6629 UC 83 OdFr 0Y¥00 1000 MVC _ LEDATA¢133(132),LPDALA¢IS< bSiakh PalNI oUF 
939 * bil U —- DEPihssS THLS AS AWK LEROK PRINTOUT s Go2F 78 40 00 41003 Thy 0(,£81) -b171 SKAP BLDG PRINT LP NOT CALLLiD FOR 
940 * @-— FIHST LINE OF MiSSAGE “HEADING PRINTED * Oo3z F2 90 74 100z JF PRIS 
gat © 2 - PRINI FsOHK DCP Phind AKLA. * 0635 D2 01 05 1003 LA 5(,X81) -X81 SbT UP TO UNPACK MBSSAGE 
942 * 3 ~ SPAC& ONLY : * 0638 Ba OF BC 1004 Si IDADDR(,XR2) -XRV ILiNLPLER 
943 * 4 — KESERVED * 0638 CO 6&7 O2TE 1005 B UNPACK UNPACK IT FOR PRIBTING 
944 & S - BITS S-7 MUST CON3:ALNH THE BUNBin OF = Q063F Oz O63F 1006 be ILt*2¢* 
945 * ®& - SPACES DeslinD. FO A PRIN, —-OUT- * 0640 0000 0641 30U7 4ALADDe DC XL2*0* 
246 * 7 - USI be eNTxrhtb 10 PRINT AND SPACE 10 * 0642 OSBD 0043 1008 DC ALZ (HDs 147) 
947 * PeE Wedd LNG. -GUU- MAY BE EATSRED ® 0644 CO 87 O21E 20U9 B UN PACK PUT PROG IbiRN1 1N PRINTOOL 
Sag 40 PnO¥iDe FOR AULITAPLe UPLKATIONS GN *® 0048 02 0648 1010 DC IL7*2* 
gag * 4b Sahe LINE. * 0649 OA0t Oo4a 10318 DC AL2 (PROGID) 
950 * s bab 05Cb& O6ac 1012 DC AL2 (HDG 14 16) 
951 * VyOTi -— THESL PARAMETERS HUST BE ABSENT FOR SPACE & 064D CO &7F U21b 3013 b UNPACK PUG ROUTINE BUM IN SEALING LIBE 
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1234 #¢ 09C7? 48 03 09 00 1246 HNN LULTIA43 (gXKZ) p0 CoXHB} 
$235 ®* THe FOLLOWING FIVe INSTRUCTICAS ARE STOXRLL AT LOCATICR ZERO 89Cb 98 02 70 01 1297 BRO LsLize¢s(,2482),3€,3B2} Sk’ UP FOR SLCOBD BALT 
Rz30 ** «(U0UU) LPLERK LOAVISG UP LACK SLCILON IS COBPLLizL TU PROVIDE V9CPF 98 03 74 U4 4298 HAN LULTZAS3 (,XKa} o BE gakt} - 
1237 %*@ A PROGKAN RLSTAKT (SYSTEM HESELU/START) © C¥b3 3c O07 7ECF 1299 v1 EnxSSuet,x%°07* SET UP 10 LEASE ON CHT 
4238 QOYD? 3D FF 0800 1300 CLL X*AGUt , X°FFe PLHPORB FlaSt HALT ObLY IF SYSITER 1eSi- 
GAG3 1239 USING RMUN,XH2 QO9DB 39 CO OA01 13014 UbP X¥*a07",x*Co® (ACTUALLY PERS FFU, e203 ) 
uyoa C2 Oz 0a03 1ze0 iA BHU, HZ SAVE PIBSE BUOUYANE PREFIX AND USDF Fz 96 OB 1302 Je LHLI1Z,X*¥o° JUSE FALSt Ur HLGH Ob LO 
OSes BS OF O4 4241 i. &(,XKZ) pXnat O9iL2 AC OO ob OG 1303 Libyt B¥C HSLTACT(V,4b2) e®-SEphszh) LOAD Fixsl HALL 
U9ob 9C UO UU UO W242 MVC RNUM(B,4Rz2),0(-X%5 1) LUAD CUsKRukT hOUTINE MUBSER OSE6 aC 00 oC 00 $304 Ldn ttA MVC HALTASZE (4,1 L) PP Eg Fh} ences 
UYOF IC 03 0211 03 4243 BVG KR PX (8) ,3(,X41%) O9sa FU YU 00 2305 ALTA HPL #-*,%-# | HALT TU LBbiCALL LE 
U974 CO 87 0272 1244 B TEST CHcCh DAIA S¥1UCHsS UScD AC 0U 76 00 1306 LHL1Z MVC  HBALTH41(B,XH2) pS OG -kbz} LOAD SLCOBL HALT 
0978 DOI B? Ok 4245 HLSIRT b 4@,2h7) START FIbST ROUTIRE OSPt aC OO 77 OO 1307 LHLizé BVC HALEBO<c (4, kn2)} gO PB (eka) << MonBEk 
0978 0000000000 O97F 1240 bc XL5#Q# FILLER O9F5 FO 00 00 91308 SALZB HPL %-8,%-# HAL1 10 DISrLAY dwbEx 
O¥FS CO 87 0442 1309 HEXIT Bb RIEST wU CHECA FOm SU1iCH LhIRY 
OYFC CU B87 U3Fb 4440 b LDKKG UO KEL! tne BLOS & LEIT SUDFOUTIRE 
4311 BLESSOSSSISSRLTSCHKSSESCSSKSESHSS SSECLS 
1312 @ QRARSFLK TASLE CONSLABYS SSSSHSS S STE SSE TES SSSSOSSSSESSESLSESSESSSSS SSH SS 
PIII FSETTIA GS SSEHSSITS SSERSESSSSHSSSSS 
0535 13148 Tut tuts sITat 
UF57F 1395 1Hz EGU -A1h2 
DiTE ZYAUGTS OQFNOVTS VINA KTO UZIUBI6 PsOu 1D PRF-SBIE Z£9AUG75 UTNOVTS TYHAKFO vi. IB76 ete +” ie 
EC 8O. 627804 $27805 Bz27b TZ 571671 Faced 72 C NO. 8278048 827005 &z7b7e 571878 oe 


eeoeoeeoeoeoadeeeseaee@easeeaegnge@edkesda@~@sceoeeneeeeeee @ 





IbM MALNTENANCL DIAGNOSTIC PROGKHAS PART NO. 4246230 1LM MAINTENANCL DIAGNOSTIC PROGRAM PART NO. =. 4285230 
- PAGE 43 PAGE 13a 
FFF3 DIAGNOSTIC CONTHUL PROGRAM - BOLEL ¥2 FFP3 DIAGNOSTIC CORTHOL PROGKAK - MUDEL 12 
ERk LOC OBJECT CODE ADD& SIMT SOURCE STATEMENT EkR LOC OBJELT CODE ADDR STAY SUUKCE STATEMENS 
O2CA 1330 285 wu =«LLTR3 YYYF ¥322 OkG X°YPPF®-7,*Aauurtes IF FLAvGLD, X*°A00" BLING OVLRLZYED 
vo7L 1317 ika LOU =«iTRA 1323 Seeeesesens 
O7FGY W142 £LRS EQU ITRS 1324 © Xxubr SHSCTSE SH SSSSESSTSHSOSLSSSSS SSS SSS SSSSSSSHSSSHSSHESSESUSHSS STS SVSSESES 
UZ31 1314 Tito bu = A TRO Wscy FOOSE SSERE8 
U55A 1320 187 LOU soAITK? Wee 330 ORG X* IPERS 
TPEL 0000 Wey 1327 Le XL2*0000* UStb TU YASS DISK ALLA UF "FCUY Tu * 4438 
Vaca ¢ FOR Thb Ch 10 CHARGE UDT AND CPU 
1329 
IPPO CO 87 OLA 3330 b BEGIM Im COhb AT IPL TISE, AND THER S2A52 
1331 @ AT THIS ADDHESS FO Ges A MEM PHIDT 
1332 * UU4 OF TH#bL SYSTLE DAia. ik1LS ADDKESS 
1433 * SSUULD NOI So CHahGLD, SINCK OIBE 22LELASE 
31334 % DOCUN:N2ZAI110M TLIL Tak Ch TO USE 1285S 
3335 © ADDHESS. 
1FF4 0000 WES 1336 LC XL2°00008 ALDHESS TO LINK FhOK DUP CALLED PHOGBABS 
IPP 0910 WF? 1337 ve ALz (AHEF5) LOLATIUh FOR SS¥ VALUE 
IPPS O44 IFS 1356 bc ALZ(XREPa) SUS5kKIN 10 Szcl SS 
IFFYA OEBA tPFB 1339 DC AL2 (XREP3) LOADLHK sHANCH @ Wok LCP IS LOALEL 
WPFC 13BE WFFD 1340 DC ALZ (XHEPz) LOADLK BRANCH o wHLN LOADI¥G DCP 
IFPE U2F1 IFPFF 134% bc AL? (XRLF 1) LUADEK BcTURB If KOT 18 ViOC 
( 1382 
} 
: UESA 1343 ORG ALIPET+X*®700* THIS OG 21LD TO OG Al LBD OF EOUTINE 
1344 


: i 1345 88 ¢86a0328 62 
i 


T3346 F LOVALLS £998S28588 2595 SSS SFESESETES SESE EEESRESEEEESS CESSES OESSTOESERESE 
1347 sesseeacees 


Moot 


0010 3345 LAR LU x* 308 IbSTHKUCAIGM ADDKLES bEGISTER 
: O0Ub 1389 Ani EyvuU X*Ob* ADUSZLSS HBLCALL HEGISIER 

0004 1350 PSK LOU X* O4* PROGSHAM STALUS EiGISTLE 

VUZ0 1554 PILAK EOD x*zo® FhOu LVL 14 Tah &iW 
0061 31352 P7IAR tyU x*B48 PhOGHAM CHECK EgecISTeR 

| ; 0001 1353 XR1 EUG 1 IND&X BELGISIcR 1 

‘ 0002 1354 xRz £0U z INDEX KewolSTsh z 

i O87C 1355 LPDATA EGO xX*67C* 22LC PRINT LATA AKEA 

08650 3550 PLIBE iQU X*8608 Stact OF DCP Phind Link 

{ Oa0OU 1357 SPT iGU ss X ®AVO® SzcLllON FAEFACE TABLE 

: 0a017 71358 exUGID EQU xX*®~AQT® Ski — 28D BY1c OF PGB LDENIIFICATION 
VAOz 1359 SPFLGS EQU 1X1*:A02® Ski — PLAGS 

| } OAO7 1300 Fin LOU xX*®,a078 SPT ~- ALDH OF 1ST KIN PREFIX 
OAOA 130131 SPUDT EQU xX*AOQA® SP1 - OMIT DErPB TABLE 

i OU 1362 S1OI LOU x * 488 S1O 1sStpDIaTé Tu CRI 

0879 1303 ChIPLG EQU x*U8798 PFLAG SAYS 32XX BICHO LOADED OK 

i 1304 

1365 ** COMHOK SENSE SWITCBES 

i t306 

| 00bU 3307 sswG0 LYU x*uo*® LUGP OM SECTION 

} CO4O 1368 SSwOt EYD x*4aO® LOUP Oh #OUALHEL 

\ OU2ZC 1369 sS#Uz EQU X*208 bYEASS MANUAL ibs kRV RTS 

i 0010 31370 sSH#03 EQU x* 108 BYEASS takhOw PRIeT 

i 0006 1373 SSWOS LOU x*®Q8* BYf4SS WON-LAKOR PRIWT 

G@004 1372 SSWOS iQD x1*° 088 USE MFYCU aS PalRT DEVICE 

: 0002 1373 SSWUe YOU x*0x? HALi O38 chkOa 

0001 2374 Ssw07 LOU x?#OT# LICKg£1¥ SPLII 

V0OBO 1575 ssa08 LOU x*® B08 USE 5203 HIGh1 CAKRIAGE 

i 0080 1376 SSWOY ECU x*408 INHIBIT SeC2. SSW CLLAKING 


0026 1377 SSWOA LOU x*20° 
0010 1376 SSWOB LOU x* 10° 
! 0006 1379 SSH¥UC EQU x*ou* 
i 0004 1380 SSwUuD EQU xX*0a8 
0002 1381 Ss#C0k cOD x*o2¢* 
t 0001 3382 SSNUF E£LU x*oue 
YV001 213463 SSB2F EGD x*018 
' T3848 
O0bU 1355 bITO LeU 2° 60° 
GUSU 13b0 b171 LQU atuus 
i OULU W367 bll<z LOU z*20° 
0010 1388 s1lT3 Lou x*10* 
COOb 1589 b174 kyo I*Qu® 
! 


DATE 29AUG75 O7NOV7S I9BAK76 O33UN76 PROG 1D PFF~-» DATE 29AUG75 O7HOVIS TyHacJo 033 UN76 rauG Ib PYP—3 
EC NO. 82 7buU8 827505 827872 571671 PAGEL 13° BC SOW 827604 627805 bi 7672 577871 PAGL 13a 


IbM BAINITENAACE DIAGNOSTIC PROGHAR Paki NO. 


SZ48Z23UT Dm RAINTENANCE DIAGNOSTIC PROGRAM 
FAGE 44 


PART hOe 8288230 
PAGE 14a 
Frr3 DIAGNOSTIC CONTROL PBUGRAK - MUDEL Tz 


FFF3 DLAGNOST1C CONTKOL PROGHAN - BOLLL tz 


LEK LOC OBJECT Code ADDR SIM1 SOURCE STATERLRT 


ERR LOC OBJECT CODE ADDR Sibk SOURCE STATELMEET 


$006 9390 SITS bY xP 04! 1428 *® ThE POLLOWING INSLRUCITIONS ARE PiRFORMED APirk IBITIAL DCP 
G@O2 1391 biTo iygu = %*02% 14319 ©® LOADING ONLY. THEY Akt OVERLAID BY THE PROGHAM SECTIONS. 
G04 2392 BIT? LOU xX*ot* OEBA 1420 XbeF3 LYD s 
4393 OESA 1423 bEGIN :EQU 
Gwor 2394 HO LOU X*or?* JABLo OF HALY CODES ~- O-F & B OEBA OC 40 0010 PTET Wee HVC 16 (47) ,GOLOAD¢ 26 STORE A PROGRAB RLSTART AT 0000 
6003 1395 H1 eu 03° GE9U0 CO 87 13BE 1423 B PIXHOB 
OOF 1396 He LUD X28 Foe OES 342% BEGINA ECU & 
@057 3397 &s EYVO x* 578 Weds 
OOTS 1596 he LOU 115° WG ESCRRESESSTELSRE OH TTESESTSES ESS FETS TESS SSSR SSSHESSSSHESSTR SEHSS HSE HSSSESES 
@@S5D 1399 BS EUG soX®5p* HALT DISPLAY CODn -5- 1427 © 
G07 2400 Ho EyU = =x*7D* W278 ¢ PINT CPU AUD uDT LNFOWMATION 
BG07 140% a7? EGU xe o7e 14z9 ® 
OO7E 3402 ca LOU X* 7F® 1430 © 
@OSF 1403 oY EQu X*5Fe WWF FVHSCCHTHS SH SESE SECTS STO SSESSESR ESE SSELESSSESSHS SELL SESSE ST SSS COSTES SCTE SESESLERS 
GOsP 1404 BA EQU X*3F® 1432 
GO79 2405 ds EUVU x* 796 0£94 CO 87 O27a 1433 B PRINT SPACE PRINTLE 
@06C TWVU6 BC Eyu x*oc*# VE9B 41 OE9B 13434 pc XL7°R98 
Gaas 1407 4D EQU x3 73° O0n399 OC 00 4271F 9200 8435 BKYC LINE3-16 (3) -SKOL PUL BOLEL ID IB PRIRTOUT 
oO? T4806 LL EU x*#7c* OEYF 3C 00 O332 4436 avi CTR,xX*OF 
S03C 1409 EF EU x*3c? QEA3 3D FPF 0202 3437 TKYOY CLI SIZE-1,X"* FF® 
G36 1410 Hh LOU =" 35° OEA7 FZ 014 07 1438 JNb BOTOS 
GGoen 14731 dL EQU XFoS® BALT DISPLAY CODE -L- OEAa 32C 70 O33A 21439 MVL CTR, 16 
G@8o0%8 3432 FO Euv X*® out HALA DISPLAY CUDE -U- GEAE F2 87 O06 t44u J pOoSZz 
6035 sa HP Ea X* SEF BAL1 DISPLAY CObn ~P~ GOEB? O08 O02 033A 0202 2443 EHOITO& MNNZ CTR,S1Zi-1 PUL CORE SIZE IR PHINTOUT 
B4a2 
GtFLD 4445 FLAG £0 X®GPLue® OrB7 0&4 <0 Fz2zE 1203 3443 LOSZ ZAZ LIME 1-13) ,- DFOUR—1 (1) 
@tFe 46 DIALLE LU X*®tPE® UcB8D U6 1141 222E 12084 F4aee PINDLSZ AZ LINE 1-1 (3) ,DFOUR {2 
OEC3 OF OO 033A 039D 1445 SLC CTR(€1),ONE : 
OECS CO JT GEBD Tako BNZ FIRDSZ 
2487 © Sst UP CRU OPTIONS IP ANY. 
OECD UC OF 131253 1254 W449 B¥C LINZIA(tO) ~-LINEWA4t® CLEAR OPTIONS Ig LING: FOR IFPO LETRY 
GVEDs OC OO 141358 02048 1449 MVC OPBUF (1) ,CPU PUT CPU OPTIORS 18 #ORK AREA 
OEDS 3C &7 OFUS 2450 MV¥I POPtt,X®a7® ASSUBE BO OP110NS, 1840S NO OPT Palit 
VEDD C2 02 1244 1451 LA LIkE 14-15, X82 PUIRT Al PRINZ LIME WHLEL OPIS GO 
vsb3 C2 01 334F 1452 LA OPTTAD,XH1 POINT AL OPT HUBBERS. 
OreS OE OU 4358 1358 1453 UPLOOP ALC OP BUP (1) ,OPBUP SHIFT LLFI 1 
OLKEB CO 20 OEPA 1854 BRHOL #8OTOP JUMP IP NO GPILOh BIT 
OckF 9C 06 00 00 1455 BYC =: O( 1, XhZ) 9 0 XBY MOVE OPT BUADLE INTO; LIBE 
OEP3 E2 O02 O02 1456 LA 2¢eXE2) -XK2Z BUMP 10 HexT LIBEL POSITLOS 
OLF6 3C O7 OFOSB 4457 NVI FOP*T i *usr® CAUSE NO-OP JUMP FOR PRINTIBG 
VEFA 1456 NOTUP LO0 * 
ORFA D2 01 01 2459 LA BQ -XH4) -Xn? BURP 10 BeXT OPZION RUBBER IB TAB 
OLFD 7D D8 00 1460 CLI 0( XRT) -C#Q* IrVPiris a ** , GUIs 
OFOU PZ 8% O8 1863 JE POP 
OFO3 CO 87 OLES5S teE? B OPLOOP pO ALL & 
OFO? F2 00 OB $463 POP Jc WOPOP , #-% JUMP TO REGULA& OBLY UR FALL TO OPT 
OFOA CO 8F 0218 W464 B PRINT PhIBe CRU Lite SI1TH OPTIO“NS 
OPUE O02 UPFOE 1465 pc X33%0O02°* 
OFUF 35 OFPGP 1806 pec 1L3°59* 
OPI 31253 OF%I 14667 Dc AL2 (LI8L 1a) 
OF%Z P2 87 0b WHos J WASPOP 
OrF%S 1469 BOPOP ECD s 
VP1IS CO B7 Oza 1470 B PRisT PRIBY CRU Link eIth OU OPIIONS 
COFI9 OF OF19 1471 BC XL1°02* 
OFia 17 OFTA 1472 re 1L 323° 
UFIB 122F OFIC 18473 bec ALZ(LINEY 
1478 
UFID 1475 WASPOP EQU * 
OFID CU 87 OzZ1A 1870 b PRinT 
OF27 01 OP21 1477 DBC XL 49°04 
OF22 33 OF22 1478 DC IL7°51° PRINT 8S 
OF23 32F5 OFZ4 1879 bc AL2 (DASH) 
Or25 CO 8&7 O2TA 1880 b PRINT PRIMT UBIT LiFIRLTION Teoli HeZADI NG 
Or29 01 OPZ9 1431 vc XL2*°01* 
OF2ZA 33 OFLA 1462 oe IL 3°517® 
OF238 1287 O?F2C 1453 LC AL2Z (LINZ) 
OP2D CO 87 O21la 2484 .B PRINT 
OF31 071 OF3t 14385 de XL3°0O38 
ees 29AUG75 GOPROUTS TIBA RTO G3JUn76 PRUG LL PFEF-SDATE 29 RUGTS O7NOW?DS ISHB KIO G33 UR 76 PaA0G Ib PrP<3 
2c KO 827804 B2F8GS b278 72 571677 PAGE 14 €C RO. 827804 §27805 827872 571872 PAGE 48e 


eeeoeoeceeaoeaeeaeeoeeseeaeaeaeesneeaeeeoeeaeeeaeee~eaeese @Oee 8 8 8 


i i ee ee a i i 2 i rr 


a aetna ae a coca cat ene Sec eer 


wi 
Ye stenstesiasteateahovicg 3 


IbM MAINTENAKCE DIAGNOSTIC PROGRAB PAKT NO. 
PAGL 5 
FPF 3 DIAGNOSTIC COSTHUL PROGRAM - KODEL 12 Frr3 
ekR LOC OBJEC CUDE ADDR SIME SUURCHR SITATLMENI BRK LOC 
O¥3zZ 33 OF3< 1460 pc IL7*518 PrelaT ---*s OFEC 
OF33 12P5 OF34 1487 DC AL2 (vASH) OFED 
14488 
OF35 C2 014 0232 1489 LA UTAD,XR1 BUAD ULE POIRIER UFFO 
OF39 3c 01 1205 1840 avi FLAGS,1 IADICALE SLTUP FUR PIBST ENTRY OrF4 
OF3D 7D 00 UO ° 2492 UDILP CL1 0(,XR1) ,X*u* SKIP ehTk¥Y IF NO LaVICk CObs UPFS 
OF4SO F2 81 YE 1492 JE NOUSI’ 
OF43 34 014 OF4D 1493 ST UADDR, X81 CPPS 
OF47 CO B7 021: 1494 B UN PACK UNPACK DiVitCh ILDENTIPICATIUN OPFC 
OF4b 01 UF4B 1455 < IL1* 18 OFFPF 
UF4C 4000 OF4D 14a¥0 VAD DC AL. (*-*) 
OFSE 0883 OF4F 1497 DC AL2 (PLINE+* 3) 4002 
orst Cz 02 O8B4 1498 LA PLINE*U,XRZ POINT XRZ AD PRINT LINE 1006 
UF54 BC 60 00 14asy svi 0¢(,XKz} ,u*-* PUL DASH AFTEsx DpVICk 1D TOGA 
GF57 OC U4 1201 039D 4500 MYC MASK (2) ,uRe INLILALIZE DAIA PIELDS 1005 
OF5D 3C 00 1202 1501 nVI OP NUN,O 100C 
OFo1 GC OU OFbre 1A2Zuu Iaou2 ULTLPT MVC CHKI*+4 (1) -BASK-1 SET UP MASKS 10 CHECK OPTION BIT 10x 
OPo7 uc OU OF71 1261 1503 BV CuHKZ+1(1) ,RASK 10t2 
OF6D 79 00 01 1504 CHK1 TbF 1(,481),4-# CHECK THIS Bil 1036 
OF70 79 00 02 W5UuS caks 1BF 2(,X81) , e-*® 
OF73 Fz 10 46 1500 Ji NLEXLOP BhANCH IPF UPF 
OF7o &C 00 01 1202 1507 MVC 1(01,Xh2) ,UPNUB PUI PRINTABLE OPTION NUMSBLER INTO 
UF7TK BA FO 01 3508 Sb 1(,X82) ,.X*FUP PRINT LINE 
OF7L BD PA 01 1509 cLI 1(,X%H2) -X*PA* 
UFS1T P2 B82 U5 31536 JL *48 
UF84 8b OG U1 11F9 1521 ALC 1(3,XK2) ,X€7 
OFS9 bi Uc 01 1532 La 1(,2%82) ,482 POINT aT BEX? PRINT SLOT 
OFbC OF 04 1201 1201 1533 BeX1OP ALC 8 PASK (2) ,BASK SET UP TO CHtCrn NeXT OPTION BIT 
CP92 OL 00 1202 0O39D I>38 ALC OPNUN (1) ,Ohz 
OF96 3D OC 1202 1535 CLI OPsUB, xX *UC & 
OFYC CO &2 UFb1 1510 bL UDTLP1 CONTIUNGL UNZIL ALL UPTIONS CHECKED 
ID>t7 
1537 
GPFAU 3D 01 1205 1538 CLI FLAGS, 1 BRANCH IF NOT FIST UDT EMTEY 
OFas Pe 07 UC 1539 JNE CXKPin 
OFA7 &C 05 09 1211 1520 AVC 9(6,XR2Z) , LDE INDICATE SHAY SHIS LS LOADING DEVICE 
UFAC 3€C 02 1205 3521 Nv FLAGS, 2 INDICATE Sci Owbv UDT ENTRY 
CFBG FP2 8&7 10 122 J PRUDT GO PRINT UalS ENTRY 
1523 
OFB3 3D Oz 1205 1528 ChPTK CLI PLAGS »2z BRANCh IF NOT ScCOND UDT LNTRY 
OPB? FZ 017 09 1525 JHE PRUDI 
OFsA 8C O06 OA 1218 1520 AVC W (7,XK2), PHL INDICATL THAT 1H1S IS PRINTER 
OFBF 3c 00 1205 S27 AVI FLAGS,0 FIxST 2 ZNYxIES GAVE BEEN HANDLED 
4528 
OFC3 OC 19 12A1 ObY9A 1529 PaDLT AVC LINt 3 (20) , PLINLEZO Sil UP AND Pol¥2 LINE 
OFCY CO 87 Oz1A 1230 b PRENT 
OFCD 01 UFCL 4531 Lc XL4#*97° 
OFCE ta OFC: 1532 Le ILt® 20° 
QFCF 12A1 @FDO 1533 DC AL2 (Linb3). 
1534 
OFD1 78 10 OF 1535 NOUMIT TbN 1¢,%21) -x*® WW? CHr€K POR LAST EBi@Y 
OFD4 b2 OF 03 4530 LA 2(,XR1) ,xat 
OrD7 Co 96 OF3D 1447 BF UDELP 
1538 
4539 BOS SSSA SSSTSESOSTESETESESTSEESEEEHSESESE ~9SSSSSSTTHSTSE SETTER ESE SES ESE SES 
15460 2 
1541 * DO BMISCELLaNcouS bce PRINTOUTS 
1582 * ' 
1583 8 
3504 SOO4SS4CE SCE RSEE STSSHSSSI SELES SHE SESEES SFSSCSCESHSKESSVSSESIesesses SSSSKeESessesesese gs 
4843 
OFLK CO 67 OZTé 1546 B PRINT SPACs PxINT ss 
OFDF 11 OFDY 1587 DC XL4E*B1# 
OFrO (0 87 Oxta 1545 B Palast 
UFES. 05 OPEN 15959 a XL T*°@5* 
OFLL 21 OPES 1550 LC IL 1* 33° *DCP IS LOADED®* 
OFE® T..CZ OFE? 1551 pe AL2(bINkay} 
OFES CO 87 1388 1552 b CHKED JEST PUK TAPL ON SYSTLS 
DATEL 290675 O7NOV?S T9HA B70 0 33 0h 76 PROG ID PPF-3 DaTL 
EC NOw 827804 627805 629872 571071 PAGE 15 EC MO. 


OWUJLCT CODE 


70 
F2 01 


cu 87 
AU 
F2 01 


c2 01 
7D AO 
Fe OF 


27 
1388 
iF 
0232 
00 
15 


1365 
021A 


29AUG75 
o27804 


ADDk 


UFrL 


Orrs 


4246230 Ibi MALNITENANCE DIAGNUSTIC PSOGRAS 


DIAGNOSTIC CONTHOL PRUGKAS - MODEL 12 


S482 SUURLE SIATLBENT 


1553 
1558 
4955 
3256 
1557 
556 
1559 


. 1360 


BOOA 
Tus 
V00v 


10loe 


O7NOV75S 
627805 


4501 
3502 
1503 
3504 Xh 
43605 
1506 
15607 
1508 
1569 
157u 
4571 


T9BARTS 
827872 


bc £L1°70° 
JNE 18107 

b CHKID 

DC XL2°a08 
JNE TST07 

LA UTAB,Xu1 
CLI U (X13), 2*au® 
Jak T3107 

3B PTX 

ry PHINT 

pe xXL7*o1° 
De 1L12* 60° 
DC AL<z (X84) 
5 PIX 

b PRINT 
DC XL1*t4* 
0339076 

571671 





PART 40. 
PAGE 


#288230 
Wa 


JUBP IY IT iS NOT 


teSt FOR 3448 OM SISTES 
JUMP IF 1T 1S NOT 


FrOINbT Al X*®2528 
LF 3444, PHINT TAPe BESSACL 


ies | 
30 DUSP TAPL LEROM Si. 


PhribT LIME OF 
PRINT SESSAGE 


PhIN1 LINE OF 
SPaCkL 48 


rPrr-3 
Wa 


PHOoG 1b 
RAGE 


IBN MAINTENANCE DIAGNOSTIC PROGHAS PART NOW §$28523 


IbS SAINTLNANCE DIAGNOSTIC PaCunad 
PAGL io . 


PAkT HO. 8288230 


PAvE Toa 
FFF3 DIAGNOSTIC CONTKOL PROGHAK - MODEL 12 FF¥3 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
Ehk LOC OBJECT CODE ADDR SIMi1 SOURCE SIATLMANT ERR LOC OBJECT COLE ALDER Sink SUUKCE STATEMBAT 
TD72 SSSHKE SESE TESS SHS ST OO SEH ESE SST TE SSE SEES ES STRESSES SES OS OEESEEOE REE SEREEEEE lddb SOR RSeeneerensserc erences vesescEsED De ooOeRsooEEseceS 
i | lol? 
12>) * CHECK! FORK -BGDEL:. 6 lozs ¢ RUN tas ( MICRO COD. LUADEE } 
TSIe-* lo29 @ 
TDITT SERS SEESESEESESEEKOSEEETASE SS UHHS CET TASES SSS SSS HESHEKSTH STSSSEKSESESTE LS 163) SHS SSS Soe Ss eess cEeOE CES ET OSSTR SHATTER EEST ERS EEEZONS 
1578 1631 
1917 1579 4S1407? igu 107D 38 CU 213k 16 32 TBS = SRPLAG BILO*¢bITY LF 1443 Uk PLO SUT POUND DOR®Y bUN 183 
1017 3b C7? 0200 1580 CLI SMOD,C*u® TES PUR RUNNIkG ON BOLEL °F 1041 CO 90 11C7 1033 BE DOHA I¥ NUIT, DUNT SUR 
1015 CO O14 13C7 158% BNE DOHA BRANCH IF NOU 1085 OC 04 IPFS 1097 To 34 HVC =X VFFS* (2) ,RINIDS SLi UP FOR 43 16 COM BACK 
WF 3D 40 0232 She CLI uTs5,x*4ge TLSt FOR LOADING PROR 3741 1U8B 3a 09 U20D le3> SBM SBYTLS,SSWZF SzT UM SSW <F TO SHOW 143 TO LIK BACK 
1023 F2 814 3A 1553 Jk FD6D IP 1HUn GO Sei UP POR LOALING a5 
1026 38 80 0253 1564 dik UTAS41,X%%u08 TiSt FUR LOADING FROM DISA W8P CO 8F 022A 1b3? 5 LOAD LOAbL 243 ANL EXECUTE 
WW2a CO 90 11C7 obs bF DOHA iF NOT, HALT HA 1093 18 1043 1638 DC XL1*° 168 LOAD PGM Al SPLCIPLLD ADDK AWD GIVE CONTRO. 
1506 1094 0000 1095 1039 AbDHI43 DC ALZ(*-®) DISK ADDb OF 143 PILLLD AN ABOVE 
41527 FOSSETT SSK EHS SSS SESS SE SERS STSS SCHREKS KRESS SESESRE SKAEKSS SSKERSSESSEHSRESEKRES 1096 1098 41097 1ouU KINWG3 yal AL2Z(S1ICRIN) 
1588 © 1098 1042 SICKIN EYE ® ELIUKK Hike PxOR 143 
1359 ¢ LORD AND EXECUTS ANE = =PROGRASS WHICH nUST che 1098 CC 10 OO1U 1151 Boaz MVC =. 96 (17) ,GOLUAL4 Io Si0#b A eKOGRAM &LS2AR1 aT OOUU 
ta90 * 109k CO 67 1189 1043 i bLKCRI 10 bLABK Ck1 
1591 * KUN Al LCP LUab TIME 1048 
1592 * VONS FES HSS4S9F 58 4S $9 SOSSE OS OSOOSETHEESEEEEOOEEEES 
1593 * FLo - RUNS ON ALL MODEL G SYSTLKS toa. ta 
394 * 16047 © SBARCH StaRCK ¥IOCS FGn FLO,103,FCU AML INSERT 
1595 FSCHRSESEERSSSELS SES KSEKHSSLEKTSE SS CSL SEERES SS SKSTHEKTAS SESE SSEREEESERESSE SEES 1645 s DISK ADDBLSSES lh Oi LCAD* 
1536 WOND $8SCH OSS 4098s 25595552 4550958 95495558588 S8S SES 
4OZE C2 01 0232 1597 I1S20 LA X*0232*,XR81 SEI-UP XKT ADDRESS POK UTAB “ARLE *GC# 5650 
1032 7b AO 06 1598 CLI U(,4651),k°AU® Ste IF DISK IS A 5484 ace s555 
1035 F2 01 04 1599 JNE ISA JUMP IP HOT & 54448 DISK *C* 10A2 34 O& 1109 1651 StARCA St SRX*3,ARK 
1038 3C av 1139 3600 BVI  UKFLAG,X°RO® IDeNTIFY IT & 5444 DISK *GC® JORG SC 16 106E 1652 KV1 —- FLG1,.X* 168 SLY BRANCH 20 LOAD FLAG BITS 
tout ; Ss WAAR 3C 00 FEE 1653 KYL «=X OFEE® LO SEI] tO ZERU AS #LAS 
Wsc CO 87 10a2 WoU2 ISAT b SEARCH GO GEY DISK ALDS OF PhOGHARS *GC* WA 3C 00 133A 1658 M¥1l  SRFLAG,O Stk PLAG %O ZbkO (SUPPURT 1NS7E a1 *4PFO*) 
16003 1UBZ CO 87 022A 1655 B LOAD StbLk TO VTOC AD CHzCK FOR PhOGRAB 143 
1640 38 ZU 1134 4604 Tbhk SRFLAG ,B1TZ SEE IF FDO FOURD OK DISK 4OBo G2 Wbo it5e pc XL7°028 
1044 F2 90 2C¢ 1605 JP FD6RIK TP #01, DON'T BUN -  10B7 C2 02 0860 Tos? LA X*B50%,XR1 LUAD Xk? AS POINTER 10 ¥20C RECORD 
1606 SISSCSSESSESSE SESS SSESSKE LSE RESSESS CHISHSESKTASS CSRS RES SSE SLES SHE SSR SSESSES 1658 
lou? ¢ VEST UDY TABLE FOw DISK FILE 3340 OH SISK FILE S4a4a 10BB CO 87 022A 1659 BEADKC B LOAD 2O READ BiLX2 BelUsh 1H10 X*8s0 
tous PERSTK SESE ST SSS SE SSS STSE SES HESLSES ESET SSE CATS ERSTE ESET ASE SEERERSSERSEER TOLF 10 VOBF 1600 pc XL 4° R08 
1047 sD AO 1139 Tous CLI DKFLAG, X*AG® Sek IF DISK IS 4 S44 4UCU FD FF OO 1661 CLI O(,XE1) , REPS TEST FOR EBD OF ¥BTOC 
WO4B Fz 61 Vz Totu Ji FooD JUMP IF IS 40C3 CO 81 1105 1662 BE NE2 JURP IF ¥Es 
104% OC 01 1095 11F0 1012 BVC ADH143(Z} -CCHHOS BOVs IN AvbRcsSS OF 3340 CCHHR (143) 10C? 7D 00 00 iees CLI 0{,X81),0 ieSi Fuk EXD OF VIOC 
1054 UC O01 IFLP 11F2 1642 MVC) 0X8 UPEF® (2) ,CCHK ie MOVE IN ADDKiSS OF 3340 CCHHR (FCG) 10CK CO 81 1165 eb BE wee SUBP LF ¥ES 
15a UC UI 1070 11P4 1644 HVC = - PD6@ (<} CCH ze HOVE IN ADDALSS OF 33480 CCHHK (FDO) WCE 4D 02 02 1361 4555 CLC 2( 3,21) ,ACTKOB TES FUH AN ACLLVE WTOC ENTRY 
1000 Fo14 Fhob yu + 10D3 CO 014 1165 love BYE BE2 JUNP LF BOX *acT® 
tots SS SLITS SSCS SS SSSA SSS SSH LSS SE SSESKSSSKTASLSRSESASLKESKSLSESES ESS SEKRRESSERECEES 1667 
1066 3A 01 020D 1617 SBN SBY2ED,SSWZP Sti OR SSe ZF TU SdOW PD6 TO LINK BACK 10DB Fz 81 08 1669 o. rsuis ENiKY IP £HIS 1S 58H4. 
1068 CO 87 Uz2a 1616 b LOAD LUal AbD bUN LSE TESTS 1ODE 3C O07 10ES 1070 HVI «= BYCLD¢%,1D5848 IF 3340, LuAVe DISPLACELHLNT AS IS 
WS5E 08 FVOE BO8Y FLGI LC XL1°O06° TULZ 1672 ISwWIN EQGD e 
106F DFD6 1070 Yo2u PLew DC XL2*D¥D6* DISK AULKESS FILLEL iN BY ®SELYCH® RTK 30L2 IC 02 13DF U6 1o72 HVCID RVC  ¥IID(3),1D3340(,283) HOV: Ib LWTO TEMP AhEA 
1071 1073 1072 16021 FDOADE DC ALZ (FDOKIN) 1673 
1073 tozz FDohKTN EVU RETURN HERE FROM FD6 10n7 OD O2 44DF 1364 te74 THYPL6 CLO VWTIbL (3) ,Pboxus LOOA Fuk ID OF PDo ®GC LP 
1073 0C 10 0010 19:1 1623 BVC 16 (47) ,GULOAD¢ 16 STUsbh & PHOGHKAN KEOSTART AT 0000 WED P2 01 OL 1075 SNE TRYOUT 
1G7¥ 3C 10 OD Voc4 ESTPDO AVL = x* TFD*,x* tut RES&i FLAG BIT YOK LUsb RIN IFO %3C 01 1070 O4 1670 H¥C = FD6a (z) , VAAD (, X87) BOVZ 18 DsSk ADV OF FDO (54684) 
WOFS 4C O04 41zz Ob 1677 BVC = CCRsZ (>) ,6¥233(,%81) BOVE Im CCHHK ALLE PROM WFOL (3340) 
FOPA 32 20 1134 To? SKN SRPLAG, HITZ INLICatE FLO FuURD 
WOFE lovy TRYOUT LULU F 
WPFE 38 20 113a Tob0 75N  SRPLAG,BIEZ See LP POURL YET 
3102 CO 90 1088 1os1 bF READEC GU LUAL 3133 £1€ 
1106 CO 87 9000 168Z SkX 8 e-* bLivhs’ 10 CALLEA SEC4ION 
110A OD 02 11DF 1358 1653 FHY745 CLC VWT1D(3) ,HACLDR Lb UF BlCauCObs LOAVGR (145) ®GCLP 
1110 F2 01 Ob Toss JNE THYFCO BLaD AGS IF Ib bOl POURD 
3923 3c 01 1095 04 Tobs FVC = ADK193(2) -VEAD(,2H1) BOVE ls DISK abDm FAOR VIOC (5468) 
Vite 4C G8 79H GE Tose MYC CCHKO(S),8233q,4h1) NOV IN CCcHh ALDH PRUF ¥10C (3340) 
V44D 3A 80 113A lob? SoS SEFLAG,BITO LNDICALE 609983 FOUND 
joa 
23237 OD OZ BIDE 135E Joby TRYPCU CLC VT1UL(35) ,MLCbAT _w OF BICKOCUDL DATA (FC O} *cCDP 
14127 CO 01 1057 loyu ENE TRYFUOo KEAL AGAIB 4f Lv BOT POUBD 
11zZ5 WC OF IFLF O04 2091 NVC) | =- X®WFEF® (2), WHALE, X27) MOVE LM DISK AUD FHOM WA0C (58848) 
1130 3C 04 2149 OZ 3692 BYC «CCH 105) 0255(,XH1) HOVG IM CCH ALLe PUM UTOL (3360) 
DATE 29aUG75 O7NOVTIS T9RAKTO 033 UR76 PROG ib PFE~3 pare 29AUG7S O7ROV?S nn: 6 V33UR76 FBUG ib PPP-3 
LC NU. 827804 627605 82ZTo72 S7t871 PAGE to 4c RO. 8274048 827865 R278 72 57187 P&GEL toa 
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IbM MAINTENANCE DIAGNOSTIC PROGRAM PARI NO. 424623501BM MAILNIBNANCE DIAGNOSTIC FROGHARK BART NOs: (Mehoeav 
PAGE 17 PAwL Wa 
FFP3 DIAGNOSTIC CONTROL PROGKAK - BODEL 12 PFF3 DIAGNOSTIC CONTROL PROGKAN - MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATELBENT ERR LOC OBJECT CUDE ADDH S12M1 SUUKCE STATEMENT 
1135 3A 40 113A 1693 SEH SRPLAG,BIT1 INDiCAiE FCO FOUND 11C7 38 01 0208 1757 DGHA TBN SsY1zn0,SSR07 
0007 1694 ID5444 EQU 7 DISPLACLBGNY OF ID IN 5444 VIOC 11CB F2 10 03 W753 JT GOLOAD 
0000 1695 ID3340 EUU 6 DISPLACLELAT OF IL Is 3340 WTOC 1759 
OUU4S 1090 WTAD ECU a LOCALION Is VIO OF 5488 ADDRESS 47oV SASSSTCLIVS SS SHIST STS SS SHS SSTSSSSS SSCSSSISTSSSSSOSSSSHSSESSS SIS SHSOS SHOSHSHVSSSS 
OOUL 16097 ¥Wi33 EVU 4 LOCALION Ih VIOC OP 3340 ALDDKESS CCHER Voi 8 H AAAAAAAAAA 
1139 PF 1134 16098 DKFLAG DC XLU°FF* *G6C* Woz * 4 a a. a 
43a 00 VISA 7099 SHFLAG DC xL7*00°* pIT 0 - 1343 V7o3 ® 8 8 A a 
1700 * rit 3 - FCO 1708 * BREBXBHBEY AAAAAAAABAA 
1701 * BIL 2 - FDo 1765 * 8 8 A a 
1702 1706 © ud 8 a é 
413b 3703 ViEeD cCU * LNTch ALKL Om LAST VTOC AND SOT ALL PosS FOUND W707 * a H A a 
1138 36 8U 113A 17048 TBN SRFLAG, b1ivv DID 1435 GET IB ? 1760 SSTVTSE SKK OS SEES SSESESKSVSKVI CY SSS SKSSHSSSSSES SESS SS SES KS SESTEESLS SHOVES SS4TS 
113F F2 10 OL 1705 Jt Nit 1769 
1142 OC 02 1353 1358 1706 SVC LIDLOS1(35) ,h5ICLLR SOVs 143 INTO SLSSAGE 11Ci FO 3B 3F 1770 HLTG HPL dA, DCP LOADING CUMPLLTs 
Ting CO 87 G2TA 1707 b PRINT 71b2 1772 SOLGAD EQVU * 
WWC OZ 414C 3705 DC XL1*02° 13D1 CO 6&7 02132 1772 B TEST Chath FATA SuLICHES 
WWD 1k V14D 17u9 bec ILT*3u* PROGHAS XXX BUT FOUAD O8 DISK 231D5 CO 87 O2F14 1773 b XREF1 GO LOAD SECT10N 
VIWE 1344b WWF 1720 bc AL2(NOUFRND) 000. 1774 DROP XRKZ 
1711 1775 SFSESETIKESE IE SERS SF SKS STESSHS TST STVSSSH SSESOKSEKSSSE SESS KESSET SKEET SSH SSSSOSSTKSS 
17150 38 4O 113A 1712 NET TBN SRFLAG,BIT1I DID FCO GET IN ? 1776 * 
1154 P2 10 GE 1713 JT HEL2 . 1777 * STORAGE DC*S FO DCP 
1157 OC 02 133b 1355 1714 MVC IDLOS?7(3),81CDaAT BOVE "FCO*® InTO BLSSAGE 1776 © 
115D CO &7 O2ZTA 1715 b PRINT 1779 FRPCKKKESEKSSESHESES SHEKSS SHS SSE SSESHLS SEFCKSHSSSSSSEVSSESVSESHSTVESS GSEKESSSLHVSS SHEE 
1161 02 1161 1716 pc XL1°0z* 1780 
1162 TE ¥4o2 1717 Dc 1L1*30° PROGKAN XXX NOT FOUND ON DISK 11D9 00 13D9 1733 TEHPA DC XL 1*90# 
1163 13%: Toe 1718 DC AL2(NOTFND) 11DA 08 VIDA 1782 x08 pc XL1°08°* 
1719 71DB 0800 WDC 3753 TWOK DC xL2°0600°* 
1105 38 20 113A 1720 Mb2 JoN S#FLAG,bIT2 BID Fvo GET Li 11DD 000000 VIDF 3754 VEID DC XL3*00U000" TEMP S1ORAGE FOR ID FHOR VOC 
9309 FZ 10 OL 1721 Jt DOO Ving vGU0200000 W4r8 1785 CCHHO DC XL5* U000U0UU0U0 ® CYL HED REC FOK 143 (3340) 
1176C OC 02 1335 13564 1722 SVC LbLOST (3) ,FPDOKOR BOVE "FL6*® INTO BLSSAGE 11z5 0000000000 911i9 1750 CChR1 DC aL5*0000000060 * CYL HED KEC Fu #CO 
1172 CO 87 O21A 1723 b PRINt Fiza CIUOUVOOUN VILE 1737 CCHE2 DC 4L5°0900000G00 * CYL HED REC POR FDO 
1176 02 1276 1744 bc XL1°O0z* VIWEP 1944 WIPO 1783 CCHEVe DC ALz(CCHHO) 
| 1177: «1E 3177 «1725 bc iL1*30* PROGRAM XXX SOT FOUNL ON DISK 11F% 1959 V1IP2 W728» CCHHIe DC AL2(CCHH1) 
| 1178 W34E 1179 1720 DC AL2(bOU PND) 11F3 11EE 11FP4 1790 CCaRZe@ DC AL2(CCHBZ) 
117A 1727 DOosO kLQU- ® 1175 0100 3176 17919 4200 DLC XL2* tuu® 
127A CO &7 O21A 1728 B PRINT 14F7 0008 14F% 1792 PKIV LC XLZ2*0UU6* PALVILELGE BODE ONLY 
147k 17 VIVE 1729 DC XL79978 SPacE 7 TISES 134F9 C7 11F9 1793 XC7 DC XL99°Cc7ze 
137F FO 3B oF 1730 HPL #8O,HH HO GALT TO SHOW PGM*S BISSING VIPA F2 87 29 1794 J J TKSi7-TSTCRD-1 
| 1182 FO 6F 1B 1731 HPL H&,H0 SECONDARY HAL? SAYS beS*®S BISSING 14FPD F2 &7 33 1795 J1 J L¥2-L1iz 
{ 1732 1200 0000 1201 1790 BASH bc XLz*0*® 
1185 CO 87 1106 1733 b Sax RETURN 10 CALLER 1202 00 1202 1797 OPNUR DC XLT#u® 
i 1759 OOO 5O448FESSSEEOSEEE TEE EKEEEESE £6 4S $84 EEESEEEEESEEERESEED ESS 1203 FOFY 1264 1798 DFOUk DC DL2*8® 
‘ 1735 * 1205 00 1205 1799 PLAGS DC IL 7°09 
i 1730 * WhIis ON C 814 ( 40 GEY BIL OF alTeIbUTL CHAKACTLHS ) 1206 0000 1297 1600 X000U LC XL2*0000° 
i 1737 © 1208 1469 1209 1501 FxeST@ DC AL2 (FHS1) 
i V7 3B SSSHHESRSEEOESES OEEEEER EES EE EES EEEESEREEEESESEECESES ESTEE IZUA U1E0 120K TBUL LU4b6U DC IL2*s860* 
| 1789 1739 BLKCKT EyD *# 
j 1189 3D FF 0679 1740 CLI CRiFLG,X*FF® iS CaT N1ChO LOADED 
TBD CO 01 1107 oS BNE DOHA 1f LOT, DOs*T BLANK 
q 
i 1191 3C 07 7LCF 1743 BVI ERSSW41,X°U7* SET UP TO ERASE OR CKT 
| 1195 F3 16 80 1744 510 = X* 80°, S102 DISAKLeE HICHO PROCESSOR 
{ 4196 F3 Ib EO 1745 SIO -X*"£0*,slOL LNABLE/SIAK1 BICKO PROCESSOR 
T19B OD PF 119B 1195 1746 CLC *(256),*% WALT FOR BIChO PROCESSOn 
| “481°C 48 1407 -- 4747 110 DOHA,X* To* READY ? 
‘ TAS 317 10 1207 1746 LiO = xv0UU,X°1T0* LOAD CRT BUPF ADDR 
TIAS 31 Ih 1209 1749 L1O =FKSi@,i*°15" LOAD MAIN SiIORAGL bUFPLS ADE 
TwAD 37 12 1208 1720 L10 «= pO04b0,X*I2* LOAD LineTH OF WkITL TO 430 
13B17 UC C7 15C8 15C9 1751 BVC) =o LB (20) »L5*1 PxUPUvAL1Z® BLANK THRU 5S CR1 LINES 
157 FS 10 91 1752 SIO) X*91%,x* 408 WHITE BLGINNISG BSG 
/ 7134 (1 1F VIBA 1753 T1100, X* 1F* SSG OM BUSY 
i TIBE UD 31 1143z 12BE 1754 CLC *¢50),°% DLLAY FOR INTLRRUPY 
WICK FS Th O02 1755 SiO = X* Uz" SIOL RESELL PENDING INTLERUPS 
| 
: ga rte oe neuante Gsvan 76 PROG 1D FFF-3DATL = Z9AUG75. sO? NOW75 19MAbeo «= 0.30 UN76 bauG ID PRP-3 
i . 571871 PAGE 17 EC WO. 827804 827805 827872 571871 P&ckL - 97a 
j 
é 





Lbs MAINTERARCL DLAGNOSTIC PHOGKAS PART HO. SZ4E23UIBR HAINTENANCE DIAGNOSTIC PHKOGHAR , PART NG. 62882350 


PAGEL To PAskb wa 


FYP3 DIAGNOSTIC CONTROL PROGHAMN ~ HODEL 12 PFP3 LIAGNOSTIC COHTROL PHOGRAM - HODEL lz 


ERK LOC OBJECT CODE ADDR Siki SCURCK SY ARPELRENT ERS LOC OBJECT CODE 4ULUDK STRT SUURCE STAITENEAT 
TUG Saeseeesseegee 1377 CO 8? Ota 1639 B PhHInt 
Goud & PRINTOUTS Ft SS Steeser SESS SESSSSSSEKS SESSOKKSESESESHKTYSSSSTESRSSSSSESE SS ER 41378 21 4378 2680 Le XL3°2 5 
1bUp *exeeeeee4R88 1327C OF 00 438A O39b T4t SLC CNT ,ONL 
tou? 1382 CO OF B30) 184< BNGZ 42% 
¥ZUC LD3DECIC4YCSDY $242 BQ60a LDE be CLe*LOADL:E®& i360 CO 87 0000 3683 P4Lke B&B o~& 
1212 DFIDSC8L5e35C5bD9 ¥W24s FsuY i: kRIR DC CLU®* PRINTER ?® F3da O0 B34 1844 CART De IL1*O* 
7249 DEDOCHCSD3G0L74B B2ZF WHYIO LINEGT LC CLZS°hCbcL X. STORAGE XXERE ‘ Toes 
41221 YVOUDEZE3LODSC IC? BEBO TORO SCSSSSSSSESLSSSSSSSSESESH SS SSL SKS SSE SE SOSSSTE SSE SSE SS SS ISS SCS FHSS IS SSHSS SSS SS 
1229 COHO8OLT cI LTB tb tu 


Bu? & CHeCK LF PASSLD 1D IS iN UDI ( SUBROUTINE ) 


1230 4O4080C3D7L44O0LDe £253 THF LIBEBA DE CL 36 4 CPU OPTIONS BEE X ® § LOsoETd sR PUSH STSSSH SES EKSSTLS| SSSESSESS SSRES LHS YS. FESCRSSSLESOCSASSSSHSS SCE SSETESE SIH SS SEE SS 
1238 L7LsC3D0d5E24UCI iby Toeay 
1240 L9IC54U40L7THURO40 1614 4136B 7850 CHKID EQU s 
4448 4$040404040408040 TH48 1386 354 Os 43bD 1853 Sl CHKX643,ARB 
1250 40404040 1611 138F 34 G1 4339 41852 Si CHKSR 703,284 
$1254 40 4254 Wiz DC Chie e f 1393 35 01 23BD 4853 L CHKX@*3,XB1 
1255 n&¥D5C9ILE3S4UCKC5CE 420A 1673 DC CLZ2°UNLT UnFINITION TALS @ 1397 O£ O01 13BD 039D TK34 ALC CURKXSt3 (Zz) OME 
125D CSYD5CILSCIDSED54O 1813 13$D 31C 00 13A7 00 1655 BYC S1LD(%) .0(,XB1) 
Izo5 EICICZD3ICS4O 1633 13AazZ C2 VI O232 1856 LA UTABR,XR1 SUDROUTIBs TO ChcCK IP A PASSED 
WZob YBYBRBYBAODSEYE? 7247 7B4RO LINLZ Le CL29*® ,cee HUST BE COHRECT -VLRIFYE-* 1sA6 7b QU 00 857 RICHKL CLI O{,Xn1) ,8 Ip 1S 1m THE ULE TABLE. OF EXIT 
1273 £2HOC2C540C3D6b9 1534 ¥3A7? teé5b SIL EGU B-Z 
¥27b DICSC3ESNUGOESCS TS Ba 13A9 P2 81 OA 1659 Jb CHKSR? THE CORDITLON CODE WILL bE SeT 
1zb> DICICb6zL860 Tota 13AC 78 10 OF 3600 TBR B( XH) ,X* 308 G70 &GUAL IF 1D 1S PRESENT, HOT LCUAL 
1288 8U804504U8UNC404O 12474 31645 LINES DC CLz6® ® + IZAF Dz OF 03 T8o8 LA 3(,XR1) £1 LF ID 1S BUT PRESENT 
1290 4040404080408040 Fad 1352 CO 90 1386 1862 bF XTCHKL 
1298 40404040040408040 TIS 13B6 C2 OF 0000 3463 CHKSRI LA e-%,XkF 
1ZA0 4080 44S 13K%A CO 87 0000 F664 CHKXe B o--% 
1ZA2 GOSOKOKOGUOSOROUD 12C2 16%0o LINES DC CL33* DCP IS LUADED?® 
IZAA 4040404040408 080 2816 
1232 4OSO4O4OC4C3D740 Wwlo 
12BA C9EZHOD SDOCIC4CS 1516 
12C2 C4 1810 
12ZC3 4040404040804080 12D6 16137 De CL22* @ 
1Z2CB 4U404C048040804080 1817 
12D3 GU4GHURO4U4Y 1837 
W2D93 60606060060000060 12F5 183% DASH DC Z29CLte—*# 
32b1 6060000060606060 1838 
41243 6¥6v00000U0060060 4618 
12F% 6060006000 1618 
I2PFO C4LEL4DTVOLSCID? 2323 1829 LC CLYO"LUMP TAPE LiROb STATISTICS BbeYOut HONNING DISK*® 
WZPL CS4UCSD9DEDEDINO 1639 
1300 22203C 1esC9E2R3C9 1819 
130L C3EZ40CZC5CoDOD9 3819 
1376 COYO0D9LYDSD5C9DS 4649 
W3tb C74SUCKUCYL2ZDzZ - 9629 
41324 BOCHCYCICTDSDOLZ2 1330 2820 Xb LC CLi3* DIAGNOSTICS-* 
13Z2C E3COCSEZ00 tézu 
333% LILDSDECTLYCIWLA4YO 41335 2827 ILLOST DC CLUIB* PROGRAM XAX® ---- | MUST Bk TCGETHEK 
1339 L7LIL7 to21 
133C 4ODSDEESYUCODOLY 134% 21622 NOLPND DC CL19® BOT FOUSD OB DISK ¢ ---- |{ 
1344 DOCHHODODS4OCHCE 22 
V34C bLZD240 3822 
134? te823 OFTIAB EVD * QVABLL Ok CPU OPTLONS 
134F FIPZFSFSPOFOFIPS 1357 7628 DC CLY *42345078¢ VY S*GNALS END 
1357 bY W244 
7356 GU 4356 Yo25 OPBUP LC XL7*0U8 
1359 FIP4AFS 235b 3826 MICLDR DC CLO3* 1438 
135C Cec3F0 9¥35b 4027 HICDAT DC CLOS*FCO® 
155P C1C3n3 4362 B82a ACLKON DE CLU3*ACT®* 
Tanz CoOCuP6 1304 Vey FLOKON DC CLU3*FPbo* 
1630 
FASE SSSCSHSCSTE SLSTESSSE CST TSHSESSLSSLSSSESCKSLSESSHSS A SSSTHE SSS SESKS] SSESESEVSESSESSE SSE 
W352 2 SUBLOULLNE 10 PRIN 0 wom mer een een 
4833 SKESEVMSSSESSKSESLSKCKSEAKTKE SE SSERSECASESCEHESFSKFSSRSESESSKESCSKSESSSHKKEKSKAEGSSESESL ESS 
Ib 30 
YooS 34 08 1389 2645 PTX st PT%@+3,ARR 
1363 3C 02 136a 1% 36 HW] CNT ,2 
¥30D 3C 60 O88C 37 421 AVI X°880"469,C8-8 
1377 OC 3A 0883 OBBC 438 SVC X°6B09259 (59) ,5°5680" 260 
2 sees % PYF-3 
DATE DYAUGIS O7NOVI5S tSHaAhTo U35B8 Fo bPxOG ID PPF-2 DATEL 29AUG75 OFHOV?S 4“A R76 OJON 6 ee 1D a 
EC HO. «827804 827665 Beatz 571874 PAGE 46 EC NO. 827864 827865 b275 72 2eteFt 





ee es : PANT WO. = 4288230 
Ibm MAINTENANCE DIAGNOSTIC PROGKAM Paut NO. 4206430 {BS BAINIENANSCE DIAGNOSTIC PROGKAK oes Gar 
& 
FPP3 DIAGNOSTIC CONTROL PROGRAK - MODEL 12 PFv3 DIAGNOSTIC CONTHOL PHOGRAH - BODEL 12 
ERK LOC OBGECT COD: “ADDR Sims SOUKCe SLATEMENT ae LOC OBJECT CODE ADDR SUT SOURCE STATEESNT 
; * * SHHSKEA SEEKS ERES V4oa 51 W46A 21938 — “pc AL7°5178 W482 Device COVE 
aes Sere eee Ween Cae eae ee tae e PS ESE SEE ES ties > oe So aac yee Saud | GO daLT ao tee em suet 
boo © ss ON. bo aE. “Se } 146s OC 4% O7DC 18D3 1936 AVC = FRINAS75 (70) /PHALI¢7 OVebLAY ALT. CODE WITH 1842 CODb 
1b3y 8 ee ene SF Gets ae Bhd 30 [UDICATE. bO-AL Nc GOURD 
: . hie 1477 YO 3B 3B 1936 HHHAL? HP aH, ° 
ace ; Peet: Gneowe” Ceyencesy | “Ne ers es eee : 147A C2 01 0000 1939 SAVE? LA o-*,XE1 RESTUks X21 
IwI7z * LINKAGES NZCESSAKY BASED ON MODEL anD PRINTERS W7e 1940 LVHOB EWU Ss 
1675 3 147k CO 87 0212 1941 B TEST 
174 * AITACHLD FPO POPES FUNCITONIRG OF DCP / 4482 CO 87 0000 ve LEXIT 5b 2-2 
Tw75 8 
WWI * £HIS SUBAOUNINE IS eXeCUIED ONLY ONCE-- WHEN THL } 1943 
1077 3 FIRST COMMsNT (*) CARD 1S cACOUNTLRED OR WHoN } OUOF 1944 USING DATS&S~1,X82 
16738 * DCP*S END (b) CakD IS KEAD. 1486 50 00 01 1945 ISIINS SBS VATSWS (,1E2Z) ,0 
sty © 
eau ASSESSED ES ESSE FEES SEES EESEES EE SEOES ESSE EEEESTEEEEE OD 8OREEEEESEE ESBS) 
1561 
| T3BE Tbb2 ARLF2 i1QU * 
Pe il ¥3BKE 34 O08 1465 1083 PIXNOB Si LiEX1T+3,AkK } 
i Taba 
13€2 3D 5C 0880 1885 CLI -X*B80",Ctse 
13Co F2 61 08 1806 Jé TRYCPO ) 
439 3D C5 Uss0 16387 CLI £*680*,C%E® 
13CD CO OF 147z 1bs8 bNE  LVMOB 
13b1 3D 00 0200 teu9 TRYCPU CLI xX*200",xX°U0® IP A CPU CASD PROCESSED, HEN DO FIXNOb § } 
13D5 CO 01 13E3 18490 BNe ‘STUDI ~HV- ALT * CAND PUUKD BeFOxi CPU/UDT CARDS 
: 13D9 FO 3B oF 1691 HOH BPL HU,HK 
13DC FO 6F 76 192 HPL «RZ, HO SECObDAnY HALT. ® COMMENT O8 £eD POUND LUT NO CPU} 
13DF CO &7 147k 3693 B LVBHOB 
13£3 1894 TSIUD1 EVD ¢ 
13£3 3D 60 023z 895 CLI JTAB,O IF NO UDT CAKD “HEN HALT } 
13E7 €O 81 13D9 1896 bk hOH 
13EB CO 07 1475 1697 ONCEXA BC LVMUB,X*G7* LO 1HIS KOUTIBE ONLY OBCE 
13EP 3C 87 13EC 1698 BVI OwCLXX4#1,x°878 ) 
1699 
13P3 GC 01 629A O1FD 196u MVC) «o-ENTHY1(z),X®1FD® 
13F9 UC 01 0335 OFF 1901 HVC BMTRYZ(2),X°4FP*® BOVE ENTHILS POINIS @ 1810 LOAD RIN ) 
13FP OC 02 0456 1488 wuz RVC =TSIOVL42(3) ,ISTINS#2Z 
1405 38 80 0233 1903 TbN USABO1,X*8O* 1S GHIS A DISK SYSTES 
1409 ¥2 10 19 19U4 Jt DSKSYS } 
JMUC OC 02 OZFE 11PP 3405 RVC =—- LX Z-9(3) pd 142 
W12 3C 00 0462 1906 MVIl TSIDSK,O 
W446 GC Oz O48D 19FC 1907 AVC = -451CRD(3) ,04z ) 
; 141C OF @3 OIFP O1PP 1906 SLC - DIABLL#2(4),DIABLE¢2 CLEAK CARD LOADZK PLAGS.~ 
1422 F2 87 06 1S09 J NUTD NO DIAbLE£ CLLAR Ob Cagb SYS ‘ 
~~ 1425 1920 DSKSYS cuU * } 
1425 OP OS O1FF O1FF 1911 SLC DIABLEC1(6) ,LEABLE+#1 CLEAR DTASLs FUK DISK SYS 
' W255 3D C5 200 4912 MUD CLI SMOD,C*zE® TrST POs SOUELL z 
| 142P P2 01 03 1913 JNE CKC1O JUKE IP KOT ) 
1914 
: Ty15s 2 OLD FOVL OF Ch1 UVEALAY WaS HEAL 
j. 143Z F2 87 49 1920 3 LVHOB ) 
i 1435 1937 CKClU LOU 
| 1435 34 OF 147D 1918 Si SAVE1#3,X81 SAVE Xh1 
I 1439 CO 87 1343 1919 B CHKID ) 
143D 10 Wasp 1920 BC XL1¢qU8 BLT. PANS BuN. WATHK 35471 FODULE 
343b P2 01 03 1921 dhe TR5424 JUNE LF SOt 5471 
i 1441 PZ 87 36 Wee a SAVE4 IF 5“ 74, Ydbw a0 HUgt CHECLING ) 
i 1444 CO 67 1365 1923 145624 B CoKip Chain £Oa & 542% AITACHLD 
j taut PO aas 1924 DC XL1* Fut S4<4 DEVICE CUDL 
i T4049 F2 U1 O09 Wad JN €K 3791 GO 40 CeorCK NLXT Divicsr } 
W44c UC 3B O7CC 16C3 1926 BVC = PKI NA459 (0U) gHHL12#59 OQVLKLAY ALT. CODE WITH 5424 CODE 
1452 F2 &7 25 1927 J SAVE1 bx2é THIS ROUTIAL . 
1455 CO &7 1384 W¥.u% TH3741 B CAKED CHECK FO A 3741 ATTACHED } 
1459 4O 1459 1929 BL XL7*4u8 374% DEVICE COLL 
i 145A Pz 01 09 3930 Ink THtag2 GO CHeCh Bex DEVICE 
W>b UC 32 07D3 17C~a 1933 BVC  =—- PHTNA406 (07) ,DHALT#¢66 OVEXLAY ALT. CODE WITH 3741 CODE ) 
| 1463 F2 87 44 1932 3 SAVE1 bxld THIS avulINE 
| Iébo CO 87 1386 3933 2h146z b CHKID CkcCA FOn A 184% ATTALEED 
: DATE 29AUG75 O7NOV75 19HAK76 033UK76 PROG 1D Fer-3 DATE 29aUG75 , O7ROV75 T9HART6 U330N 76 kaOG ID Prr-3 
i zC NO. 827604 827805 827872 571671 PAGE 39 {EC NO. 827804 827805 621677 571871 Pack Wa 
‘ 
| ) 
j 





IBN BAINTENANCE DIAGNOSTIC PHOGKAB PAKT BO. = =424523U iby BAINTEMANCE DIAGNOSTIC PROGRAN PART WCe =. 4 2482.30 
PAGEL <u PAGS 20a 
PPPS DLAGNOSTIC CONTROL PRKOGKAN ~ MODEL 12 FFF3 DLARGHOSTIC CONTROL PROGKAK - MODEL 2 


ERE LOC OBJECT CODE ADDR Sihi SOUKCh STATLHENY 


ERR LOC OBJECT CODE ADDR S1Hu SOUKCE SIALEBLEY 
3489 3947 FES? LUU s WV} SHITELSASEHESES SEHOS ESSE SEHSESH FOSS SEES GESTS SESE SOESOSSESESOEESESEERESES 
7485 4040404060006000 3450 1946 bc CL.4U* TES ore SS Se See ee 5 Woz 2 5424 ALTEKNATE CODE s 
F494 50 o0606UGG600U06U 946 1964 SPFSSHASHERSSES SSEOESSSESEHERESES BE 
1494 o0o0ol600C0000000 1946 PFREO 1908 OG L°Prrr?— x * jo58 fee IP rPLAGGED, OVER LAY PRUBL&E 
144a7 6000006060606060 1948 1686 Wo GkG Z* touse 
THAY 606006004040 404040 1945 0725 1406 USING PHTH,XKz 
V4BT HOUOCOHONEFUOHORO TaDE WY¥4y Be CLage i DC F & OO AUDUE SD f ® 21688 4967 USING BHLIT2Z,XRE 
I8BS9 BFOCUGOC3I4OD 78040 19469 1668 PO 38 SP 1408 AHLI2 HPL HS 6H SMFCU NOT SEADY O& LERBOR 
TACT GONOD3NODONNC 146 Way T68b LO 87 13 1Ve9 B PK1IN9(,XRz) 
THCY CHUOCSUDOCHYOLONO 1949 T6¥E BD LO 5D t¥70 ALS&2& CLI PESLO#3 (,Xh2),X8L OF GO oXi7 LP THIS WAS SPAaCk OPERATION 
WDT YWGONFUdsGauUsOdO i944 7091 EQ 81 65 Bya7T BE PRE EXT (,XLR2) 
1459 HO4O404UD06060C0 8506 1950 BC cL4o* Sere eee a Se See . 1694 BO F3 4&0 1972 SNS SSTAT(,XNZ),X*F3® KhEAD BFCU S1A1TUS 
VEE 6060060060600606060 1950 %o37 Bb 10 3F 18723 IbN BESTAT—4¥(-XH2) -X*#1708 JP HO CARD IB SLC WAIT SIATiON, 
THES 60 60000060600060 1950 JoY¥A F2 10 OY W974u JT DdDOIT ISSUb FEED COMAAND. 
T4P? 606006006060606060 31350 4o9D b1 Fu 00 1975 TLO BHLTZ (,Xn3) ,X* Fae TESai FO SFCU NOL READY 
WHFO 0060604GR040404K0 1950 TOAU P3 Fs 00 1976 slo X*O% xt Fae Give wWiltd Tan FeeEb COBSBABL 
1501 1528 1951 Ds CL4O 1OA3 DY FI 1B 1977 BS¥LPO T1O BSYLPO(,XH1) ,.XePDe TLsi UNTIL MOT SUSY 
1529 4550 1952 DS CL4O T6A6 DY FB OO 19786 DOIT TLIO HALT2 (,Xat) X* FRE GO HALT IF AFCU MOT BLADI 
1351 31578 1953 bs CL4V ToA9 BE FY 42 1979 LLO PHI (,XHZ) oX* Fu? LUAD S¥CU PHINT APDRESS KEGISTSR 
1579 I5aA0 1954 BS CL40 TOAC FS FC AY 49uu $10 X®AG*  XFPce PolNT ON BFPCU CAHD 
1SA1 T5C8B 1955 Ls DS CL40 leaFP BO F3 40 T4Ut BSYLPT SseS  MSTAT(,XnZ),X*F3° WAIL FOs sUSY 370 DLbOP 
tSC9 4O4ONOKGKUNOP3F2 2I5PO0 1956 DC CL4&Ot 327G BIChO-cCOULsb LOADED . 76B2 48 4O aF WBZ BN KSIAT-13 (,2hzZ) ,X°80* JEST FOR BUSY 
15D1 F7FOSUD4C9C 3D9D6 1950 16BS DO 10 27 I¥b3 bt bBSYLP1(,X21) 
TSDY bVCIDECHCS4OD SDE 72956 WoBe DI FS OV 193048 110 HALTZ(, X09) ,X* Fut ©O HALT IP AMY t.saROKkS 
W527 CICKHCSCHHUV4ONOKO 1956 ToEB OC 63 O8FF O80G 1955 B¥C LPDLATA? 1318 (132) ,LPDAIT A432 BLASK PHINT BUPPER 
T5E9 BOUORO4UNONOKOKD 1950 WoC? EO 87 65 14sb0 B PHIEXSL (¢Xn2) RES‘ORtL ARZ AND BLIUAH 
T5FT 404040404N0404040 1616 1957 BC CL4a*t . _ WQa7 SSCKSESHSSE HERES FOSRE HS SEKEKTSTS OEKCESVOSSL STIS SS VSLERERGSSTESOSSTEHED SESE 
DFO BO4OGO4ORINOKSO4KO 1957 19&3 * 37417 ALTESGKAT&£ CODE * 
“TOUT 4OUOEURD4OKO4ORD 194957 ; WSLY SHFSSSEKSSSESSELSESCESS SSS OESERESAE 
1009 4O4NUO4UCHO4OSORO 1957 : PR3B 199u OnG X* PF PP OEE B7ba Mes LPF rLaGGeD, O¥Le LAY PROBLLE 
1o9? SONO0GOUGKOEORONG 41957 4788 199% ORG K*®17b6® 
1649 HOMOGORALN £20580 1680 1958 oe CL&u® USE CONSOLE SWITCBES TO SLLECT 7 0715 4992 USIdG PHIN,XR2 
1621 C3D6D5ELz2D653C540 1956 j WWes 1493 USiSG DAALT,XRI 
1629 EZEOCYE3CSCKCSEZ 1956 176s FO 3B 5FP 1994 pvHALT HPL 09,84 3743 BOT HEALY On LaaOR 
16317 40L3D680E2C5D3C5 195d 178B £0 87 43 3995 3 PRINV(,XB2} KEL1UhB TO THY AGAIB 
1639 C3E3404080408040 1955 WEL 74 4B 3E 1996 LIG FURCSH(,XR2} ,X*aRe LOAD FUMCTION Lke 
1O4T BONOHVEUCKCS5SEZCS 10606 1959 be CLao® DESIRED PEROGEAR. . 17917 BL EO SD T¥97 BITREC CLL PRSIO43 {,.XR2) -X*®EO® 1S udis A SPACE OPchATIORN 
To4Y DICSCAUODTDSDECT 1959 92794 £0 84 65 1996 be PRILXT {,1R2} HeiuRS IF 1i IS 
1057 DICTLE4 BAU 4OKOKG 1959 : 4797 70 8&3 &O 4999 XPKSNS SHS XPALIN¢,An3) ,-X°a3* SLasb Tdi Trn&NSFER LIBES 
1659 8O4040sCKG4ONOKO 1959 T79A 78 OG 3P 2000 TiN XSFRLIN—-TBEoanT) XFEUS® TLST POR 3741 ON-LiNe BIT OF 
1667 SO408O4UKCKOSOLO 1359 179D DO 90 00 2001 bF DHALT (, XK 3) GO mALT IP 37483 HOT Ob-LIBE 
WAU 78 07 3F 200< Tby XV RLIN-1¢(,2%R9} KP OR® TES2 FOR Waltts bIT OR 
%7a3 LO 90 OF 2v03 bP IPESNS(,Xx 3) LOOP IF WRIT BIT WO OF 
W7AG F3 43 O8 20048 $10 X*0G* ,.7°4H 38 NORMAL RESPONSE 70 3781 
Way 37 48 0759 z0us L10 PUHZ, XP NRE LOAD DATA ALDELSS KzLGISTER 
Wav 77 42 42 2000 LIO RECLEN(, 2813) -X*42® LOAD LeNGIE COUNT REGISTek 
1750 Ps 42 00 zuuT7 slo X*®O0® ,.xeazZe WELTL A #HECORD 
T7B3s DF G2 23 20Gb Isn51Z TIO ISbiZ (, Xn 8) , X89 42* WAIT TILL NOD BUSY 
W7Bo BO &2 49 2009 SNS MSTAT (,X(e22}) -2®42*® GET 18k SIALUS bIILS 
1759 BY OA 3F 2040 TbP MSTAI-~1(,X82}) -X*OAa* TESi FOR PAKIT LREUR Ob OViEPLOY 
T7BC DY 90 O00 20244 BF DHALT (,X%5 13) IP gxkUK. HALT ABD ThY AGAIS 
WbF P3 43 08 2012 SLO X*06%,x #438 HOnBAL KESPUNSE 10 TEL 3742 
17C2 EQ 87 05 20143 4 PRIEXT (, XZ) keovURN TO abidhs BOUIINE 
17C5 4u00 W7Co ZO FURCSH DC XLz2*40008 PUNCILON Beolstta DATA 
17C7 0000 W7Cs 2095 XFRLIN DC IL2*00® TEANSFLR LIbcS DATA AEA 
17CY% OO7F F7CA 2000 RECLEN DC SL2*u007F® LENoid OF KECCKD 20 BE weITIEW 
LUD] SHHETESCSTHSESSESETS SESSHESSESSSHHS SSESSESOSE SAS SCESSHSSSESTSSHISSSCE SESS SSS SSS OS 
LU & W4Z ALTLHNATZ CObE * 
ZUBY SSSCHSSSHESSEE TES SEES EST SOESSECS ES 
FPPA2 2020 OKG 2° FPFPY-X5 Pototes AF FLAGGLD, UVEb LAY FPRODLL® 
W885 2U45 ORG 4* Tesu® 
0735 2622 USING PRTW,XR2 
1888 2025 PSinG YHALT,XRI ; 
Wess PO 35 SOF 2028 PSALET HPL 89,8 SIBKe 41 BEADE Um LaRUA 
1886 i£U 87 43 2025 B PRINT (, XZ) Tuy If AGALb 
W6sE BD EW 5D 2020 TOMG2 CLI PRSIO€B(3R2),k°LU® EXIT IP 1diS BAD A SPACK OPcHATION 
1891 EO 64 65 aval bh PHTEX1I (,in<} 
1694 BT Su 44 2026 Liv PR2(,Xn2) ,4°58* LOAD POBCH Lald ADDecsS HLGiStI as 
vaTE 29 a0G75 O7NOVIS 19M4a bFo G30 UH76 FROG LL PFF-5 pate 29AUG75 G7ROV?S WHAaTo 0338876 koe 1D FEP-3 
EC BQO. 827804& e276O5 BLT6 TE 571674 PAGL 20 EC NOW 6827804 b278U5 8273872 47167 FALL «4B 
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IBM MAINTENANCE DLAGROSTIC PROGEAN PART bO. 4246230 IBS MAINTENANCE DIAGNOSTIC PhUGHAR PAbT NO. 8288230 
PAGE 21 PAGE 24a 
PFF3 DIAGNOSTIC CONTROL PROGHAR ~— BODtD 12 PPP3 DIAGNOSTIC CONTHOL PROGKAB - BODEL 124 
LEK LOC OBJECT CODE ADDR SINT SOUKCE STAYESEND ERR LOC OBJECT CODE ALDER STST SOUKCE SIATERENT 
1897 71 50 GA «029 LIO PUNNUN(,Xh1) ,X°50* LOAD PUNCH COUNY ALGIASTch (128-5) LUGO SSSSSSSESESS SESS SH ESSTSESESEEES ETSESCEOS SOD 
789A D1 50 00 2030 PUNEKR TLO PHALT(,X%K2) ,- 4° 508 deSi Fuk NOL READY Ok ERKOK 2091 
189D PF3 54 00 2031 Sl1O X*00", x854a8 PUNCH UNLY } ZUG2Z FOSSE ESHEETS SESESEEKHESESESOEHEHE SS SSEOOSES 
16A0 DI 52 18 2U32 BIZZLE T10 BIZZEE(,XH1) ,X*5z° wAit’ FORK bUSY TO DOP 7D86 2093 DODUNP EQU ® 
1643 50 53 40 2033 SNS  MSTAL(,XNZ),4*53° GE STALUS BYYLS 7D46 CO 87 Oza <094 b PHIRT SPACE 
1846 BI 36 4u 2034 BF SSTAT‘,%K2),X* 360" CHLCK POR ANY LRKORS TDUA 11 JD4A 2095 pc xXL1°198 
1BA9 BY OF 4O 2035 ThF MSTAT(,Xke),X*OF® MOke LEKORS? 7D4B CO 67 O21A 2096 b PRINT CLEA BUP 
18AC LO 90 12 2030 BFP PUNERR (,X 1) REPUNCK TdE CAuD 7D4aF 81 TDYF 2097 DC XL1°83° 
IBAF 7D FPP 4B 2037 CLI FLGTWO(,XH1) 2° FF® CHECh IF 2ND CAKD FLAG IS SLT 7D50 28 7D50 2098 DC IL7*80°8 CLEAR bUP 
1882 £2 81 16 203b JE PUNDUBE IP SET, YdeN GO EXIT THIS KIN 7051 7E25 TD5z 2099 pc AL2 (DFEMG) 
4865 3C 4O O8CB 2039 MVIl LPDATAt79,x*40* MOVE AN FLixnSI BLANK 7D83 UC 73 UBFR FESE 2100 HVC} =—s- R°. 08 7C°4120( 196) ,DEBG1I MOVE HLADINGS FUR DUMP 
18B9 OC IF O&CA O8Cb 204u NYC 8 =LPDATAt7?58(32),LPDATA*79 BLANK OU KoST UF IHPUT ARLA 7D59 CO &7 OUZTA 2102 ) PRIET 
1SBF vC 2b USAA OSFA 20481 SVC LPDATA+40 (47) ,LPDAYAt¢1Z6 MOVE 18 THe REST OF THE DATA 7D5D al 7DSD 2402 bc XL1°a7® OWN ARLA 
18C5 7C FF 4B 2042 MVI «=PLGIWO(,x481) ,X*PP® Sti THe 2Nu CAKD FLAG TLSE 3C OF 7DAd 2103 MVI «SKC, x*°OF®* BEG1# DUBFIsG aT 0000 
18C8 DO 87 12 2043 B PUNELKH (,X21) GO PUNCH TBE SECOND DATA CARD 7Doz 3C OU 7DAS 2104 AVI =6SKC-3,x*00* 
18CB 7C 00 4B 2044 PUNDUN MVI FLGIWO(,X#1) ,X*08 RkScl ZNL CARD PLAw 7D66 30 O00 7DFB 2105 SNS OWROLD, 2°00" SAKE OLD = PRESEBE (ScNSE SWITCHES) 
ICE EO 87 05 2045 B PRT2XT (, 22) BLLUKN TO REDUEN KOUTINE 2106 
18D1 0030 48Dz 20460 PUNNUM DC XL2*0030* PUNCH COUNT PORK 4°42 i 210 
18D3 00 48D3 2047 PLGTWO LC XL1#08 PLAG FOR ZhD CARD PUNCHSD 7DOA 2107 DELP EQU) *® JOP OF DUAP LOOP 
2046 7D6A 30 00 7DF6 2103 SBS OWNSA,X*UO*® GET SWITCELS 
2046 TLeoE OD 04 7DP6 PDP8 2109 CLC O#NSM (Zz) ,OWROLD 1F¥ wO CHG TO SS¥, GO On 
2049 SKESKKLSESESTESSHSESSTHKSSSESS SHKSEKSESES SE KS KEK STSSSEVKSAT SSE CHSVETSESEKKTTSHETERECSES TD74 F2 &1 10 2310 JE CouTtVe 
205u * cd 23421 
2051 *® BEGINNING OF DCP sESERVED STORAGE. X*7000°-X"*7PPF*® (2K) * 2112 * BUST BE NEW VAL 1B S#, SO INSERT IT 
2052 * * 7D77 OC OF FDAG TDF 23723 bkWD MVC) )|§6 SKC (2) ,OWRSW 
2053 * * 7D7D 3C OF 7DAb 2114 KVL 8 SRC, xX*OF® SIAmI as 250 BYis BOUNTARY 
Z2u54% SECTS ESES ES TELS EHTHASERT THE KSTH TS OTHE EATERIES SSEEASETHASRELSE SESE SS ESSEEKESESE 7081 0c OW 7DP8 TDF6 2115 BYC Oa ROLD (2) eOuUKSH POZ Ree 1s OLD 
7800 2055 OkG X*7800* 2136 © BEFOKE PRINT SEE IP Wk* Vi CHAMGEL TO BEXT X*H00* BYTES 
7800 CO 8&7 6454 2056 TRYPDD b TSIOVL THIS INST OVEELAYED BY FDD 7D87 2137 CONTU EYD # 
2057 7Ds87 OF 00 7DFK 7DF2 21% ALC HDC1R{(3),O0WN16 BUMP Cio 
2057 7DSsD Pz 20 10 2139 JHOL NODPRG C2USES SLADI eG ABOUL EVexY Fo LINES 
. 2057 2120 
2057 } = 7D90 CO 8B? O2T~A 2121 B PRINT SPACE 
2057 7D94 11 7D94 2122 DC XL2°299° 
2057 7L95 OC 73 OBFY 7495 2123 MYC X*087C ®*42920 (116) , DPAGI BOVE HEADISGS POR DUA? 
2053 SORETETSS SKERSEEEAEES FHEEETS EES ESTE EEEETEREEEEESEEEEEEEEEDETE 2 7D98 CO 8&7 QV2TA 21248 B PRINT 
2059 © 7D9F Al 7D9OF 2325 Dc XL7°a2® Own AREA 
’ 2060 * SPACE 1403 54 TLMES RATHER 1HAN 6 Ob 7 2126 
| 2061 *® j 7DA0 2127 HODEMG EVD *& 
} ZOOL FEFESESEHES TESST FEKEEESSSSEESEES OEOEEREREEESETEEEE SES EEETEEESEERESETESEDEE 2128 * 
FBO3 2063 ORG X*FFFF*-x*7DU0 tes IF FLAGGLD, UVER LAY PROBLEM 2129 @ 
7D00 2004 ORG x*7DUO8 z130 Sri UP DUMP FAINT Li8c (3 UBPACKS AND X8k ADDAESS) 
7D00 2005 SPC3H LGU 7DAO CO 87 U21E 2131 B UN PACK 
7L00 38 04 0209 <0b6 TBH SSYTL1,X* 04" sswoD ** VHES* INSTRUCTIONS 7DaAe 10 7DAs 2132 DC IL1* t6® 
7DU04 F2 90 08 2007 JF Gun ** FOR LIKP ORLY 7Da5 0000 7DA6 2133 SKC bc AL<z (®-*) 
7D07 35 04 0209 2008 SbF SHYTE1,x*0O48 GET SSWUD OFF NOw ** 7DA? O8A6 7DAB 2134 DBC AL2 (LPDATA44 40432) 
7bus CO 87 7D46 2009 B popvunP se 7DAY OC 017 7DBB 7DAE 2135 s¥C = SRC 3.2) - SAT 
7LOP 2070 Gwh Eup 8 ee JDAF OE O01 7DBB 7DFz 2130 ALC SHC2(z) ,OkNIo 
7DOF 38 01 0209 2071 QbN SEY4E1,xX*G1° 1F SSW UF ON, ABD SP © O# MOKZ LO 34 7DBS CO 87 O21TE 21357 b UNFACK 
7D13 36 06 O5Dz 2072 TBM NSPACE,X*00® 7DB9 10 7Db9 21438 DC IL?* 26° 
7bD17 F2 90 1% 2073 JF DOKkG 7DBA 0000 7DBB 2139 SHC1 LC AL2(*-*) 
JDIA 3C OD O5D2 2074 MMVI WSSPACL,13 12 X 3 = 35 JDBC O8CE 7bbL 2140 bt AL2 (LPYATS 44404 3245432) 
7DVE OF OU O5DZ 7DFO 2075 DGocGt SLC = -NSPACe (1), OWN1 SPic > 30 LOOP 7DBe OC OF 7ODO 7DEB 2441 MVC = SRC 2) SACI 
7D24 CO B82 Ovi3 2070 BL PREXIT 7bC4 Ut 01 7DDO FDF2Z 2142 ALC SHC2 (2) ,0NN16 
7028 cO &? 0715 2077 b PRIN 7DCa CO 87 0215 2143 8 UN PACK 
7D2C £003 7DZD 2078 DC XLZ*EQU3* SPACE 3 JLVCE 10 TUCE 2148 DC 1L 3° 26° 
7D2c CO &7 FDIE 2079 b LORLG1 7LDCF 0000 7DbY 21485 SkCZ LC ALz (#-8) 
7D32 OF 00 O5D2 7DFO 2000 DOREG SLC NSPACE(1),0Wb1 SPACE LUOF LIKE UCP 7DD1 UBPO Tbyz 2140 DC AL2 (LPLATA#4 404 32704 32 vb 32) 
7D38 CO &2 GoxL3 2051 BL PREXIi 7DD3 CO 8&7 U2ZTE 2ta7 b USPACK PACK 2hE SOUSCE ADDKESS 
7D3C CO 87 0715 2062 b PTH 7oD7 02 TVD? 2148 LC IL7*°2°® 
7D40 £001 : 7Lat 2083 BC XL2"*EGO1® 7DD’ 7F7DAo TDLY 2149 bC AL2 (Sac) 
7D4z €O 87 732 2064 B DOLEG 7DDA U8K4 7B 2150 bc ALz (LPDATA?448) 
2065 TDC 3C FU OBR 2151 HVIl «= LPDA2 Ae8e48,C*O® BLIAUBALS ite P FKOR ADDAESS 
2065 7vEO CO 87 O2ta 2752 B PRKiInMT —~— PRINT Thh ilbe OF DUAP --- 
20bo FSSISEOOSEFEFSSEESESET ESTES TESTE TESEEEEEEREEEEED W2es AZ TLES 2183 oC XLB®° ase ouwa ARLA 
<Uo7 ® 7bte5 OL 01 7DAo TDP 2154 ALC = SKC (2) ,OUNSB 
<088 © DUMP STOHAGE KOUTINE JDEB CO 8? 7D6OA 2155 B DPLP COM118Uc DUAP 
2U89 © 2156 
i 
a see O7NOVIS T9HaR7o U33UK 76 PLUG ID PRF-5 DATE 29AUG75 O7NOVIS s9MA LTO 033076 Pas ID rrr-3 
> Ba 7804 827605 8276 7< 571671 PAGE 21 EC NO. 827604 627805 627672 571871 PAGE 20a 
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PART KO. ®288236 
PAGE 2é 





kLGEL . 22a 
PPPS DIAGHOSTIC CONTROL PKOGHKABR - KBODEL 22 oP 3 DIAGNOSTIC COBTROL PEUGRAB - MGDEL 32 
ERR LOC OBJECT CODE ADDR ST#T SOURCE STATEHERT tE LOC ObILCT CODE ADDR S?ST SOUCS SLTATEREBYZ 
| TDEF 00061 TDFO 2157 Ount BC XL2* 000 Be ZUTF} SHREK SHESESESSESSSSST SS SSS SE SESSS SSESSSE SST SSF SSSTOSSVOTASESLS OS 
| TUP4 0010 TOF2 2358 ORR DE XLzZ*Q0IGSs 2172 2% 3270 Y/O UVERLAY BacIeS Hoke 
7LPS 0030 FDEFY 2159 OWNSE DC XL2*00308 QEFZ SCSSHASSCSSSSKSSSE SSS SSSSSSSHLHTS SESS SOS SSESSSTEHRSSHES SVE SHSE 
TDPS 06000 TDFo 2360 OwNSH DC XL2*000u* 2478 
TDF? 0000 TDFS Z2tot UenOLD be XL2°vugod® 2vva 
TDFS GO FTDFY Zte2 OLLSRC pc XLFEuO® u7?S 2475 USING PRTE,XR2Z 
TDFA 00 FDFA 2463 ULDIP Dec XL2FOGF 2370 
7LFSB 00 7TDFR <3o4 dDCTR DE XLB*aO® TEQP 27177 bGR327 LOV & 
?DFC 0v00 VoFD 21465 be AL<*OO0OuU® LXTEA Fc9F FO 3B 7F 2376 bheR3Z7? HPL BG ,uB ERROR BALT FUR 3270 
TLFE CaCSCTBSC7ICS4CL2 FeLZ5 206 DPHG DC CL4YO*CHANG: S¥I2CH 4 AND 2 PUd Bet DURP ADDR & FLaAZ2 LO 87 43 2279 B PRIN? €,.XE 2} SHOULD GO CHECK SSH ETC 
ThLVO LOCIESCICEROFTEG a2to6 7FTEAS 2160 SECDEY EGU = BOUIIN«G IS ALWAYS LUTERLY HERL 
TeUE CTDSCUXOF2Z40C 556 Zte6 TERS 34 O8 FFSS 2 tet st KT B3IZ7C3, ARE SLE UP LEIBA BACK 
TPrto DISODSCSEOXOCKES zto6o TLAS FZ Ib BO 2782 S$io X*dO® x*86° DISABL:i 
Tkik DEDTANCICHCeDS4O 2itoo FEAC P3 18 EO 2983 $10 XP EOS xf tut RMYABLE, TO CLEAK LEKOKS BBL IBTERKUPTS 
Th26 BONU4OBOSUCIC&CR 75a 2407 Rc CL&7® ADDR OU Ge. O08 Go UVB B& CGC YUE 6 TLAF BD LO SB 2 tBu CLL PRSIO¢BE,ZKz} -Z®Ev?® TEST FUR SPACL OBLE 
FEZL DISOKOPUFORGGUFO 2to7 FLB2 CO 81 7FS6 2tus Bs RTNI27 EXXJ2 IP IT GS 
7436 FeeOeOPoPrusgouard 24607 FEB6 3D FF O879 2%%6 CLL ChIPLG, E*PP* CHECK IP BIChUO LOADED 
TESE POYURUPFUPBYOLOFRG Z2167 TEBR 3X FF O872 2 tet BYI CRITFLL, XP PFE LViB LF BOT, TELL Ch OWLY ONCE 
7E4G CTUGUOFUCIEORGUFO 2to? 7FsBE CO OF FEOF 2788 BRi sSaRS2F BO SELL Ksies LRKEOR ORK HO BiCRO 
FLUE C540R040R804C80 2107 7FEC2 Ci 18 FEOF 21289 t1G LERIZ7,E5BRe TLST 3270 FOR ALTALHSERYT SEADY 
7e55 €UH4O4ORUPUFOUOKO FET5 2464 bC CLast 80 Cz O& ve Gs Ba OE On 3 7FLC6 31 TB 0585 2296 LIO PR3,BSDAIA LOAD MAIB STUsSAGse DATA ADDKESS (880) 
TESL FOPZGO04UFUPSSOUO 2168 Z19?2 @ CURSOK IS LOADED BY ERASE 
7FEo5 FUPOLOSOFOPS4O4O 2 toe FECA 37% 10 FESF 2%$2 Lio LIODC ,BOFPADR LOAD CRI BUFFER EEG. 
FEOL PUCTEGKUPUC 38040 2 ted FECL F2 OF %5 2493 ERSSE JC HOEKS ,-X*G7 8 ALIEKED JUHE VO zehASse O& KOT. 
7t7S FOCSeOeE 2168 FED? 3C 8? VECF 2396 Si ERSSH¢t,X°B7® DUN®% z2SASE HELXT GLE THROUGH 
FETS BOROKOHOUHOLOROKO FeSe 4309 DEHGE LC CL3c G0 02 3% Ue Ob GR OC OFF FEDS OF G1 TRSF F¥SF 2795 SLC LIUDC ¢2} , LIOBE SE1 UP 10 PRINT OB LIBE 3 
TABT POPUGUSUPOPR 26046 2169 FLDB 31 40 7PSF z t9%8 Lio LIOLC ,BUFADK LO&D CkKT SUPPL KLGe 
7269 PUFUHOROPOPG4O4G ztoY TEDF F3 410 €O 2197 SaG R°CO® xP Bee ERASE & URLOCK Cat 
TL9I PUPSSOSOPOC B4O8G Z2ic9 FEEZ CY IP FEK2 2398 BSY32X Tio BbSY32E,2° BP® DELAY BHILE BUSY 
7299 PUC34&U8UFUCS 246% VEEG 2799 HOERS EQU € 
FEEO 74 §2 7F61 2200 Lio DC 224 ,LNGHEG LOAD Lew Rico FOR 925 CHAK UKITE 
FitE& P32 10 92 220% 310 X*#92*,2%2BOS WkKITER LIBEL 
FELD Ct IF FLED 22Ue B82Y327 TIO BSY327,X° BP? BAIT POH bUSY 10 DOP 
FeP7 80 16 46 2203 SNS MSTA (,Zk2}) ,X%* to® SekSs STAIUS FOR LEROR 
FoF BB OB 4G 22048 TBR MSTAYT (,XKz) ,XL9OKS CARY EXROR® BIT ON? 
TEF7 CO 10 7ESP 2205 st ERR327 HALE IF SO 
2z0e 
7TEFB OL 0% VPSP 7F5D 2207 ALC LIODC ¢<) - MeO BUBP ZO MEXT CKT LIBRE 
7FGO? 3C &06 G900 2208 BVI LN#129,C® °® 
7POS OD 57 G&PP 039300 2203 CLC Let 428 (88) -.Lbt 129 Sie 1F CHAK 41-926=BLABEK 
7FOB F2 81 24 2230 JE BIC 
221% 
FROE OL 01 7FSF 7PSD 2242 ALC LIODC (2) - 8480 bUBSP TO HEXT CHT LINE 
7FI4 Ob ZF OSPF OS00 2233 CLC LEO12S (8b) ,LEt B29 &SI-BZo=BLAMK? 
FFI F2 8% 45 2244 Jz NIC 
TFIID QE OF FPSP 7F5D 2285 ALC LIODC €z} - B&G BUBK 10 MEXT Cat LIBRE 
7Fz23 OD OF OSPF 09GuU 42 %to cLe LAS 826 (5) gL b+ BLD BZ1-FZU=BLABK? 
TP29 F2 8% 06 2237 JE BIC 
JF2C OF OF PPSP ?7FSD 2218 ALC LIOLC (2) ,B&u BUMP TO MEXT ChT LIBRE 
TF3z2 2299 wie ECU * 
7F32 OD 01 VFSPF 7F55 2220 CLC LLODC @2) , Lise 
7P38 F2 04 OL 2221 UNH FLYOR 
7P3B 3C 07 TECF LLkc EVI EKSSH+4,2°O7* Sci UP TO ERASE SEXT TIHE. 
JF3F 38 08 0208 22é3 TBR SBYi10,SS#805 HALT OALY IF sS# Ob 1S OF 
7P43 P2 90 U3 2228 JF PLYOR 
7F46 FO 3B 71 2225 yPL X*71° 4B ho - LITILe ZERO cALT 
TF&9 2220 FLION EVO * 
7Fa9 38 0&8 0208 2227 Thy SSYTLO,S5SBG3 CLEA BUFFER OWLE IP SSHOS 1S OF 
TFP4D Fz 90 06 2223 JF RTN327 
7PF5u GC B84 OsPFF 0300 2229 BAVC X*OPF® ¢.33) -X*9U0° BLAWK BFR BEFORE LoAVING (LO 3878) 
7F56 CO 87 000U 2230 228327 b s— KriURe 
2231 
L234 SSHSSSSSOSLESSCSSS SHSSOCESHSOKSSS SS OESENS SHOES 
2233 * = 
2234 €¢ 1 oe « © ao @ €--— Ci SCREEN. 
2235 * 41 ae fone. a su e POSSIBLE & LIMES 
2236 © 81 See %z0 & OF 3 DC PRIVT 
2237 © 121 2. - 428 * LIbb 
DATEL 29Aa0G75 O7ROV?TS TYSA RTO G33 UR76 PROG ID PPF-3ATL 29AUG75 O7FHOV 7S ISBAR?S O330N76 FROG Ib PPP-3 
EC NO. 827808 827805 Bz787e 571874 PAGE 226 HO. 827804 627805 b27872 573871 Faok 2ca 
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IbM MAINTENANCE DIAGNOSTIC ?ROGRAM PART BO. «= 82 GULZUI KK BAINTLMAMCE DIAGNOSTIC PROGRAS RAFT NOL = 8286230 
PAGEL 23 PAGE 23k 
FPF3 DIAGNOSTIC CONTHOL PROGKAK - MODEL 12 PPF3 DIAGNUS1iC CONTHOL PROGHKAM = RODEL 124 
LEK LOC OBJLCT CODE ADDK SiS8T SOURCE SIATLAEN) EK LOL OBJECT CODE ADDH STME SUUKCE STATEMLBT 
2238 s FFVF 22b0 ORs X°rprrrv*-x 4000 48 1? THIS ORG FLAGGED YOU" RE OVER 
2239 © e Z22o7 & CORE BOUMDAHY. 
L2G FCEOHOOSEESHTE ESE TS EAEHRESEERE SR ESTHREREEE 2268 
TF5a 01340 TF5B 22414 Ling DC ILzZ* 320? 226% 
7F5C 0028 JPSD £242 B4O DC IL2Z*4u# 22ob 
TFSE 0000 7PSF 2243 LIODC DC XL2*00UU USED FOs Chi LIOS 2208 
7F60 CO8O 7F6O¥ 2244 DCIL8 DC ILZ* Iza USZED Fun Chat LIOS 06Dd2 2269 ORG PRI? Oho AY END SO IF NOY tCNUUGE COKE, LINKAGE NOT LORE 
TFo2 0050 TF6s 224 5 N&O pec IL2* svt TO BUMP 2 LINES Vob2 CO 87 TFDLOC <270 b SPC 34% INTEHCLPT SPACe COSMANDS BBD TKY TO SEC 38 
2246 2271 
00138 £247 BSDATA LOU x® 4b? EQUATES FUR CR2 L10*°S LLFL CHTSEKSTES| SESETSESHSSFCEESHESESSESSEHHTSSE SEE OHETHOSSESSESESOSETSOSOSEEECSS 
OSTP 2446 Ln CU X*8S7F* 2273 2 THR FOLLOWIBG 10 ®1REP*® CARDS WERS INSEKTL£D 10 PEOFIDE 
002 2249 LEGKEG EVUB a*t2e a27u & A KHEANS OF CHANGIYG ULT,CRU ABD CHAl& IBAGE EHLA 
Ov10 2250 BUPADE EGU X*® use zzvs *# OPLEHALIbG ON A 3741. 
0015 2251 CUBSOn EVD x° 158 227O SEPHCSHHS SSE THE SESE HERES SEOESH OE FH SOE SEKSSE SHOE SESHE CSE CS SESTHESHSEOEE SE 
2252 2207 REP 
TPo03 2253 ENLD3Z7T EGU s—1 «2738 ThEP 
£234 FIHIS FIXLS DUAL PROGSAMN FEAIUKZ PROC CuiCA Fabbleh, BY LDASAELING 22749 THLP 
2255 *bPP & KrTURNIRG DCP CUNTRKUL TO PROGHAM LeVscL 4. 2230 THEP 
7F68 2256 DPPFIX LOU * DUAL FROG. LVL CHANGE FIX £24 TREP 
TVFO4 35 2U TFTF 2257 L DISDPF, PTIAK PUIKT PTIAi TO DISABLL DPF 2262 TREP 
7F6& FR OV OO 2258 APL x*'O00®,x*00° ALVAKCt PrOGKAM LEViL 2283 THREP 
Vtob F3 V0 00 2259 LABLLY SIO X*o00*,x*Ou? DISAbLi DPF FAT. 2238 TREE 
TF6n C2 02 0206 2260 LA LA ASE, XRz LOAD Xkhz« 22385 TnbP 
TEF7Z 34 OF OZSE 22607 st LODESA?*S, XE? SA¥rc &H1 2260 TRLP 
TE76 CO BT 0212 2262 5B TES? <iu7 & TKLP 
?r7A CU 87 0279 2203 5 ATHFI1X HiUURN PaOM DPF FIX KTR. 22OY SHSSEKEREREESES SES FS FCSERSERS RE RESSEHSEHEOLSED DE SHESAESSSSOEROTESRESESR SO 
7TF7L 7POB TF7TF 220% DISDPP DC ALZ (LABEL 1) Abba PILAK TO DISABLE DPF 2269 8FSSSESRSESEHE 
2290 IBREP 
<Z9t , IREP 
2292 THEP 
2293 TKEP 
229u TREP 
2295 TkeP 
2240 ZREP 
22937 TheP 
2296 THEP 
2299 TRLP 
23u0 TREP 
23u1 TRLP 
2302 ThUP 
2303 TRLP 
23048 TREP 
2305 THKEP 
2300 T&EP 
23u7 * 
VESA 2308 END BEGIN 
1 
} 
} 
DATE Z29aU0G75 O7NOVTS TIBAKTO 03) UB 76 = 3 
EC NO. 827808 827805 b27872 Berge PROG 13 YFF-3 DATL 29AUG75 O7NOVTDS TSBARTO 03.) UN76 PkOG ID rFF-3 
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FFF 3 DIAGNOSTIC COSTROL PROGKAS - BODEL 12 FFF3 DIAGNOSTIC CONTROL PROGKAN =~ HODEL 12 


ChOSS~REPLREBCE CHOSS-HEPEKENCE 
SYMBUL T LEX VALUE DEFN REFERENCES SYMBOL T LEN WALDE DEFR REFLALACES 
ACTKGON A 003 1361 1828 1665 cio A 004% O7C12 1158 33150 
ADR343 A 002 1095 1639 lo11* 16485% ClOTA A 004 U7BE 1972 
AINPUT A 001 0667 6107 6110 C1U1B A 003 O7Cd 1159 1167 1372 
AJDEST A 003 012C 0232 0229 c1o02 A 001 O7C4 1174 
ALTPRT A UG1 O78A 1133 WS «1934 «#119172 «149740 «1343 Clozx A 003 O7C8 1160 Viwoe 11578 11748 
AL5424 A 003 TOBE 1970 CKBLK A 003 013P 0239 0243 
ABR C 0043 0008 13349 0108 0260 93299* 0573 0652 Qosxd G704 V722 O777 O74 6977 1049 CKCHN A 001 O36P 0428 0423 
125U) 1653) 1835) 18521883) 2163 CKC1O aA 00% 1835 1917 1913 
ABKSAV A 00% 0806 0747 0654 0057* Vosv*® 0722*% 7240% 1253 32048 CKCOM A 003 OU158 vV252 vasa 
BEGIH A UO¥ OLHA 1821 V¥oU 1330 2308 CKCOMA A 003 GaGF 0319 0220 
BrGINA A 004 OF98 1424 CKCOM1 A 008 01213 0220 04598 
BGN327 A OU1 VESF 2377 CKCPU A 0U3 VASD 0334 U320 
B1z0 C001 oO80 1385 02562 0593 O590 Obt6 0919 G983 1095 141204 %632 1657 2704 CKDCPS A 005 ObSB 0822 0372 
B117 C0017 0040 1386 0594 10014 1000 1226 Yost 1693 1712 CKEND A 003 OBAF O484S 043u 
BiT2 C001 0020 1347 Uzsz2 v297 0579 0590 0996 1232 1604 1675 1680 1720 CKFIR 2&2 004 OFBS 1528 4519 
B1i3 C601 6010 1388 0365 U5Sd2 099% 12313 1217 CKREP A 008 016C 0218 0127 0152 
BIT’ C001 0008 1389 02862 0590 1231 CKuDT A 003 OAAS 0371 0335 
BITS C003 QUO 1390 0276 O2zsz 0579 0590 CLRCOR A 008 0108 0203 0216 
BIT6 C 601 0002 1392 0596 CMLOOP A 008 GOBE 0139 0184 
BIT? C 001 0001 1392 0622 CSPK A008 0346 0652 Qosb14 0723 
BIlzZzke A003 AD 2032 2032 CHPKXo A 002 0366 0663 06052 
BLKCRI A 001 1189 1739 16043 CNr A 001 138A 1844 18 30% 16418 
BOOT1 & O04 0000 0022 0024 6031 contu a 00% 7D87 2117 2110 
BOOTIA A003 O00D 0026 0020 CPU A GOT 0208 0506 U346% U355% 1449 
BOOT1i A 003 017 0030 0023 0027 CPULP aA 005 0a69 0350 0354 
boOT19 A 002 OOTE 0033 G024 CPLvOP A 008 O0a65 0389 0359 
B9TZ A 00S 0200 U0548 0028 0052 0053 0058 CRICHG 4 004 069% 1039 
BOOiZA A 003 O20D v058 0056 0006 CRTPLG C 009 0879 2363 4740 «6.2186 0) «=—.22167 
BOOTZB A 003 0210 0061 0061 CTR A001 033A 0647 0055 0956 0656% 06997 0728 O0720% 0741% W3o0e 1439° 14841® 14458 
BOOTZE A 003 0208 0057 0056 0062 CURSOR C 004% 0015 2252 
BOOT21 A 003 0205 0071 0065 DADDk A 00%? O8A6 0833 0631* 
BOOTZ2 A 001 6235 0072 0065 DASH A 009 12F5 3818 1479 13887 7 
BOOT23 A 00Z 0235 0073 0059 DATSWS A 002 0410 0770 Oz0&5 0773 0776 0762 0782* 0763 0792 0794 V799 0601 0821% 0623 
BSYLP A 0U3 OU774 14124 2224 ; 0828 O8s% 0840 O885 Use? 0850 VoSo vs06 1948 19458 
BSYLPO A 003 16043 1977 1977 DC128 A 002 ?7F0% 2288 2200 
BSYLP1 A003 6AF 1981 1983 DECO A008 O1FS 0300 0290 
BSY32X a 008 7xz2 2198 2198 DEC1 A CcOl O1F5 0301 0292 
BSY327 A O04 TEED 2202 2202 DEST aA 002 013A 0237 0227 0230 0238 
BIZ A003 0204 0055 0071 DEST? A 001 0386 0691 05539* 06929 
BUPADR C 001 0010 2250 219z© 2196 DESTZ2 A 009 OU3DF 0738 0660* 0740¢ 
BUSY A003 O74 0112 °®&0312 DEV A001 OaAA7 0370 0382 0390 039% 
CCHHO A 005 11:4 1785 lobo* 1786 DFOUR A 002 1208 1798 1443 1484 
CCHBO@ A 002 11FU 1788 16011 DHALT A 003 13788 1998 7931 1993 2061 2011 
CCHH? A OOS 1159 1786 1692° 1789 DISDPF A 002 J7F7F 2264 2257 
CCHHt@ A 002 11Fz2 1789 lo1z DKFLAG A Ovt 13139 1698 1600* 1609 
CCBRZ A 005 11EE 1787 1677* 1790 © DODUBP A 001% 7bD46 2093 2069 
CCHH2@ A UO2 1F4 1790 1613 DOHA aA OO0& 113C7) 1757 15512 1565 1633 27414 1787 
CDLKRO A 003 OASD 0305 - DOHY A 001 137A 0 «61727 172% 
CDLXIT A 004 CO7D 0115 01064 poIT A003 1686 1978 1974 
CLALAD A 004 GU06G 0105 6408 O105 6123 0136 026% O3504 469 O47 0479 DOLIO aA 003 OO06E 0110 03117 
CHAIN A OOS OAOB 0315 0429 DOKEG A O06 7D32 2080 2073 2084 
CHCTR A OVI VAOL 0317 VU8I2* VS4H1F YNOTS DOkEGT A G06 FOIE 2075 2079 
CHKEND A 003 0798 0274 0261 DOSZ A O00o OEB? 4443 1440 
CHKF4 A 003 030F 0629 00248 DPP1X A 001 7F64 2256 0574 
CHKIL A 001 138B 1850 1952 15560) 1919) 1923) 1928) 1933 DPLP A 001 7DoA 2107 2155 
CHKSR1 A OO& 13386 18603 1852 1859 DING A OKO 7EZ5 2166 2099 
CHASSW A 005 0109 0260 0253 DPHG1 A038 7EYe 2109 2300 «2123 
CHKSSO A 004 01738 0204 0272 ; DSKSYS A 004 14825 13910 1904 
CAKSST A OO4 0423 6781 G77? 07802 DIAbLE C 001 OPE 1416 0266 0294 O0576% 0620 Ubsue 1968 195% 1933 19999 
CHKSSz A 093 0433 0786 07813% 0783 DUSCOM A 00z 0628 0999 
CAKSWS A Guo 0668 1028 1037 poss A OOS OAVZ2 0312 0430 
CHKX® A OOS 135A 1804 1851® 13853 1654e DOY8O A 002 120B 1602 1750 
CHK1 A 003 OFoD 1508 150 2% b120 a 003 Oa0S 0313 04 34 
CHK2 A 005 OF7U0 1505 15032 LKDCLEK A 001 0132 0212 0209 
CIOBLY & V01 079% 1373 1403 LNURTN A 001 090% 1202 
CIOSTS A 002 0755 1179 1161% 1102 _ERD327 A GO¥ 7F63 2253 
DALE 29A0G75 O7FROVTS 19654576 U3J UN76 FKOG ID FFF-3 DATE Z9LIGTS O7ROV?S IWHAKTO 0330876 rae 1D sh 
EC NO. 827804 627805 627872 571872 | PAGE 24 EC NOW 827804 8327805 827872 571871 
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IbM MAINIENANCL DIAGNOSTIC PROGRAR FART NO. 48246230 IBM BAINTLNANCE DIAGNOSTIC PROGHAR PART HO. = 288230 
PAGE 25 PAGE 25a 
ChOSS-REPE RENCE CROSS~REPERENCE 
SYMHOL T LN VALUE DEPN REFERENCES SYHBOL T LEN VALUE DEFH REFLREBCES 
ENTKY? aA 001 029A 0585 1900% 5 C 00% O05D 1399 0030 0657 9196 0326 0456 
ENTHYZ 2 001 90335 0440 196 1% H6 C GOT YO7D 1400 O366 Tito 
ERK A 003 0081 0116 6109 47 C 001 0007 1401 0439 
Exx 327 A GU3 VESF 2178 2186 23189 2205 H8 C001 OU7F 7402 217% 
ERSSW A 003 7ECE 2193 VoO7* 1299% 1743* 2194* 22222 HY C 001 UO5F 1403 TW8G 1908 T9948 = 2028 
PL6a@ A 0UZ 1070 1620 tols* 16704 Tak C 001% GO010 1348 U5z22% 0523 05249 0525 0520% 05278 05268 
FDOADE A 002 1072 1621 16 16 . IDADDR A 002 0641 1007 WO04e 
¥DO6D A 00% 1tu60 1674 1583 1070 IDLOST A 09% 1535 1821 W706 17S 1722¢ 
FDoAUN A 003 1364 1629 1674 1722 103340 € 001 0000 16095 Wo7z 
PLORTN A 004 W753 1622 1605 1621 ID5444 € 001 6007 1698 1670 
FINDSZ A 0060 OLBD 7444 1456 ZhGADR A UO2 OBDD vu465 USste Geos 
FIVE & 001 O3F7 0742 0657 INADRT A OUZ UBF O8&72 
PIXNOB A VON I3BE 1883 0327 2823 INPUT C 001 O&880 0477 0706 01335 O978 0218 Oz2ze 0395 O360 0468 0872 
PLAG C 001 OTPD 14415 O27 0282 6297 826 1231 IPL C 00% v0sO 0482 0025 06 
FLAGS A 00% 14205 1799 1490* 15186 15218 1523 15278 1Sa0 A 004 102E 1597 
FLGTWO A 001 18D3 2047 2037 «204z* ZOuus ISAT aA 004 1403C 1602 1599 
FLG? A 001 ?0CE 1619 1652*% ISB1Z A 003 1753 2008 «0068 
FLYON A 002 7F49 2226 2221 2224 ISCKN A 004 Ob77 0431 
PLST & 001 1489 1947 1801 ISEND A 001 0538 04850 0446 
PRS1® A 002 1209 18061 1749 isss# a 003 0176 6263 0426 
FRINn- C001 OAO7 1360 0860 -ISWIN A O0U1 4UE2 16071 1069 
PUNCSH A 002 17C6 2014 1996 ‘I1S1Z0 a 008 OBS9C 04Kt 0435 
PC C 601 OOFD 0568 0633 4829 I%s7 =A 0017) 0535) «0893 1314 
¥1 C 001 OOFA 0569 ITKZ A 002 0787 1130 1345 
Fu C 001 OOF? 0570 0629 ‘ITR3) =4 001 O2CA 0602 1316 
GOLOAD A 001 13D% = «+1771 1422 1623 1642 1758 ITR4 A 001 Gb7E 1030 1317 
GUN A 001 7DOF 2070 2067 ITR®. A 002 6789 1131 1318 
HA C 001 O0U3F 1408 1233 1770 -ITh6 A002 0231 0530 4319 
HALT A 004 9222 0526 ITH7 =A 001 055K 0900 0842 1320 
HALTA A 603 O9EA 1305 1303% 13048 : J A 003 11PA 1794 1907 
BALGB 8&8 U03 O9F5 1308 1300* 1307* jut A 003 11PD 1795 1905 
HALT2 A 0048 O098C 1292 1286 LABZL & 008 OODS 90145 0137* 0746% 0148 
HALT3 A 004 09C3 1295 1248 01291 LABLL1 A 003 7P6B 2259 2264 
HB C 001 0079 14405 LaST A 0O1 O7E& 1171 
KC € 001 OGvc 1406 0631 LB A 040 15C8 1955 1751 «17518 
HD C 001 0073 1407 0295 LBASz A 001 0208 0510 0567 0572 0618 2260 
HDCTH A 001 7DFB 2164 21189 LDEKD A OVS O94C 1224 1205 1216 
HDG A 028 0O5D1 0909 1019 LDPT2 A 004 0185 0280 0290 0305 
RDG1 A 0014 O05B6 0968 0962* 0955* 1006 1022 1016 LDR A 0U6 1214 1808 1520 
HE C 001 vo7C 1408 06 10 ‘LDREG A 068 O3FB 0744 0702 0705* 1310 
GEXIT A 004 O9FB 1309 1290 1293 LDROK A 001 OBCY 0856 0452 
HF C 001 003c 1809 0810 LLUDT A005 OAP4S 0394 0391 
HGO A 004 UBBB 0451 0455 LDWORKK A 004 OUS5SD O4u79 0132* 0133 0287 0268 
HH C 001 003b 1410 4030 0657 01 0295 0325 6365 0387 G435 U487 0453 0610 0631 LDX A 004 0137 0278 0298 
0619 0852 O0b68 0915 12%6 1144 1222 1233 1730 1770 189% 1938 LDXo =A 001 «2(0TKA «0279 02608 
19383 1968 1998 2024 2175 2225 LD1 A 001 0247 0589 0563 
HHHAL1 A 003 1477 1938 91935 LENGTH A 003 OOBB 0138 0149 
BL C 001 0068 13611 Lex1T A 004 1482 1942 1863% 
HLTA A 003 470 0810 LE1 A 003 02:8 0010 0613 
HLTB A 003 O47C 0815 LE2 A004 0332 0639 0591 G01? 1795 
HLICT A 003 6315 0031 0637 LELT? A 004 U9EZ 1303 12958 
HLTID A 003 O4DA 0852 0869 LHLT1A A GO4 0946 1308 12908 
HLIE A 003 056k 0913 LHLTZ A 004 O9ED 1306 1297% 1302 
HLTF A003 OzDH 0610 LHLT2A A 004 O9F% 1307 Izyue 
HLIG & 003 11CE 1770 LINE? A 023 122F 18106 1435° 19438 14448 1973 
HLTHD A 008 OU1DB 0294 0269 LIWE1A A 030 1253 1811 1446 18488 14514 1007 
BHLITAB A G01 0960 1275 1278 «©1282 LINc2 A029 1287) 1894 1483 
HP C001 003E 1813 0813 0815 LInk3 A U26 1241 1845 1$29% 1533 
BO C 00% GO6B 14422 0815 LINES A033 1262 1816 1551 
HO C 00% OU6F 1394 0325 0326 4305 0306 0387 U3d5 0438 L439 O847 0448 0453 0458 LINK ACO4 0210 U5S23 
34730 «173% «10893 = 1892 LI89) = =& 002 #7PSB 2241 2220 
HOH A 003 13D9 14891 1896 LIODC A 002 7PSP 2243 21920 4395) 2195* 2190 2207* 22228 2215® 2216° 2220 
a1 C veut 0003 1395 0448 1222 Lita A 002 vu953 1227 
a2 C 001i 0076 1396 0852 1892 LNSG A UI4% 0533 0966 0529 1227 
H3 C 001 0057 1397 0345 OvOs 90913 LBSG@ A002 022F 0529 
Ea C u01 001 1398 1731 LN C 001 U87F 2248 22U8* 2209 2209 24213 2213 2216 22146 
DATE 29a0G75 O7HOV?S 19nAH76 033 UN76 P206 ID FFP-3 DATEL 29A0G75 O7NOV?S 19MA R70 037076 Pa0e ID. rrr-3 
EC NO. 827804 827805 827872 5718713 PAGE 25 EC NO. 827804 827805 827872 571871 Phok 25a 
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PAGE 26 PAGE <oa 
PPF3 DIAGNOSTIC CONTROL PROGRAM - MODEL 1z FP¥3 DIAGNOSTIC CONTROL PROGRAM - BODEL 12 
CHUSS-hEFEKENCEL CROSS-KkzPERENCE 

SYMBOL 1 LEN VALUL DEFNS KEPEKLSCLS SYMBOL T LEN VALUL DEFN hEPLHeSCLS 
LNGREG C 004 0012 2249 22008 KUM250 A 002 0137 0211 0206 
LNKT =k 008) «60552 «©0892 0914 y1 A 002 vo088 0119 0142 0238 
LYKIB A 004 053D 0690 0598 N24 A 001 OA06 0314 O4vb 
LNK2 a 008 U548 0900 0895 0920 N4U A 002 7F5D 2242 2207) 2212 «42215 «2248 
LNK3) = =8 008 v55C 0909 6901 N8O kA 002 7F63 2285 
LNKY A 005 0575 0917 0912 9 A 001 OAA6 0369 0409 
LNKS a 904 G5HC 0924 UB9U* Usss OK A 00% O1E6 0297 0291 0293 
LNkKb A 008 0590 u925 UBTo* 09238 OKCTR A VO4 ODS 0462 v470 
LOAD A U04 O2zA 0528 36728 1637 1055 1659 OLUVSRG A 001 7DFS 2102 
LODEM A OO8R O29B Uds6 U574* Vodl 2261" OLDTP A 0U1 VDLFA 2103 
LONE A G01 O27D 0577 0025 ONCEZX 2A 008 14355 1897 18988 
LOOP £003 O009n O1zb 0125 0134 ONE A 001 039D 0760 0407 0570 O7?26 09130 1087 1485 1500 1518 184% 1858 
LPSUSY C 001 O0f6 3109 Wiza ONéA A002 OAOD 0316 0419 Ustz 
LPDATA C 001 O87C 1355 O979* WHY WULF Woe Woz* 3112 1945 485% 2039 ZO4LU 2080" 2041 OPBUP A 001 1358 %825 14498 1453 14538 

2081* 2438 2140 2146 2150) 215148 OPDON AB 00% OABFY 0360 0358 
LPERR2 A 003 OF5SC 1316 1228 012425 OPLOOP A 006 Ock5 14853 M4o2 
LPIMAG A UU} UsOO 1179 U453% UN4ze 2211 OPNUB A UO¥ 202 1797 150 1* 1507 1574¢ 4535 
LPNRDY C OO} OULG 3814126 W3WNS «43425 OPTTAB A 001 434F 1823 3452 
LPIOME & 0084 OOEF 0155 OWNOLD A 002 7DF8 2161 2W5¢ 2309 2715 
LYMOB A OUt 267b 1946 1664 13493 WY? 1916 OWNSK A 002 ?DF6 2160 Z108* 23109 24%3 2315 
Lx1 A 008 OZFX 0620 QOWNT A O02 PDFO 2157 2075 20st 
LxX2 A 001 O2FF 0623 1795 1905¢% O¥N16 A O02 V7DF2 23458 21918 24336 2242 
BASC A UU4 OATE 0355 0349% 0352 0353 0353 OWN4SS A OO2 FDPY 2459 215% 
MASK B 002 1201 14796 O841* UB O4tde 0446 0897 1500% 41502 1503 7533 15138 PACK A 004% 0226 0527 0224 0238 0265 0383 0379 O84 
MHLTZ A 003 1688 1968 W2o0 1967 1975 1978 1988 PAP A 0G% 0000 v006 
BICLDAT A YU3 135E 1827 1689 1728 PGCKS B&B 002 GzU? 0506 
MICLUK A 003 135B 1826 1083 1766 PHALT A 003 1883 2024 1936 2023 203 
MICRTY A 001 1998 164% 1640 PKI A 0U3 63CB 0727 0725 743 
MNN C UU dvUd vSes 0682 727 PKZ A008 O3CE 0728 0739 
MNZ C901 9902 0685 0093 0696 —PK3 AB 00S O3DC 0732 0730 
MODIFY A 001 0433 9765 0757% Gokg9s PKS A 008 G3PFO 0740 0737 
KOVE A 90S OUOFC D308 0154% 9455* 0157 PLIZE C 00% OG€80 %350 0907 1639% 1022 4497 2695 3529 
BOVID & 9003 9322 0535 9027 POP A 003 OFUF 1463 1456% 148578 1861 
HSDAIA C 901 OO 2247 zi90¢ PEoXIT A 006 UbEZS 1062 u989 157 1300 2076 2081 
ESTAG A 092 9755 1106 VEFG «IS 72S 3973 I9b1s WH2 20U¥* 20910 20558 2038 24035 1203 2208 PRIME A 003 0762 ‘J3%6 1206 
AVCILD aA 005 WE2 1072 16708 PH1AT A OVUM G21B O524 0256 0330 131224 1833 3466 3870 3476 Wel 444 1530 W868 3548 
H¥XE 4 09% 0373 O68y 3632" 9693 0096* : 1565 1570 3707) 97925) «437230 «(Web 8639 «62048 «2090 2808 232d tee 
M¥iZ 4.901 Y3DL 0733 9727* 0736 07388 23452 
24 C 001 2007 Uoug 0730 9730 PRIBIE A 004 6713 14077 0977 US7B Woes %073% 1327 
HZL ¢ 001 0900 0043 PRiV A OU2 1F& 1792 
NEG? Bb 0UZ 033C 0648 0692 0098 v69S 0735 O70 PSXTK A 007 1238 1809 1526 
NEG & 0U2 OUSA 0120 OW? PHOGILD C 004 Ga01 2358 1033 
NEWD 2 006 POI? 2113 PHS10 A 003 0771 4223 W92F Wes 2149 31953 1970 3997 20260 20K8 
NEXT aA 903 0O12P 9233 v24a5 PolLaT & UOk O77A 1426 3105) «39D20 B2bb «3978 84H 8998 208s 2c? 2085 
NEXTOP A 000 OF8C 385743 15u0 Pett A OUR GLY 1075 09708 
REXTK A 004 O0nB 0123 0009 81477) O2t0 0217 bsd0 8205 0258 0473 0275 0329 0332 O035v% PaTc2 & 004 vu?UD 1076 097488 

Uso} V3b9 O42 GAGU O44Y Obs PHTAG A VO2Z vVoAs 1042 ; 
NexTSS A 00% Ovs? 141035 1025 PHIE A 008 0735 1088 0496 1037 Wat 8043 1053 2055 3087 WHE B43 B06 1992 2022 
Net A004 1150 1712 1705 : 2077 2062 2175 
NL2 A 004 1365 1720 lo0z e604 web 1713 ne FolMA A OUT 07493 21442 WWF2 «61973 «1878 ) = BSZOe 349330 By¥300 
NIC 4 004 7732 2219 22910 22134 2417 PKINE A 004 U7TBZ 1128 Woye West wee 
NINE & 001 O81F 90779 0731 Priyd A OOS U7246 10948 1997 «63385 «61409 3995 20OZS 2179 
NOALT A 00% 0749 1104 PsTBzZ 2 00% O73a 1099 1090 
NObNP A 003 029% 0582 6580 Ph72 A CUS DoUvds OYaB L946 
BOCHG A VU03 OBAS O443 0437 PaiZk & 003 Cols 0989 09b7 
NODPhe a 001 7DAU 2127 2119 Ps15 8&8 005 D6A9 10460 1002 3 P ; 
NO&r&RS A 001 Vite 2199 2193 PRI6O & GLO Ub6Cb 1052 U99Z® 1039% 1U40% 100% WEP] BOUYO 20504 W58e Bisoe 1147° IB5H% Biles 
HOPOP A 001 OF15 1409 4463 PKHTbA A 004 OoCC 1053 ¥997 
NORM C GUT UUUO O43 01%1 PKI7) & 004 QDoDzZ 1056 0995 1085 10600 2269 
NoTL A 004 4425 1912 1909 PKTS AuvvJ3 95F9 10609 WoT 
NOTFND A 0193 1345 1822 1710 #3738 «617z0 Pku9 = =828 063 0702 13072 1070 
NOLOP A 00? OEFA 1458 1458 PEUDT A 000 OFC3 1529 W2zz 352d 
NOZ64 B UUoO OEBT 1444 1438 PRI A VO02Z 0757 3119 zu «1979 
NOUNSIT A 003 OFDI 1535 W9Z PRZ A 002 759 2112 2122 2u0S 2026 
NOX A 00% OA5S 03414 0338 PR3 aA 002 ©5B5 0967 0964 0975 1050 12126 2490 
NSPACE & 0601 OSD2 0971 09908 0993% 1056% 1153 11558 2072 2074 2U075* 20802 PRY A 002 O758 134433 W329 
DATE z9AUG75 O7HOV75 IZMARTO O43URTO rsO0G 1D PFF-3 DATE 29AUG75 O7NOV75 J I:HARTO 0208876 PEGS 2? os 
LC NO. 627804 827805 627672 571874 PAGk zo EC NO. 8278604 827805 627872 5738713 Fiot 
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PFF3 DIAGNOSTIC CONTROL PROGKAS ~ HODEL 12 FYF3 DIAGNOSTIC CUNTROL PROGHAN - MODEL 12 
CROSS-REFE RENCE | CROSS-KEFZLENCE 
SYMBOL T LEN VALUE DEF RLFLRENCES SYMBOL TF LEN VALUE DEF REFERESCES 
PSK C001 0008 1350 Sac A 002 7DAb 2133 2103% 2104* 21135*% 21147 2135 2149 21548 
P1LGS A 004 U5D5 0973 0981% 1095 SRCE 2 002 0138 0236 U233* 
PTCIO A 005 u797 1146 S#C1 A 002 PDEB 2139 2135* 21730* 2141 
PTFDC A003 OABE 0377 0374 SRC2 A 002 «TODO 2145 241% 21428 
PIMSG A 004 OZzC7 0601 0595 ShPLAG A 001 113A 1649 1604 1032 160548 1678% 1080 1657% 1693¢ 1708 1712 1720 
PTR A 003 O2FB 0621 0629 0633* 9034* 0635 06294 SkxX A004 1100 1682 1051 1733 
PIX A 004 1365 1835 1564 «3569 SR a 00% 0384 0708 U7U4e 
PTXa A 004% 1586 1843 1835% S22 A u0% O3PF 0745 0700" 
EFTZEKO A 004 02C3 0600 0036 SSDLS1 A 002 6083 1033 10z6* 1040 
PT9O0 =A OCH «=6(073E «61100 10S8 ssw A 001 O5D0 0970 0260 
PUNDUN A 003 T8CB 2044 2038 SSWD A003 OBF7? 0471 0422 
PUNESR A 003 189A 2030 2030 2043 SSwOA C0012 0620 1377 
PUNNOM A O02 tseD2 2040 2029 SS¥OB C 00141 00610 1378 
PUN42 A 003 186E 2026 ssw0c ¢ 001% 0008 1379 
PAR C001 6020 1351 22578 SswOD C 001 004 1380 
P7IAR C v04 0081 1352 sSWOE C001 0002 1381 
RDCD a 004 OBED 0469 0443 SS¥UP C 001 00U1 1382 
READ C 001 OOF1 0484 0025 0060 0111 SS¥00 C 001 GU8G 1367 0599 0903 
READRC A 004 10BB 1659 1681 “SSWOT C 007 0040 1368 0597 0598 
RECLEN A 002 17CA 2010 2066 Ssw02 C 001 0026 1369 091s 
RED A 003 O08F 0124 0283 0z99 ssw03 C 002 0010 1270 0986 1097 
RESTR1 A 0U3 0978 1245 1203 'Ssw0S C 001 0008 1371 0386 1099 1289 
KKALT A 00% 0990 1280 1131 SS¥05 C 001 0004 4372 19020 WWweH 2223 2227 
RITRZC A 003 1791 1997 SSH¥06 C 001 0002 1373 1292 
KLUA A 008 02A3 0588 0573* 0575 0576 05814 -SSWO7 C 001 Q004 1378 0254 0328 0608 1230 1757 
RLDZ = =& 003 0281 0612 0609 SSWU6 C 001 0080 1375 
RLPLGS A G01 OZCB 0003 0593* 05962 SSWO9 C061 0040 1376 0012 
BLINK A 00% 052E 0890 1130 SSW2F C 007 0001 1383 1047 9 1035 
HLOAD A OUM% 026A 0571 0905 STA1US A 008 OUSF 04878 0413% 0128 
RNUM A 007 A03 1196 0b013* 0562 0570* Ub96 0910% 0931 1035 1259 13280 12426 STEP 2 008 031E 0536 Y630 
RPACK A 008 0358 0722 0530 is1 A 008 00C2 0140 0136* 6139 0142% 0183 0146 
RPFX 8 004 0211 0517 0873*% 0900 0909 0917 1243¢ Sz A 008 O0UCo U141 013 9% 
RPONE A 008 O5DE 0970 1056 IBASE a 001 O407 0766 
RFKINi A 008 O5D6 0978 0601 TESP a2 001 03606 v664 0724* 0729 0731% 0732 
RIEST 2 VON 0482 0793 0707 0692 1309 TEMPA A 00% 1209 1784 
RINFIX A 003 0279 0575 2263 TEMP? A 001 0384 0690 0643* O655* VOdo O68BBe 
RTN143 A 002 1097 26040 1634 TEST A2 004 0212 0522 004% 0619 0632 1098 1208 14772 198% 2262 
RIN327 B 008 7F56 2230 2187% 2185 2228 TESTE A 00’ O46B 0806 074% 0842% O875¢ 
RURPK & 004 0367 0686 1029 TEST? A 002 0470 0808 vbOU O0B80Z 
SADDk A 002 6185 W207 02648 1ist117 aA 063 04:6 0858 0848 
SALLY A 005 VA43 03306 TEST12 A 005 O4PS 0862 0872 
SAVE? aA 004 147A 1939 1938% 1922 1927 1932 1937 TEST13 A 003 O4FD O84 
SAVELG Rk GOR O3AG 0704 0653 1251 TkST34 A UOk 0503 0866 vee3 
SBYTEO A V01 0208 0511 0258 0328 G424* 6597 05943 06Ge U7B4 009% 0903 0918 0966 0966 TEST76 A 005 057C 9873 0807 
WOS7T 19S WWe 1106 1230 1289 31292 1757 2223 2227 TES32 A 003 0476 0813 0839 U843 OS5R 0857 GebS 067? 
SBYTS1 A 001 GZ209 0512 UV425* Uot2 2066 Zvexse 2071 TLST3 A 003 0482 0818 Ub1s 
SbYTL2 A 001 020a 0513 TeSi5a A 004 Q4a3 083z 
SBYTE3 A 001 020B 0518 Tn516 A 004 O4A7 0834 
SBYTLY A 001 020C 0515 ‘TESTOA A 001 04658 0838 0830 
SBYTES A 00% 020D 0516 0202 O2z02* Volk G618* 1UZH 10248 1026% 1017% 16359 TEST? A 003 0457 0840 0825 1744 
SEARCH A 004 1082 1651 1602 TEST7A A 00% USCS O684 0841 
SECDAY A 001 TEAS 2180 TESTS A 003 04854 V850 0846 
SETSSw A 004 08141 0775 0269 68506 TEST9 A 001 O4EO 0855 0851 
SLTSX® A 001 0481 07590 07774 TEXIT A 004 O463 OB8U4 0795* 4798 Us8d9 
SE10 2&2 004 0407 0767 0771 0776 TEX1T1 A 004 O407 0805 0793* 
Sib A 00% 4347 1858 18552 THL2 A 003 U485 U819 GsIUs V8IT YoIZ UbID*® 0496 Volue 
S101 C001 9018 1362 1744 «1745 «(1755 THREE A 001 O2EB 0015 0034 
SIZE A002 0203 0505 0346 1437 1841 *cMSG A618 0585 0965 0605 
SMOD aA 001 0200 0503 0336* 1435 1580 1912 1OMU) =A 003 OUF9 9163 
SNUB A 002 O5D4 0972 WW25* 1032 10358 1036 TOMUCH A 009 0101 0165 0163 
SPAPRT A OU2 O6DE 1059 TOME =&€ 009 08412 0772 0670 
SPBFHG A 002 0058 1018 TEYCPU A 0US 131 1889 1886 
SPC34 A 0U1 7100 2065 2270 TRYFCO’ A 000 1121 1689 Tous 
SPPLGS C 001 Oa02 1359 1208 ‘TRYFLDD A 004 7800 2056 0797 
S¥i € 001 0a00 1357 LHYFDo A 006 10£7 1674 1690 
SPULT C001 Oa0A 1361 1206 TRYOUT A 001 TOPE 1679 1075 
' 
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EC NO. 827804 627805 827872 571871 
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PRr3 DIAGNOSTIC CONTHOL PhUGHKAK — MODEL 12 FYF3 DLAGNOSTIC CONTKOL PKOGKAM - MODEL 12 


CHOSS-REFERENCE CBOSS-REPLRLACE 


SYHBOL 


Ld 


LEN VALUE DEFN REFLReNCES 


SYMbOL T LEN VALUE DEFN REPLaLWCES 
TRY343 A 006 110A 1683 XReFY A 001 04114 0779 1330 
THY64 A VON OEAZ 1437 XREFS A 002 0410 0773 1337 
Tk1 & 001 0535 1314 u5z2 Xk C 007 v001 1353 v0Z1 0022% 0023 0024 0026 6627 003% 052 0055 0055* 0003 0064 
TRIG42 A 0048 1866 1933 1930 00v4* Oluo® 01924 01720 VI2d 0130 0331 0O139% 0132 135% 0140 0140 
TRZ A 002 0787 1315 0523 0141 0983) 0985) «09465) 09678 6154 0154) 0155 O1d0 0150% 0108 0178°% 
TKS A 001 O2CA 1316 0524 0179 0216* 0219 U228 O230% 4uz353 0232 GC25z2% UZ33 UsL39 UZ4HI UZET1S 
TR3741 A VOS 1455 1928 1925 O24z U24% 0244* 6252 vzZob 0263 0263% 0204 0270 0271 0273% 0274 
TRY A v0t O67E 1317 0525 > 9277 0288 0290 0292 0319 0334 O336 v337 0339 0339 0390 C342 
TRS A 062 0789 1318 0520 0350 03513 0356 0350*% 0357 0360% 0363 0371 0373 0377 0377% 03578 
TRO424 A 008 1444) 1925 1921 0397 U397*® U398 0800 0800*% 0801 O403 O4US O85 O4U7T L409 0810 
THO A 002 6231 13319 0527 0412 US822 0429 083% 0430 Uvs85 V450* 0459 0575% US7T6 UST9 UdSKZ 
TH? A 00% U55A 1320 0526 ; OS¥o® 0590 059% Yolo 9020* U6b22 V0z25 Foz VbZ26) -0035*% Vo36 0638 
TSTICRD A 001 O88D 0822 1798 19072 ’ U055* Vos 0657 0657 v656 0659 060 0632 Vb6b3 0655 Votb 0088 
TSTDSK A 001 O862 0803 19068 ; ; UebS 0092 0692 F643 Uo96 06097 Ob69s Voyvd 0093 VIUt OFUZ 0705 
TSTFD6 A 004 1079 1624 07zZ2%8 «#U?z6 0727 OF7Z6 0729 VvFst OUF348 UIsZ YUIS5 VI30 GF38 0739 
TSTLNS A 003 1486 1945 4902 ; 0740 U740 0744 0783 U7483 UPAX*® 0771 O7F75 OF7O% UVIT UTTe 0778 
TSIOVL A 003 U&5% 0798 1902* 2056 0780 075% UF8? GIRZ UPBZ UIBZS GIBZ UTENF UPd0 4748 U793 0795 
{STUD B&B 00% 143E3 1694 1890 V806S U6zZK% U43IQ GBI0 0231 Od3s2% V634 0855 VBIF ULBOUS D86T 0862 
TSIG7 A OOF WIF 1579 155% 2558 562 Osb6 Ubo& 05774 8879S 0673 O676 Ob7H® Oo/d ObTO 4Ub9D OYDSF O9T4 
TRO A U02 033F 0650 0564 OF78t 2493 1264 0917 uS29 0822 99ZZ2e 0923 U¥Z8* US7T6 LI75% VYd7I DY¥tEs 0990 4996 
TWOR aA 002 B4DC 14783 0986 1003 72003 003% 1608 022% 1027 30276 2OLe 54 1036 10486 
T3 A 001 QO48t 0817 7089 305% 306%" BOoS woo Wos BFS GWytIF T9Z BIZ BI3K* B15S8e 
UALDDR A 002 OF&D 7896 34938 41159 os 405 405% 3299 BuFe 1205 Bet 3228 12397 IW2ZtH B258F 
UDTA aA VOSS OAES 0390 0386 W878 Bez 2283 22485 12636 8285 WKF 1295 3296 1297 1296 BW5zF 
UDTB A 003 GEIF 0407 O4GR 1455 2859 7459s 4860 744892 49% 28495 1508 3305S 3535 1836 25368 
vUDTC A003 OB2Z2A 04190 0408 456U% 1562 35976 1598 136578 Toot %003 1005 %WF2 to7o0 tw77? WES 
ULDID A v0G OBSS 0416 0473 1686 169% 1692 4852 12853% 8655 Ib50e 1657 Boo Iseot tote 36630 
ODTLP A OUZ OF3D 1494 153? Wie 49396 19607 1975 3977 Wd 1983 1906 14993 13996 1999 2000 
UDILPT A O0G6 OFet 1502 Sto 2003 20Gz 2002 2006 2008 201% «£023 2029 2030 2034 «zt3e 203? 
ULT1 C OOF U2KR9 OeBd 2042 2683 204% 2261 
ULTZ C061 0261 G4814 XR2 C 003 6002 4358 0053 054% 0058 G659 006% O02 06S 0065 0066 6104 02105° 0108 
UFINDT A 004 0912 1207 1245 6109 0816 0742 O193 O33% O89F 0732 01433 0134 Ots6% 0437 0138 
OFLNLZ A OUS 0916 1208 1249 0139 U259 OF82 Ut4z O143 O148 O146 0786 O17 GI4B O849 O156 
UPINL3 aA 003 O928 %32133 4223 0755 6157 0250 u232 0238 6238 O28u uz43 285 0255 U458 0275 
UFINVS A 063 0935 1217 1209 0283 0299 0379 0332 0368 O37 0383° 0384 O384% 0385 06390 0332 
ULP1 A 00% OAC1 0378 0806 — 0394 0395 6296 G818 0489 OG680 0466 O5e7 G57B 572% 6573 0575 
ULE2 a 003 OAL2 03848 v3$3 , 0576 0554 0587 0593 0590 0597 G5SY 050& 063% Dolz Gots 9678 
ULP3 A005 Gb33 0812 0415 0615% 0679 0625 9629 0632 v63s 003% 0634 0635 0636 0658* 0656 
ULPS A GU3 OBGS vU4sUd 0820 0659 0660 0vb2 6562* 0083 698 0706 0723 U735S 0785 G79z 0793 
UNPACK A 004 O2%E 0525 Czo8 1005 0S 173 449% 213% 293% 21483 2K? 0798 0785 0790 6799 U80t GsLS5e 0810 Oots YSIS Obtse Os21 0823 
UNPK? A 003 O36F 0082 070% U8zZ& 0837 063% U639 O840 G682 sds 08465 ves? O889 0850 0858 
UNFKZ A VO O372 4683 0697 0856 0657 0858 Gséd59 Gs65 Gto06 O57G Od57Z 87S O677 GE7B 0904 
UNPK3 A 004 0383 0689 G687 0S74 0975% 0981 C982 0985 L390 O9St BAUS WIS 1023 7028 2035 
UNPKY 2B 003 O397 0696 0095S 1235 1030 1037 2080 1050 1650 3056 105% Woo West WII 10776 
UGK A OU4 UA2A 0327 0322 03248 1072. 107z* 173 W7o* 1GsF Wuse 1049 1692 1092 1093 3337 1376 
UlTR A OU2 GACB 0381 0378% 4229 14z200 49240 99220«O3BZH «ABAD =. 3BZOS 77ST 1245S 32746 178B 1949 
USET1 A QO3 OBS? O86 04164 4151 1352 34357 4263 4262 38353 131466 2167 1608 %2voe 1208 1270 
UScT2 A VO3S UBSH 0419 24178 4211 12720 «412935 240 «224a* 42200 «12390 «280% $299 2242 «1274 12628 
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IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 2588494 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART BO. 2583893 
PAGE 1 PAGE 1A 
8716 3270 REQUEST POR TESTS (RFTS)-~SECTION 1-- 8716 3270 REQUEST FOR TESTS (RPTS)--SECTICH 1-- 
ERR LOC SGBJFCT CODE ADDR STMI SOURCE STATESERT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2 DECK 4& OA6F CO 87 0A39 70 B LOOP1 RETRY 3 TIMSES-THEN 
3 SEQ 0 0A73 CO 87 1137 71 B SEOT GO TO NEXT ROOTIBE 
0a00 & 732701 START x*a00* 72 
5 TREP 72 
6 * 73 *eeee eens 
q SKKKEKKKEAKKSEKLKEKKKKRAERKEREKSSEKKSKKEKKESKEKKS-CEKEKCKKSKEK ST ESKSSEEKSCAKEREREESE V4 & RTNO2 s 
8 2 * 75 skagsenes 
9 * 3270 REQUEST FOR TESTS * 76 * . ROUTINE PREFIX 
10 * * OA77 02 OA77) »=—s- 77: «RTHO2 OC XL1°02* ROUTIWE PREPIX 
1 * * 0a78 00 0A78 8678 pc XL1*00°* NO INTERVENTION BEQUIRED 
12 EREREREKRESEREEHEEREEEERESEEEEERSE SESE ERE EEEERFAECERES ESAS EEREER ERE BE KE OA79 OADE OA7A 79 DC AL2 (R780 3) ADDRESS OF WEXT ROUTINE 
OA00 8710 OA0t 13 DC XL2* 87 16° PROGRAM ID AND REVISION LEVEL 80 * 
Oa02 00 O202 14 BC XL7°O00 8 SECTION FLAGS OA7T% CO 87 OBDS 81 B SETUP SZTUP FOR REXT DISPLAY 
0a03 00 0a03 15 pc XL7*00* CURRENT ROUTINE NUMBER Oa7F CO 37 1026 82 B XLATE TRANSLATE 
0204 0000 OA0S 16 BC xL2*00* RESERVED 9a83 152D OA84 =: 8B3 DC AL2 (OkD2-1) MESSAGE 2 
OA06 CA10 Ox07?) = 3 pc AL2 (RTNO1) ADDRESS OF PIRST ROUTIWE 84 * 
0a08 FPFFF OaA09 86 18 pc XL2¢°FPFF* RESERVED 0asS 0c 03 1610 1908 85 MVC) 8=—_« A. (8) , DIAL SET FOR AUTO CALL 
OAOA 800000 OadC 19 BSCUDT DC XL3*8000008 BSCA ENTRY OA6B 386 10 OAOF &6 TBN TRAUDT,X*10° 
\ OAOD 875000 OAOF 20 TRMUDT DC XL3*8750008 CONSOLE SPUT ENTRY OASF F2 10 06 87 JT *+9 
21 * OA92 OC 03 1610 1907 68 MVC) =: AL. (4) » SAVPUT USE CORRECT CU AND TERM ADDRESS 
22 * OA98 3C P119CF 89 AVI COUNT, X*Ft1® INITIALIZE COUNTER 
22 FEREREREEER EE EEEEEEREEERERE EE ERS EEREE CAREER ERE EERE SEE ESTE SE OESEE SE REESE OA9C 3C F2 1949 90 AVI DISPNO,X*F2° INDICATE DISELAY 2 
2u a 91 * 
25 * DDT ENTRIES {BYTE OAOC) OaaO CO 87 111P 92 LOOP2 B CLRETB CLEAR T-R FIELD 
26 * OAAG 3C 0% 19D6 93 avYI  LCCHK1,CKACK2 SET TO EXPECT ACKO TO COBPABD 
27 * BIT 0 94 8 
28 * BIT 1 OAA8 OC ES 16FB 1613 95 BVC  START¢ETEST2-1(ETEST2),EORD2 SET FOR RFT 1 , 
29 * BIT 2 OAAE CO 87 1EC3 26 B $sio DISPLAY é 
30 * BIT 3 AUTO CALL OABZ 19EA 0aa3 06097 pc AL2 (ASTRT) SECOND j 
31 = BIT & SWITCHED CABS I19EE OaB5 98 DC AL2 (EHD2) MESSAGE 
32 * BIT § 1920 CHARACTER BUFFER OAB6 19DC OAB7T 86939 DC AL2 (ASTOP) 
33 * BIT 6 ASCII OABS ISDE OABS 160 pc Al2 (ATANDR) 
34 * BIT 7 PRINTER OABA CO 87 0£00 101 B CHECK CHECK FOR CORRECT RESPONSE 
35 *eeneeense CABF CO 87 OAD2 102 B LOOP22 PRINT ERROR AND KETRY COUsT 
36 * RTHOT ® 103 * GOOD RETORS 
37 seceeenne OAC2 CO 87 1308 108 B CEBSER WAIT FOR INTERRUPT KEY 
38 * ROUTINE PREFIX OAC6 CO 87 GAD2 105 B LOOPR2 ERROR RETUR 
OA10 01 OA10 39 RTNOT DC XL1°02¢ ROUTINE PREFIX Oaca CO 37 OAAO 106 B LOOP2 
0A11 00 OaA17 «080 pc XxL1*00* NO INTERVENTION REQUIRED OACE CO 87 1137 107 B SEOT GO TO WEXT ROUTINE 
OA12 OA77 0A130 «(41 pc AL2 (BT NO2) ADDRESS OF NEXT ROUTINE OAD2 CO 87 119£ 108 LOOPR2 B PRLIWT2 PRINT DISPLAY ERKOR 
a2 * OAD6 CO 67 OAAO 109 B LOOP2 RETRY 3 TISES-THEN 
0A14 CO 87 OBD6 43 B SETUP CLZAR =RRORS OADA CO 87 1137 110 B SEOT GO TO WEXT ROUTIKE 
OA18 CO 87 1026 mr) B XLATE TRANSLATE 711 
OA1C 1718 OAID 45 DC AL2 (ORD1~1) MESSAGE 1 111 
OA1E OC 03 17FE 1903 46 MVC) = A1 (4) J DIAL SET FOR AUTO CALL 112 *eeecueee 
OA24 38 10 OAOP 47 TBN TRAUDT,X*%0° 113 * BTNO3 © 
OA28 F2 10 06 48 JT £49 114 sereeeees 
OA2B OC 03 17FE 1907 49 MVC = A9. (4) J SAVPNT USE COBRECT CU AND TERS ADDRESS 115 * ROUTINE PREFIX 
9431 3C F1 19CF 50 MV¥I COUNT, X*"F1* INITIALIZE COUNTER OADE 03 OADE 116 RTNO3 DC xL1°03° ROUTINE PREFIX 
0aA35 3c F1 1949 51 AVI DISPHO,X*F1* OADF 00 CADF 117 pc xL1*00® NO INTERVENTION REQUIRED 
0A39 CO 87 111F 52 LOoOP1 8B CLETR CLEAR T-R FIELD OAEO OBSA OAE1 118 oc AL2 (RTHO4) ADDRESS OF NEXT ROUTINE 
OA3D 3c 04 19D6 53 NVI LCCHK1,CKACK2 EXPECT ACKO TO COMMAND 119 © 
54 * OAEZ 38 40 19AE 120 TBN UDTOPT,Z*40* Is IT aA 1920 
OA41 OC E6 16FC 1802 55 MYC «START*¢ETEXT1-1 (ETEXT1),EGRD1 SET FOR FIRST MESSAGE OAE6 F2 90 OF 121 JF GOSET3 CHARACTER BUFFER? 
OAS7 CO 87 1EC3 56 B $sIo TRANSMIT OAE9 CO 87 O21A i22 B PRINT PRINT 
OA4B 192A OAKC 8 557 Dc AL2 (ASTRT) FIRST OAED 46 OAED 123 Dc XL1°46¢ INCORRECT 
OA4D 19EC Case 58 Dc AL2 (END1) MESSAGE OAEE 10 OAEE 124 pc IL1*16° BUFFER 
QAP 19D¢C 6a50 0304559 DC AL2 (ASTOP) CAEF 1980 OAFO 125 pc AL2 (MSG09) SIZE 
0A51 19DE 0A52 = 60 pc AL2 (ATANDR) OAF1 S7A1 OAF2 126 pc XL2*S7A1° 
0a53 CO 87 OEF00 61 B CHECK CHECK. FOR CORRECT RESPONSE OaAF3 CO 87 0216 127 B LIK GO TO BEXT ROUTINE 
0A57 CO 87 OA6B 62 B LOOPR1 PRINT ERROR AND RETRY CUJNT 128 * 
63 * GOOD RETURN OAF7 CO 87 OBD6 129 GOSET3 B SETUP CLEAR ERRORS 
QASBR CO 87 1308 64 B CERSPH WAIT FOR INTERRUPT KEY OAFB CO 87 1026 130 B XLATE _ TRANSLATE 
CA5P CO 87 OA6B 65 B LOOPR1 CHECK RETRY COUNTER OAFP 1448 OB00 131 pc AL2 (ORDG-18 SESSAGE 3 
0A63 CO 87 0a39 66 B LOOP1 RETRY 132 * 
0367 CO 87 1137 67 B $SEOT GO TO NEXT ROUTINE 0301 Oc 03 14F1 1908 133 HVC 8=—-— EF OR3~5 (8) , DIAL SET FOR AUTO CALL 
68 0B07 38 10 OAOP 134 TBM ZTRSUDT,X*10* 
OA6B CO 87 119E 69 LOOPR1 B PRINT2 PRINT DISPLAY ERROR OBOB F2 10 06 135 JT 49 
DATE OTMART2 27AaPR72 24 JUL72 15SEP72 OUFEBT74 15 FEB75 973JUL75 PROG ID 871-6 DATE O1MAR72 21APR72 24 JUL72 15SEP72 01FZB7a 15 PEB75 073JUL75 PROG ID 871-6 
EC NO. 818693 818395 577058 818397 572208 572250 571781 PAGE 1 EC NO. 818693 818395 577058 818397 572208 572250 571781 PAGE WA 
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PART NO. 2588498 IBS MAUNTENANCE DIAGNOSTIC PEOGRAS PART NO. 2588898" 
PAGE 2 PAGE 2a 
8716 3270 REQUEST FOR TESTS (RFTS)=--SECTICN 1-- 8716 3270 REQUEST FOR TESTS {(RFTS)--SECTICH i-<- 
ERR LOC OBJECT CODE ADDR STST SOURCE STATEMENT ERR LOC OBJECT CODE ADDB STHI SOURCE STATEHEET 
OBOE OC 03 14F1 1907 136 HYC EFOR3-5{4&) ,SAVPBT USE CORRECT CU AND TERR ADDRESS OBC6 CO 87 4137 263 B SEOT TERNIVATE THIS SECTION 
OBI4 3C F1 49CF 137 MVI COURT, X*FI® IRITIALIZE COUNTER OBCA CO 87 119E 20% LOOPR4 B PRINTZ PRIBT DISPLAY ERROR 
OB18 3C F3 1949 138 BVI DISPNO,X*F3¢ INDICATE DISPLAY 3 OBCE CO 87 OBSS 205 B Loopa RETRY 3 TIBES-THER 
139 * OBD2 CO 87 1437 206 B SEOT TEBSIWATE THIS SECTION 
OBIC CO 87 141P 140 LooP3 B CLRIR CLEAR T-R FIELD 267 
OB20 3c 94 19D6 1414 BVI LCCHKi,CKACK2 SET TO EXPECT ACKO TO COMHAND 207 
142 % 208 Seeeeeees SlHeerenee 
OB24 OC AS 16RE 18F4 143 HYC START¢ETEXT 3-1 (ETEXT3} ,EFOR3-2 SET FOR RFT 2 209 * SETUP & © SETUP @ 
OB2A CO 87 1FC3 148 B $sIo DISPLAY 210 *seeentee THIS SUBROUTINE YS USED TO SETUP FOR EACH TESE  “*eeeeeen 
OB2E 19EA OB2F 145 Dc AL2(ASTET) THIEBD 23% © PER BOUTIEE-ERHORS WILL BE RESET. 
OB30 19P0 0831 746 pc AL2(END3) MESSAGE OBD6 212 SETUP EQU 
0B32 19DC 0533 1487 pc AL2 (ASTOP) OBL6 34 O08 ODFF 273 st EWDSET¢3, ARR SAVE RETURE ADDRESS 
OB34 19DE OB35 148 pc AL2 (ATANDR) OBDA 33 20 0202 244 TBN SBYTE2,SS#472 TERNIBATE SECTION? 
0536 CO 87 OEDG 149 B CHECK CHECK FOR CORRECT RESPONSE GBDE CG 10 TAID 295 BT SDISCT 
OB3A CO &7 OBUE 159 B LOOPR3 PRINT ERBCR AND RETRY COURT GBE2 38 Gi 18CO 216 TS" FLAG,FLAG? PIRST 
iSi * GOOD RETURN CBE6 P2 10 8C 217 JT HOTFR PASS? 
0B3E CO 87 1308 152 B CERSPH WALT FOR INTERRUPT KEY OBEY 3a 01 718C0 218 SBN PLAG,FLAG? SET PFLAG 
OB42 CO 87 CBWE 153 B LOOPR3 ERROR RETOUR OBED 38 O48 GaAOF 219 TBE TERUDT, Z'048 1920 
OB46 CO 87 OBic 154 B LOOF3 OBPT P2 10 06 220 IT PPROGT CRAB 
OB4A CO 87 4137 155 B SEOT . GO TO HEXT ROUTIKE OBF4 GC AB 14F6 16C1 221 BYC EPOR3 (172) ,EORD3+¢2 BUFFER 
OBE CO 87 11498 156 LOOPR3 B PRINT2 PRINT DISPLAY Z2RROR OBPA CO 87 0272 222 PPROGT B PRINT ParEet 
0B52 CO 87 OBIC 157 B LOOP3 RETRY 3 TIMES-THEN OBFE 06 OBFE 223 pe XL1°O06* PROGRAR 
OB56 CO 87 1137 158 B SEOT GO TC HEXT ROUTINE OBFF 21 OBFF 224 pe IL1¢33°¢ TITLE 
159 OC00 16£2 0c0? 225 pc AL2 (4S601) 
159 226 @. 
160 *eee¢nene 227 © CHECK UDT OPTIONS HERE 
167 * BTNOY * O0CO2 38 02 QCAOF 228 TBM TRNUDT,x°92° C3ECK FOR A : 
162 teeeeeene Oc06 F2 90 Ou 229 JF *¢e7 ASCII TERSIBAL 
163 @ ROUTINE PREFIX O0cO9 3A 80 149aB 230 S28 UDTOPT, K*80* | 
OB5SA 04 OBSA 164 BTNOU DC XL1°Qa¢ ROUTINE PREFIX OcOD 36 O08 OB0F 231 TBN TRAUDT, X°08® CHECK FOR AB 
OB5SB 00 0B5B 165 Dc XL7°008 HO INTERVENTION REQUIRED OCli F2 90 08 232 JF “+7 1$20 CHARACTER BUFFBE 
OBSC PFFP OB5D 166 pc XL2¢FFPF® ADDRESS OF NEXT ROUTINE OCi+ 3k 46 1942 233 SBN UDTOPT,xX°&O0® 
167 * O0c18 38 10 OAOF 234 TBE TRHUDT, £Z*70¢ S#ITCHED 
OBSE 36 40 19AE 168 TBN  UODTOPT,X*60* IS If A 1920 Cle Pe 10 29 235 JT RD BECK EETSORK? 
0B62 P2 10 OF 169 JT GOSETS CHARACTER BUFFER? OCiP OD G7? 1FF7 1A08 23e KEPCHK CLC &P&@POL (8) ,SLAEEK CHECK FOR POLL ASD SELECTIEG 
CB65 CO 87 O21A 170 B PRINT PRINT 0C25 F2 62 20 237 JHE  ADBOK ADDRESS AVAILABLE 
0369 46 0B69 171 pc XL1*46¢ INCORRECT 238 * PRIET ERROR 
OB6A 10 OB6A 172 pc IL1°76¢ BUFFER OC28 2c 00 1FEO 239 Gur HUEID, x° 00° 
OB6B 1980 OB6C 173 Dc AL2 (§SG09) SIZE Gc2c¢ CO £7 O2Va 240 HOPaT 8 PEIET PEINT 
OB6D BT7A1 OB6E 174 pc XL2*87aA1* 0c30 ct 0c30 241 pc XL1°c1e #O 
OB6F CO 87 0216 475 8 LI RK TERMINATE THIS SECTION 0c3% 20 6c34 282 DC IL1°32° ADDR 
176 * 0C32 1702 0C33 283 DC AL2 (2SGO7) AVAILABLE 
0B73 CO 87 OBDE6 177 GOSETS B SETUP SETUP FOR KEXT DISPLAY O0C3& 6706 60C35 288 oc XL2*8706¢ 
OB77 CO 87 1626 178 B XLATE TRANSLATE OC36 CO 87 O21A 245 5 PRIEST 
OB7B 1445 OB7C 179 pc AL2 (ORD&-1) HESSAGE & CC3R B6 OC3R 246 pc XL 1°86" 
180 = Oc3B 14 0C3B 247 pc IL1*20° 
OB7D OC 03 1527 1998 1814 AVC AY (4), DIAL SET FOR AUTO CALL Oc3c 17176 CC3B 248 oc AL2 {(mSGG8} 
OB83 38 10 OAOP 182 TBY TRHODT, K°70¢ OC3E CO 87 6222 249 B HALT H<LT 
OB87 F2 10 06 183 JT #49 OC42 8706 0c#3 250 DC KL2*87C65 OF -06- 
OB8A OC 03 1527 1907 164 HVC = AW (8) SAVPRNT USE CORRECT CU AND TERK ADDRESS Oc4e CO 87 OCIF 25% B KEPCHE 
OB90 3C Ft 19CF 185 NVI COURT, X®*Pi® IWITIALIZE COUNTER Bes . : an ADE RSos BS 
OBS4 3C FR 1949 186 HY DISPNO,X'F4® NDI? ce £3 ADROK 
187 * z Semvogne eee O0C48 OC 03 18E2 1FF3 254 AYC ADRSEL-9(4),REPSPL SAVE SELECTING ADDRESS 
0598 CO 87 111F 188 LOOPS B CLRTR CLEAR T-R FIELD OC4E OC 03 1867 1PF7 255 HVC POLSEL~1(4}),RP@POL SAVE ADDRESS FOR POLLING 
OBIC 3C O4 19D6 189 MVI LCCHK1,CKACK2 SET TG BXPECT ACKO TO COKMAND Oc54 OC 07 1FFF 1FF7 256 EYC SAVADR(8&),8PaPOL SAVE FOR HEXT SECTION 
190 « ‘ CCS5A GC 61 18DB 1826 257 MVC STXDC(2} -POLSEL-2 SETUP FIXED RDDRESS 
OBAO OC DE 16P4 152A 191 BVC START¢ETEXT4&-1 (ETEXT4) ,EORDG SET FOR RFT 3 : Oc6d cO 87 1026 258 B XLATE TRAHSLATE 
OBA6 CO 87 1EC3 192 B $siIo DISELAY OC64 18C1 Gc65 259 pc AL2 (DATCOE-1) CONTROL CODES 
CBAA 19BA OBAB 193 DC AL2 (ASTRT) FOURTH : CC66 CO 87 021 260 B UNPACK SAVE FOR 
OBAC 19F2 OBAD 194 DC AL2 (END4) MESSAGE i OC6A 02 0C6A 261 DC XL=*O2® DISPLAYING 
OBAE 19DC OBAF 195 pc AL2(ASTOP) OC6B 18E1 OC6C 262 pc AL2 (ADRSEL~2) 
OBBO 19DE OBB1 196 Dc AL2 (ATANDR) : OC6D 1907 OC6E 263 pc AL2 (SAVPBT) 
OBB2 CO 87 OF0O 197 B CHECK CHECK POR CORRECT RESPONSE ; OC6F CO 87 1026 264 B XLATE TRANSLATE 
OBB6 CO 87 OBCA 198 B LOOPRS PRINT ERROR aD RETRY COUNT : 0C73 18F9 Oc7& 265 pc AL2 (STNE-1) COHMON COSSLEDS 
199 * GOOD RETURN } 0c75 266 KOTFR EQU) * 
OEBA CO 87 1308 200 B CERSPH WAIT FOR INTERRUPT KEY 0C75 38 20 0208 267 TBN SBYTES,SSH1A SECOND 
(BBE CO 87 OBCA 201 B LOOPRS ERROR RETURN : 0C79 P2 90 08 268 JF “7 BSCA? 
OBC2 CO 87 CB98 202 B Loops Oc7c 3a 08 0c81 269 SBE SIGESBe?.x*G68* 
DATE G1MAR72 21APR72 24JUL72 1SSEP72 OVFEBTS ISPEBT7S G730L75 PROG ID 871-6; DATE O18AB72 27APRI2 24I30L72 ISSEP72 O1PEB7S 1SP2B75 O730L75 PROG ID ae 
EC RO. 818693 818395 577058 818397 572208 572250 571781 PAGE 2 _ EC NC. 618693 818395 577058 848397 572268 572250 571781 PEGE 
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IBM SRINTENANCE DIAGNOSTIC PROGRAS PART WO. 25°B4S8 IBM BMAINTZNANCE DIAGNOSTIC PROGRAB PART BO. 2583898 : 
PAGE 3 PAGE 3a 
8716 3270 REQUEST FCR TESTS (RPIS)--SECTICH 1-- 8716 3270 REQUEST FOR TESTS (RFIS)--SECTICH 1-=- 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
6c80 F3 80 CO 270 SIOENB SIO x*CO*,x*8ot ENABLE BSCA 337 
0c83 35 AO 1A5? 271 L $INTA, IAR2 LOAD INTERRUPT LEVEL 2 IAR OD3F CO 87 O21A 338 ILNUM B PRINT PRINT 
272 * OD&3 86 Op43 339 pc XL71*86! TELEPHONE 
273 * EXTRA RESET FUNCTIONS HERE Op&a4a IC ODS& 340 pc IL1*28¢ VOUMBER 
274 * OD45 OD95 Op46 341 pc AL2 (NTLBGE} TOO LARGE 
0C87 3B FE 18CO0 275 RESELL SBP  FLAG,X*FE* RESET FROGRAB 2LAGS OD47 CO 87 OCBP 342 B LOOFCH KEEP TRYLUEG 
276 OD4B 343 NOACAL EQU) *# 
276 OD’B 38 10 OAOP 344 TBN TRMUDT,X*10? SWITCHED 
OC8B 3c 01 19D6 277 AVI LCCHKt,CKACKO SET FOR TESTING ACKO ODGF F2 30 48 345 JF ESD WETWORK? 
278 #eeeeK 0% 0052 CO 87 11D0 346 B PPENQ EQ 
279 * CALL ® 0D56 F2 87 6B 347 J REERBSE CONTINUE 
280 XERESKEER 348 
281 * CALL 0D59 C3C1ID3D340C1IC2D6 OD64 349 ABORT DC CL12*CALL ABORTED® 
OCSF 38 18 OAOP 282 LOOPON TBN TRMUDT, X* 18° CHECK FOR AUTO CALL 0£61 DC9YEICSCY 349 
0c93 F2 90 B5 283 JF BHOACAL AND SWITCHED OD65 FFPE OD66 350 ATWO DC XL2°FFPE* 
0C96 3D FF 1TFDC 284 cLI CALMAD,X*FF® HAS CALL ALREADY OD67 ETETEVEVETEVTETE? OD71 3517 PNUS pc CLIT® XXXXXAXKXXXF* 
OC9A F2 81 AE 285 JE HOACAL BEEN COMPLETED? OD6F EVE7VET 351 
OC9D 3b 00 1FDO 286 CLI wWOUMDIG,x°00* ANY TEL HO ObD72 4OC9EZ40E3CB8C5480 OD8S5S 352 THUAX DC CL20* IS THE TELEPHONE HO® 
OCA1 F2 81 A7 287 JE HOACAL In CORE? OD7A EICSL3ICSD7ICBDELS 352 
OCA& 3D OB 1FDO 288 cLI NUMDIG,X*OB* XIS TEL xO OD82 C540D5D6 352 
OCA8 F2 84 94 289 JH ILNUA TOO LARGE? OD86 BOCS5ETC3CRE2ZH0F1 ODS5 353 BTLRGE DC CL16* EXCDS 11 bIGITS* 
290 ODSE PI“OCHCIC7CIE3ZE2 353 
OCAB C2 01 iFCF 291 LA NUAMDIG-1,XR1 0D96 1FD1 0D97 358 ACAL- DC AL2 (WUNDIG+¢1) 
OCAF 36 01 1FDO 292 A NUSDIG,XR1 0p98 0000 CD99 355 Y6 pc XL2*09° 
O0cB3 C2 02 161C 293 LA STABT¢6 ,XR2 OD9A 356 ESD EQU * 
OCB7 98 03 00 C1 294% LOOPOZ MEH 0(, X82) ,1{,X81) SAVE ORLY 357 *** ERD OF EXPANSION *# 
OCBB 98 01 00 00 295 MZN 0 0. (, XR2) ,0(, XR1) NUSEGRIC DIGITS OD9A OC O03 1219 18E2 358 MVC 8 =—6SELECT-3 (4) , ADRSEL-1 
OCBF 36 01 OD66 296 A STHO,XR1 ALTER OpDAO CO 87 1026 359 B XLATE TRAHSLATE TO 
OcC3 36 02 19~c 297 A HEXPF, XR2 COUNTERS ODAS 1A11 ODAS 360 pc AL2 (SELECT-11) CORRECT CODE 
OCC7 34 02 0OD71 298 ST PHUN,XR2 OCA6 CO 87 111F 361 B CLETR CLEAR T-2 PIELD 
OCCB OD 01 OD71 19Da 299 CLC PNOS (2) ,ASTART CHECK FOR JOB ODAA OC 08 16732 TATA 362 aYC START¢8 (9) -SELECT-2 OSE CORRECT SELECT SEQUENCE 
OCcD1 CO 84 0CB7 300 BH LOOPOZ COMPLETED 363 
301 O0c380 CO 87 1EC3 36a B $s1o TRAXSAIT 
CcpS cO 87 O2TE 302 B UMPACK UNPACK ODL T95A ODB5 365 pc AL2 (ASTART) SELECT 
OCcD9 06 OcD9 303 DC XL1°06¢ TELEPHONE ODS6 1950 ODB7 366 pc AL2 (START6) 
OCDA 16%C OcDB 308 pc AL2 (START¢6) WUABER ODB8 i9DC 0DB9 367 BC AL2 (ASTOP) 
OCDC 162: OcpD 305 pc AL2 (START#20) ODBA 19DE ODBB 368 pc AL2 (ATANDR) T-B 
OCDE OC OA OD71 OD72 306 RVC = PNUM (11) ,PNUAS1 CLEAR PRINT AREA OpBC CO 87 O£00 369 B CHECK CHECK FOR CORRECT RESPONSE 
OCE4 OC 00 OCF1 1FDO 307 MYC = BLNOX¢1, NOMDIG (1) Opco cO 87 0C87 370 B RESELL KEEP TRYING 
OCEA OF 00 OcF1 19D5 308 SLC MLMOX€1(1) , ONE PUT TEL NO INTO 371 
OCFO OC OA OD71 162A 309 MLMOX mYC PNUM(11),START+20 PRINT MESSAGE 372 * 
3170 373 * GOOD RETURN ON SELECT 
OCF6 CO 87 O21A 311 B PRINT PRINT Opc& 3c 02 19D6 378 REERSE BVI LCCHK1,CKACK1 SET TO EXPECT ACK 
OCFA 06 OCFA 312 DC XL1*06¢* TELEPHONE Opcs8 CO 87 111P 375 B CLRTR CLEAR T-R PIELD 
OCFB 1F OCPB 313 pc IL4*318 HUMBER Opcc Oc 04 161A 18ED 376 MVC START¢4S (5) , EWRTCD¢3 
OCFC 0D85 OCFD 3148 Dc AL2 (TNUBX) 377 
OCFE C2 01 1FD1 315 LA TELNUS-10,XR1 SETUP FOR ODD2 CO 87 1£EC3 378 B $sIo TRANSSIT STX,EXC 
OD02 36 01 1FDO 316 A NUMDIG,XR1 ISSUING ODDS 19DA ODD? 379 Dc AL2 (ASTART) ERASZ/¥RITE, 
OD06 34 01 OD99 317 ST ¥6 ,XRB1 THE CLLL ODD8 19£6 opDp9 380 pc AL2 (STARTS) RESET KYBD, 
ODCA 3C 03 1PDD 318 NVI = MAXCAL, X*03* SET FOR 3 RETRYS ODDA 19DBC ODrB 381 pc AL2 (ASTOP) ETX 
319 ODDC 19DE ODDD 382 DC AL2 (ATANDR) T-2B 
ODOE 2c FF 1B8B 320 MVI «= SNOTIN,X*PF® NO TIMEOUT MESSAGE ODDE CO 87 OE00 383 B CHECK CHECK RESPONSE 
0Dn12 CO 87 1EC3 321 SIOCAL B $si1o ISSUE ODE2 CO 87 ODEE 384 B #012 ERROR RETURS 
0D16 0D97 0D17 +322 pc AL2 (ACAL) THE 385 * 
OD18 106 0119 323 pc AL2 (ZERO) CALL 386 * GOOD RETUBN 
ODIA 0D99 OpiB 324 pc AL2(¥6) ODE6 3A 10 18C0 387 SBR FLAG, FLAG3 
OLic 1306 ODID 325 pc AL2 (SACAL) ODEA CO 87 ODFC 388 B ENDSET GO RETURE TO CURREVT ROUTERE 
326 ODEE CO 87 O21A 389 B PRINT PRIRT a. 
ORIE 3C FP 1FDC 327 M¥I CALMAD,X*PF* INDICATE CALL MADE ODF2 C6 ODF2 390 Dc XL1°CHS ERASE/SEITE 
0D22 38 20 1386 328 TBR S$ERFLG,X*20° TIMEOUT ODP3 11 ODF3 391 pc IL1¢47¢ ERROR 
CD26 F2 90 22 329 Je HOACAL ERROR? ODF4& 1946 OpF5 392 pc AL2 (8SG04) 
0D29 OF 00 tFDD 195 330 SLC SAXCAL{1) ,ONE IF SO, ODF6 8701 ODF7 393 pc XL2°87018 
Od02F CO 01 ODE 331 BNZ SIOCAL<-4 RETRY 3 TIMES OpF8 cO 87 0ce7 3948 B RESELL RETRY 
0D33 CO 87 O21A~ 332 B PRINT PRINT 395 
OD37 86 0D37 4 =333 Dc XL1* 86° CALL i CoFC cO 87 0000 396 ENDSET B e-8 RETURN 
0D36 OC 0D38 334 bc IL1*12* ABORTED t 397 seeeeeade setts e2e09 
OD39 OD64 OD3A 335 pc AL2 (ABORT) ; 398 * CHECK * * CFECK © 
0f3B CO 87 OCBF 336 B LOOPOR KEEP TRYING { 399 seaean808 THIS SUBROUTINE CHECKS FOR T-R ERRORS +eeeneees 
DATE OTHAR72 21APR72 245 J3UL72 15SEP72 O1FEB74 15FEB75 073UL75 PROG ID 871-6. DATE O1MABR72 27APR72 243UL72 1SSEP72 OUFEB74 ISFEB7S O07JUL75 PROG ID 871-6 
- EC NO. 818693 818395 577058 818397 572208 572250 571781 PAGE 3° EC NO. 818693 818395 577058 818397 572208 §72250 571781 PAGE 3a 
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800 * 
O£00 34 08 1025 &C1 CHECK ST ECHECK+43,ARR SAVE RETURN ADDRESS 
O£04 Oc 01 1008 1A00 402 HVC SSSAVE(2) , ZERO CLEAR S&S FIEI.D 
OZ0A 3c 00 19D8 803 aVI POLLSW,0 CLEAR POLL SWITCH 
OECE 34 01 1984 404 ST SAVXR1,XR1 SAVE 
OE12 34 O02 1986 &o5 sT SAVXR2,XR2 REGISTERS 
OE16 38 OE 18C0 806 SBF FLAG, FLAG6+FLAGS#FLAGY RESET PLAGS USED BY SUBROUTINE 
CEIA 38 01 19D6 407 TBN LCCHK1,CKACKO ACKO FROM 
OEIE F2 90 OB 408 JF CKF SELECTION? 
OE21 C2 01 18C3 409 LA ACKO,XR1 SET FOR TESTING 
OF25 3c 06 19D8 410 AVI POLLSW,ONWACK¢ONBVI POLL ON WACK OR RVI 
OE29 F2 87 4&F $11 J LCCOMP GO CHECK LINE CO.'TROL BESPONSE 
B12 **ee8 
OE2C 38 02 19D6 413 CKF TBN LCCHK1,CKACK1 ACK1 
0£30 F2 90 OB 414 JF CkG EXPECTED? 
0£33 C2 01 18c5 415 La ACK1,X&1 SET FOR TESTING 
OE37 3c 4G 19D8 416 AVI POLLSW,ONEOT POLL Of EOT 
OE3B F2 87 3D 417 J LCCONP 
418 “ex 
OE3E 38 048 19D6 819 CKG TBR LCCHK1, CKACK2 acxO TO 
OE&2 F2 90 OB &20 JF CKH COBBAND? 
OE8S C2 01 18C3 421 LA ACKO, XR? TEST FOR ACKO 
OE49 3c 4O 19D8 422 AVI POLISH, CNEOT POLL O8 EOT 
OESD F2 87 2B &23 J LCCouP 
424 *OR8 
OE50 38 40 19D6 &25 CKH TBS LCCHK1 ,CKEOT TEST FOR 
OES& F2 90 11 826 JF CKT EOT? 
OE57 C2 01 18D1 427 LA EOT,ZR1 SET FOR EOT CHECK 
QOESB 3A 02 18C0 428 SBN PLAG, FLAG6 INDICATE ONLY ONE BYTE 
OESF OF 01 1F93 19D5 &29 SLC SSTOP (2) ,ONE ADJUST ADDRESS FOR PAD 
OE65 F2 87 13 430 J LCCCHP 
&31 “eee 
OE68 38 20 19D6 432 CKI TBS LCCHK1, CKSTZXA TEST FOR 
QE6C F2 90 44 433 JF CKP STX, ADDRESS? 
OEGF C2 01 18DB 834 LA STXDC, XR1 SET POR STX,CU ADDR,DVC ADDR 
C£73 3A 04 18C9 835 SBS FLAG, FLAGS SET 3 CHAR CHECK 
HE77 3c 4O 19D8 436 BVI POLLSH,ONEOT POLL OWN EOT RESPONSE 
437 «enn 
438 * TEST LIE CONTROL RESPONSE 
OE7TB 35 02 1F99 %&39 LCCOSP L STRAN, XB2 GET TRANSITION FIELD ADDRESS 
OE7F 3D FF TEDE 440 CLI ADDER, X* FF* ADJUST 
OE83 F2 81 Ou 441 JE *e7 FOR 
GE86 36 02 1FE0 842 A HUMID, XR2 ID 
OE8A 38 04 18C0 4&3 TBE PLAG, FLAGS CHECK FOR 
CESE F2 90 OA aug JF #413 3 CHAR COSPARE 
0E91 9p 02 02 00 4&5 cLe 2(3,X%R2) .0(,XR1) CHECK 3 BYTES 
CE9S F2 01 41 4&6 JHE LCOMP1 WHICH WERE TRAHSAHITTED 
OE93 F2 87 18 aa7 J CKP FIELD WAS CORRECT 
OE9B 38 02 18C0 448 TPH PLAC, FLAG6 CHECK FOR 
OEOF F2 90 OA &&9 JF #413 1 CHAR COMPARE 
QEA2 9D 00 00 00 850 CLC 0(1,XR2),0{,XR1) CHECK OHNE BYTE 
OEA6 F2 01 30 451 JHE LCOMP1 
QEAS9 F2 87 07 452 J CKP FIELD GAS CORRECT 
OEAC 9D 91 01 00 453 CLC 1(2,XR2) ,0(,X81) CHECK .WO BYTZS RECEIVED 
QOEBO F2 01 26 454 JHE LCOMPt 
455 * FIELD WAS CORRECT 
456 4% 
OFB3 36 08 19D6 457 CKP TBH LCCHK1,CKETX TEST 
OEB7 F2 90 07 458 JF CKR ETX? 
OEBA CZ 01 16CC 459 LA ETX,XR1 SET FOR ETX 
OEBE F2 87 OC 460 J LCOMP6 
861 Sexe 
OECT 38 10 19D6 N62 CKB TBH LCCHK1 ,CKETB TEST 
OECS cO 90 1009. 463 BF CKS ETB? 
OECI C2 01 18CP N64 LA ETB,XxR1 SET FOR ETB 
OECD 35 02 1F93 465 LCOMP6 L SSTOP, X82 
OEDI 6D 00 00 00 §66 cLe 0(1,XR1) ,0(,X82) CHECK 
OEDS CO 81 1009 467 BE CKS RESPONSE 
DATE O1MAR72 21APRT2 24I0L72 TSSEP72 OTPEER74U ISPEB75 O7VJEL7TS PROG ID 871~6 
BEC NO. 818693 818395 577058 818357 572208 572250 5717874 PaGE & 
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ERR LOC OBJECT CODE 


OEDS 


OEDD 
OEE 
ORES 
OEEB 
OEED 
OEP 
OEFPS5 
OEF9 
OEFD 


OF0O 
Or06 
OFOA 
OFOD 
Cr10 
OF16 
OFIC 
OF20 
OF23 
OF27 


Or2B 
OF2é 
OF31 
OF33 
OF_5 


0F37 
OF3C 
OF3F 
OP&& 
OF4a7 
OP4SB 
OF51 
OF57 
OFSD 
OF63 
OF67 
OF6B 
OFEF 
0F73 


OF76 
OF79 


OP7B 
OP7F 
OF83 
Oré4 
Ores 
OF87 
OFr8s9 
OFr8D 
OF91 
OF94 
OF98 
CF9B 
OFSF 


DATE 
EC NO. 


3B 02 19¢0 


38 
38 
F2 
8D 
co 
cz 
co 
38 
F2 


Oc 
C2 
E2 
F2 
oc 
oc 
C2 
E2 
34 
C2 


co 


01 
10 
99 
01 
01 
C2 
87 
10 
90 


00 
07 
d2 
87 
03 
08 
01 
Oz 
01 
01 


87 


19DA 
0000 
19pDC 
I9DE 


6D 
F2 
8D 
F2 
co 
oc 
OD 
OD 
OP 
co 
36 
co 
35 
P2 


01 
81 
O14 
81 
87 
02 
FF 
3A 
02 
01 
04 
ci 
02 
87 


OaOP 
18C0 

33 

01 18C9 
ICDC 
1616 
T41P 
Oa0P 

10 


1616 
OF7A 


18D0 


13 

1Aa19 
1612 
19E£90 


18E2 
TATA 


OF32 
COSA 


1EC3 


01 18c9 
oc 

Of 18C3 
C2 
1cpc 
19CE 
OFr51 
OF57 
I9CE 
OFS1 
ISAC 
OF2B 
iF9S 
05 


OF78 
OFS1 
OFS7 
19D5 


0003E8 
1617 


3A 
co 
c3 
OA 


08 
87 


1917 
8702 


co 
38 
F2 
C2 
P2 
38 
F2 


OIMAR72 
848693 


87 
02 
$6 
01 
87 
04 
90 


18CO0 
O21A 


1cDc 
19D8 
07 
1807 
1D 
19D8 
07 


3270 REQUEST FOR TESiS 


(RPIS)--SECTICN l-- 


ADDR STA&T 


OF 30 
OP32 
OF34 
OF 36 


OF78 
OP7A 


OF8B3 
OF84& 
OF 86 
OF88 


2TAPR72 


818395 


PAET 
PAGE 


2588898 
GA 


g0. 


SOURCE STATENERT 
468 ®@ 
469 *® ERROR 
470 LCOMP! SBF FLAG, FLAG6 RESET COHBPARE FLAG 
471 * 
472 
473 #8 SPRAC 
474 & CALL MACRO BY SPRHAC 
475 ®& 
476 * IPF A PRINTER IS BEING TESTED, NODIFPY ERROR CHECK 

* 
oe TBH TRAUDT,ZX°OT® PRINTER 88 ESSEC SRS ee CORHKETEREBED 
479 TBN PLAG,FPLAG3 
480 JF SPLAGSS& 
481 CLC 1(2,XR2) , WACK IS PRINTER BUSY? 
482 BBE STREET 
483 LA START, XR2 USE KE2 FOR TRABS COUNTER 
484 B CLATR 
885 TBW TRMUDT, X°10® SWITCHED 
486 JF NOSWCH NETWORK? 
887 
&88 RYC START (1) -ENQ MOVE IN EXNQ 
489 LA . STAET1,XR1 USE CORRECT TRANSITZIOB ADDRESS 
&90 LA 1(,%R2) ,XR2 
491 J ASIO 
&92 NOSHUCH HVC SELECT<-3 (&) ,ADRSEL~-1 USE CORRECT 
893 AYC STAET¢8 (9) ,SELECT=-2 SELECT ADDRESS 
494 LA START6, XR1 USE CORRECT TRANSITION ADDRESS 
&95 LA 9(,%R2) ,XB2 
&96 ASIO St aASIO1,xR1 SAVE TRANSITION &2£DDCZESS 
4gs7 LA 90, XB1 WAIT UP TO 30 SECOERDS 
age 
a99 B $sIrto TERANSHIT 
500 pc AL2 (ASTART) SELECT 
501 ASIO1T obC AL2 (*-*) 
502 Dc AL2 (ASTOP) 
503 oc AL2 (ATARDR) 
5048 
565 cL 1(2, 2182) ,WACK WACK RECEIVED? 
506 JE gti KEEP WAITING IF WACE 
507 cLc 142, XB2) ,ACKO IP aCKO, PRINTING 
5C8 JE cxs HAS COMPLETED 
§$09 #112 B STRPNT 
§10 8111 svc COUNTE (3) WAIT WAIT 
S511 81SEC CLC * (256) ,* CHE 
512 cLc #459) ,% SECOND 
513 SLC COUNTE (3) ,OBE 
5148 BRE S1SEC 
§15 A HEX?PP, xXR1I 

roe 
ee a: Seika ine RELOAD TRAMSITION ADDRESS 
518 J SFLAG& ; 
519 
520 WAIT! vc 1L3*090326* 
521 START1 DC AL2 (START¢1) 
522 *** END OF EXPANSION @® 
523 SFLAG&Y SBN FLAG, FLAGS IBDICATE LC ERROR 
524 B PRINT PRINT 
525 be XL1*c3* LIHE ERROR 
526 pc IL1* 170° 
§27 pc : eeeetase 
*8702 

a6 . sracue PRINT XMST AMD RECEIVED DTA 
§30 TER PCLLSH, CURVI <OLL 
§31 J? LCOSP2 ON RBYI? 
532 LA RVI,XR1 SET POR BYI 
533 J LCOMPS 
534 LCOMNP2 TBH POLI.S8, OMNWACK POLL 
535 JF LCOSP3 OM BACK? 
&CULT2 15SEP72 CIFEB?S& ISFEB75 O7J0L75 PROG ID 871-6 
s77050 816397 §722068 §72250 571781 PAGE ; 8A 
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PART NO. 2586494 IBM MAINTENANCE DIAGNOSTIC PROGRAS PArt BO. 2588898 
PAGE 5 PAGE Sa 
8716 3270 REQUEST FOR TESTS (R8FTS)--SECTICN 1-- 8716 3270 BEQUEST FOR TESTS (RPIS)--SECTICH 1-- 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ALZG® STME SOURCE STATESENT 
OFA2 C2 01 18C9 536 La WACK, XR1 SET FOR WACK 1064 38 80 19A9 604 TBN ILTSW, ASCII Is If ascrz 
OFAS F2 87 OF 537 J LCOMPt 1068 F2 90 A8 665 JF XLATE7 Noa? 
OPA9 38 40 19D8 538 LCOMP3 TBN  POLLSW,ONEOT POLL 606 * 
OFAD 72 30 59 539 JF CKS ON EOT? 607 * CCNVERT ASCII TO EBCDIC 
OFBO C2 01 18D1 540 LA EOT,XB1 SET FOR EFOT 608 * 
OFB4 3A 02 18C0 544 SBN PLAG, FLAG6 COMPARE ONLY ONE CHAR 106B 3c 00 19AA 609 XLT2A AVI XLTSwWe1,0 INDICATE TABLE IS NOW EBCDIC 
OFBS 38 02 18CO 542 LCOMP& TBN FLAG, FLAG6 CHECK ONE 106F C2 02 1806 610 LA ASCTBL,XR2 USE XR2 FOR ASCII TABLE POINTER 
OFBC F2 10 OA 543 JT *413 CHARACTER? 1073 3A 80 18C0 611 SBY PLAG,FLAGO INDICATE CONVERTING TO ¥aBCDIC 
OFBF 9D 01 01 00 5uy CLC 1(2,XR2) .0(,XB1) BRANCH I™ 1077 F2 &7 OF 612 J XLATES 
OFC3 F2 01 43 545 INE LCOMPS NOT EQUAL-- 613 * 
OFC6 F2 87 07 546 J LCOMP7 NO STATUS 614 * CCNVERT EBCDIC TO ASCII 
OFC9 9D 00 00 06 547 CLC 0(1,XR2) ,0(,XR1) CHECK ONLY 615 * 
OFCD F2 01 39 548 JE LC OMBS ONE CHARACRER 107A 616 XLATE3 EQU * 
549 * 107A 38 80 19A9 617 TBN XLTSW,ASCII IS IT ASCII ALREADY? 
550 * POLL POR SENSE AND STATUS 107E F2 10 92 618 JT XLALE7 YES-SKIP TRARSLATIO’ 
OFDO 551 LCOMP7 EQu * 1081 619 XLT3A EQU * 
OFDO 3c 4&0 1307 552 MNVX SWITCH, X*40* BYPASS TIMEOUT 1081 3C 80 19AA 620 BVI XLTSW¢1,X*80* INDICATE TABLE IS WOW ASCII 
OFD4 CO 87 1238 553 B POLL DO TBE POLL 1085 C2 02 1805 621 LA EBCTBL,XR2 OSE XR2 POR EBCDIC TABL~ POINTER 
5548 1089 622 XLATES EQU * 
OFD8 CD 02 19C5 18D8 555 CLC DUAMMY#11(3),HEADER WAS STATUS (SOH & R) 1089 6D 00 00 00 623 CLC 0(1,%R1),0(,XR2) CHECK FOR 
OFDE F2 01 28 556 JNE LCOMPS RECEIVED? 108D F2 81 OF 624 JE XLTSA CORRECT CHARACTER 
OFE1 OC 91 1A0B 19CA 557 MYC SSSAVE(2),DUMMY¥#16 SAVE IT 1090 £2 02 02 625 LA 2(,XR2) ,XR2 CHECK ALL 
OFE7 38 80 19AE 558 TBN UDTOPT, ASCII IF TERMIBAL 1093 8D Ot 07 19aC 626 CLC 1(2,XR2) ,HEXFF ENTRIES 
OFEB F2 90 06 559 JF PRER IS ASCII 1098 CO 01 1089 627 BRE XLATES 
OFEE CO 87 1026 560 B XLATE CONVERT TO EBCDIC 109C F2 87 SP 628 J XLATE6 
OFF2 1Aa09 OFF3 561 pc AL2 (SSSAVE~2) 629 * 
OFF4 CG 87 1176 562 PRER B $ACK1 GO TRANSSIT ACK1 RESPONSE 630 * BATCH WAS BADE 
OFFB CO 87 021E 563 B UNPACK UNPACK 631 * 
OFFC 02 OFFC 564 DC XL1*02& STATUS 109F 632 XLTSA EQU * 
CFFD 1A0B OFFE 565 pc AL2 (SSSAVE) AND SEKSE 109F 38 89 18C0 633 TBN FLAG,FLAGO Is it 
OFFF 192F 1000 566 pc AL2 (BSG03) 10A3 FP2 90 OB 634 JF CLCETA ASCII To EBCDIC 
1001 CO 87 O21A 567 B PRINT PRINT 1OAG 36 O2 19aC 635 A REXPF,XR2 
1005 05 1005 568 DC XL1*05!# SENSE 1OAA 6C 00 006 00 636 BYC 0(1,XR1) .0(,XR2) SAVE SEW CHARACTER 
1006 18 1006 569 pc IL1* 248 AND STATUS 10AE F2 87 04 637 J *+7 
10C7 192F 1008 570 pc AL2 (§SGC3) 10B1 6C 00 00 01 638 CLCETA AYC 0(2,XR1) ,1(,XB2) SAYE WEW CHARACTER 
1009 571 LCOBPS EQUuU. * 639 * 
1909 572 CKS EQU * : 640 * SPECIALS (ACK 0, ACK 1, SACK, RYI) 
1009 CO FF 100D 573 BC *eU,X°PPre 1685 7b 10 00 684 CLI 0(,XR1) ,x*106* Is 1f 
100D 35 01 19B4 574 i SAVXR1,XR1 RESTORE 10B8 F2 01 43 642 JRE ZLATE6 A -DLE-? 
1011 35 02 1986 575 L SAVXR2,XR2 REGISTERS 10BB 39 80 I9AE 643 TBP UDTOPT ,ASCII Is If 
1015 38 08 18CO 576 TBN PLAG, FLAGS ANY Lc 10BF F2 10 07 684 JT XLTSE AM ASCII TERMIRAL? 
1049 F2 10 06 577 JT *e9 ERRORS? 6485 EECDIC 
101C OF 01 1025 1A10 578 ALC ECHECK+3 (2) , FOUR 10Cz C2 02 18B7 646 LA ESPCAL,XB2 USE COBRECT TABLE 
1022 cO 87 0000 579 ECHECK B +o-2 RETURN 10C6 F2 87 08 647 J XLT5¢G 
580 SHEAKKEAKE SESRSEEEKS | 648 8 ASCII 
S81 * XLATE ® * XLATE *. 10C9 C2 02 18BB 649 XLTS5SE LA ESPCAL¢&,XR2 
582 seesaneen eRESETERE 10CD 3A 40 18C0 650 SBN FLAG, PLAG1 
583 * THIS SUBROUTINE IS USED TO CONVERT FROM EBCDIC 10D1 D2 01 01 651 XLT5G LA 1(, X81) ,XE1 
584 * TO ASCII OR ASCII TO EBCDIC. 10D4 6D 00 00 90 652 CLC 0(1,XR1) ,0(,XR2) CHECK EACH 
585 * ‘ 10D8 F2 81 OD 653 JE XLT58 SPECIAL 
1026 S86 XLATE EQ) * : 1ODB E2 02 01 654 LA 1{,XR2) ,XR2 CHARACTER 
1026 34 08 1112 537 St ENDXL¢3, ARR SAVE FOR RETURNING \ 1O0DE BD FF 00 655 CLI 0(,XR2) ,.X*FF® ia THE 
102A 34 01 1984 588 St SAVZR1,XR1 SAVE : 10E1 CO 01 10D4 656 BEE XLT5G¢3 TABLE 
102E 34 O02 1936 589 ST SAVXRB2,XR2 REGISTERS i 10E5 PZ 87 16 655 J XLATE6 
1032 35 02 1118 590 L ENDXL#3,XR2 i 658 # 
1036 OF 01 111E 1932 591 ALC ENDXL#¢3(2: , THO 659 * SPECIAL POUND 
103C B5 01 0% 592 L 1(,XB2) ,XB1 USE XR1 FOR TABLE TO BE TRANSLATED : 10E8 38 40 18C0 660 XLTSH TBN FLAG,PLAG1 CHECK POR 
103F 1c 00 79a9 00 593 HVC XLTSW41) .0(,XB1) : 10fC P2 10 07 661 oT SUBAa AOD PLAG 
1044 34 01 1980 594 ST SAVEND,XR1 SAVE BEGINNING ADDRESS OF TABLE : 10EF 6C 00 00 04 662 BYC 0(1,XR1) ,4(,XR2) CHANGE EBCDIC 
1048 D2 01 01 595 La 1(,XR1) ,XR1 : 10F3 F2 8&7 08 663 J #11 TO ASCII 
194B 3B CO 18cCO 596 SBP FLAG, X'CcO® RESET F"OGRAM FLAGS USED BY SUB ; 10F6 36 02 19B8 664 SUB4 A HEG2 ,XP2 CRANGE ASCII 
104F 3D 40 1929 597 XLT1A CLI XLTSW, FOREBC FORCE i 10PFA 6C 00 00 00 665 NYC 0(1,XR1) ,0 (,X82) TO EBCDIC 
1053 F2 81 15 598 JE XLT2Aa EBCDIC? 666 * 
1056 3D 20 19a9 599 CLI XLTSW, FORASC PORCE t 10FZ 667 XLATE6 EQU * 
105A F2 81 24 600 JE XLT3a ASCII? 1OFE D2 01 01 668 LA 1(,X81) ,XR1 CHECK FOR 
105D 38 80 19AE 601 TEN UDTOPT, ASCII IS IT A : 1101 4D 97 01 19ac 669 CLC 1(2,XE1) ,HEXPP END 
1061 F2 10 16 602 JT XLATE3 ASCII TERMINAL? 1106 CO 01 10u8PF 670 BRE XLT1A OF TABLE 
603 * EBCDIC TRANSLATE NEEDED : 110A 35 01 19B0 671 L SAVESD,aB1 
DATE O1MAR72 21APR72 243UL72 15SEP72 OIFEB74 1SPEB75 O7JUL7S PROG ID 871-6; DATE 01MA372 21APR72 24JUL72 15SEP72 O1PEB78 I5PE; 5 O7JUL75 PROG ID 871-6 
EC XO, 818693 816395 577058 818397 572208 572250 571781 PAGE 5: EC NO. 818693 818395 577638 818397 572208 572250 571781 PAGE SA 
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PART NO. 2588494 IBB MAINTEWANCE DIAGNOSTIC PROGRAN PART BO. 2588498" 
PAGE 6 ! PAGE 6a 
8716 3270 REQUEST FOR TESTS (RFTS)--SECTION 1-- 8716 3270 REQUEST FOR TESTS (RFTS)--SECTION t~- 
ERR LOC OBJECT CODE ADDH STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATESEMT 
TI0E 4c 00 00 19aa 672 HVC =: 0 (1, XR1) ,XLTSW41 INDICATE WHICH TRANSLATION WAS DORE 11C6 OF 01 11CF 1010 738 ALC = ENDPT2¢3(2) , FOUR 
1113 35 01 19B4 673 XLATE7 L SAVXR1,XR1 RESTORE XR? 11cCc C2 87 0000 739 ENDPT2 B e-8 RETURR 
1117 35 02 19B6 674 L SAVXB2,XB2 RESTORE XR2 740 
114B CO 87 0000 675 ENDXL 8B to% RETURN 740 
676 * 741 seneneen 
677 * CLEAR TRANSMIT AND RECEIVE FIELD 742 * SENQ © 
141F 34 08 1136 678 CLRETR ST ECLETR¢3,ARR 743 teene8e9 
1123 3c 00 479A 679 NVI STOP,O CLEAR 744 ¢ 
1127 OC FP 1719 171A 680 AVC = START# 259 (2563 ,STOP TR 745 * SENQ 
112D OC 08 161A 1618 681 MVC =—- START#4 (5) , START#S PIELD 746 * 
1133 CO &7 0000 682 ECLETR B t-* RETURN 747 = THIS SUBROUTIWE IS USED TO GAIN CONTROL OF THE LIBNE— 
683 748 * USED PCR THE SWITCHED FEATURE ONLY. 
683 749 © 
684 * THIS SUBROUTINE TRANSMITS EOT TO SELECTED TERMINAL 11D0 34 08 1237 750 PPENO ST EYUDENQ¢3, ARR SAVE RETORN ADDRESS 
665 * 11D4 38 19 020A 751 TBE SBYTE2,SSW#13 Ir sswi3 
1137 348 08 1175 686 $EOT ST ES EOT¢3, ARR 11D8 F2 90 08 752 JF *e11 IS ON, ALLOW 
113B 3c 00 19cB 687 MYX = _DUMHY#17,0 CLEAR TIpB 3C 00 1FDE 753 NVI ADDER,0O FOR RECONNECTIOB 
113F 0c 10 19CA 19CB 688 MVC) = DUMM¥ #16 (17) ,DUMMY#17 T-R FIELD 11pP 3B 10 920a 754 SBF SBYTE2,SSW13 
1185 Cc OC 19BA 18D1 689 AVC) =©DUMMY (1) ,EOT T1E3 C2 02 1615 755 LA START~-1,XB2 
114B 3C FF 1383 690 MVI «s- SNOTIN,X*FF® NO TIMEOUT MESSAGE WANTED 756 
144P CO 87 1EC3 691 B $SIO TRANSMIT 11E7 3D 00 1FE0 757 CLI wOoMID,x*008 IS THERE 
1153 19F6 1154 692 pc AL2 (ADUS1) E0T T1EB F2 814 22 758 JE SENQ1 Am ID? 
1155 19PAa 1156 693 pc AL2 (ADUH3) VIBE C2 01 1PEO 759 LA ID-15,X81 
1157 19PA 1158 694 pe AL2 (&DUM3) 11F2 36 02 1FEO 760 A RUMID, XR2 USE RH ADDRESS FOR S#T PIELD 
1159 19DE 115A 685 pc AL2 (ATANDR) T1F6 36 01 1FE0 761 A NUMID,XB1 USE RH ADDRESS OP Ic FIELD 
115B 38 20 020a 696 TBN SBYTE2,SS#12 TERSINATE SECTION? T1FA OC 00 OD99 1FEO 762 AVC = 6. (1) , HUMID 
115P CO 10 1A1D 697 BT SDISCT GO DISABLE AND TERMINATE 1200 OF 00 OD99 «+9D5 763 SLC 26 (1) ,ORE , 
1163 38 01 7307 698 TBN SWITCH, X*01* BYPASS LINKING? 1206 OC 00 120D Op99 764 HVC = BYC5¢4 (1) ,¥6 | 
1167 F2 10 048 699 JT *+7 765 
1168 CO 87 0216 700 B LIBK 120C 9c 00 00 00 766 BYCS HVC 0(,XR2),0(1,XB1) MOVZ ID TO XST FIELD 
¥10E 3B 01 1307 701 SBF  SWITCH,Xx*0O1* 1216 8c 00 01 18D0 767 SENQT SVC 1(1,XR2),EHO MOVE Im ENQ 
1172 CO 87 0000 702 ESEOT 8B +-# RETURN 1215 22 02 02 768 La 2(_XR2) ,XR2 GET CORRECT 
703 1272 34 02 OD99 769 st ¥6 X82 TRANSITION ADDRESS 
703 770 
708 * 121C CO 87 1EC3 771 SEBQ  B $S10 TRAUSHIT 
705 * 1220 19Da 1221 772 pe RL2 (ASTART) (1D) 
706 * %ACK1 1222 0D99 1223 773 DC AL2 (¥6) ERQ 
707 * 1224 19DC 1225 774 pc AL 2 (ASTOP) 
: 708 * THIS SUBROUTINE TRANSHITS ACK1 TO THE TERMINAL BEING TESTED. 1226 19DE 1227 ae pc AL2 (ATABDB} 
709 © 6 
1176 38 08 119D 710 SACK1 ST ESACK¢3,ABR SAVE RETURN ADDRESS 1228 CO 87 OF00 777 B CHECK GO CHECK FOR ACKO 
117A 3c FF 1B8B 711 MVI S$NOTIN,Z*FF® BYPASS TIMEOUT 122c CO 87 121C 778 B BENQ REPEAT IF IN ERROR 
117E 3c 00 19cB 712 MYT = DOMEY¢17,0 CLEAR 1230 3c FF 1PDE 779 NVI ADDER, X°FF® 
1182 OC 10 9c, 19re 773 BVC 8 =DUMNY*#16 (17) , DUMBNY417 T-R FIELD 1234 CO 87 0000 780 ENDENQ B to RETURE 
1488 OC 0% 19b5 toL5 oaM KUC OUMSY+¢1 (2) , ACK1 SET FOR ACK1 781 *** END OF EXPANSION *© 
TH8E CO 87 VzC3 715 B $S10 TRANSMIT Tay Sees e ee 
1192 19F6 1193 716 pc AL2 (ADUS1) ACK1 783 * ZPOLL * 
1194 19F8 1195 717 pc AL2 (ADUS2) RESPONSE 7104 Seeeesess 
= 1196 19F4 1197 718 Dc AL2 (ADUM8) 785 * 
1198 19DE 1199 719 DC AL2 (ATAHDR) 786 * SPOLL 
1192 CO 87 0000 720 ESACK B t-% 787 *« 
721 *** END OF EXPANSION ** 738 * THIS SUBROUTIBE IS USED TO PERFORM POLLING FOR SULTIPOLINT 
ieee 783 * OR TO RECEIVE ONLY FOR THE SWITCHED FEATURE. 
as * THIS SUBROUTINE PRINTS DISPLAY ERRORS 5 790 * 7 
24 * 1238 791 EOLL £EQU 
149E 725 PRINT2 EQU * 1238 34 08 1302 792 ST ENPOLL¢3 AER SAVE RETURN ADDRESS 
T99E 34 O8 t1CF 726 ST ENDPT2¢3,ARR 123c 3c 00 19CB 793 AVI DUMMY*+?7,0 . CLEAR 
14A2 OC 00 195E 19CF 727 NVC =. BSG05¢1) , COUNT SAVE FOR RETURNING 1240 OC 10 419CA 19CB 794 MYC) 4 =—- DU FN Ye 46 (47) ,DUMBY+17 T-B PIELD 
1148 CO 87 O21A 728 B PRINT PRINT 1246 38 10 OAOP 795 TEN TRAODT,xX*10* SSITCHED 
TiaAc C6 tac 6729 pc XL1°c6¢ DISPLAY 124A F2 70 21 796 JT DOREC NETBURK? 
VIAD 12 11AD 730 DC IL1* 308 ERROR 124D OC 03 41419 1827 797 MYC SELECT-3¢(&) ,POLSEL-1 GET POLLING ADDRESS 
14AE 1952 V1AF 731 DC AL2 (48605) 1253 CO 87 1026 798 B XLATE TRAESLATE 
11B0 8703 14B1 732 DC XL2*8703* 1257 ta%1 1258 799 pc AL2 (SELECT-11) IF WECESSAR® 
11B2 FZ 87 04 733 J INCET . » 1259 OC 08 19C2 TAIA 800° HYC DOMSBY+¢! (S$) ,SELECT-2 SET POR POLLIEG 
11B5 34 08 11CF 734 PRINTS ST  EXDPT2¢3,ARR ed 
TIBS 06 00 19CF 1959 735 IRCNT 2&2 COUNT (1) , FONE (1) INCREMENT RETRY COUETER 125P CO 87 1EC3 602 B SSIO POLL 
VIBF 3D F& 19CP 736 CLI COUNT, K* PGE HAVE 3 RETRYS 1263 1976 1268 803 DC AL2 (ADUST} THE 
11C3 F2 01 06 737 JHE ENDPT2 BEEY COKPLETED? 4265 39FC 1266 808 pc AL2 (ADUBS} DISPLAT 
DATE | 01HAR72 Z7APR72 24I0L72 15SEP72 O1PEBT4 1SPEB?5 O750L75 ?ROG ID 871-6 DATE OTHAR7T2 21APR72 2830172 15SEP72 OTFEB?& 15FEBI7S 0730L75 PROG ID oe 
EC BO. 818693 818395 577058 818397 572208 572250 571781 PAGE 6 . EC BO. 818693 818395 577058 818397 572206 $72250 571781 PAGE 
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PART NO. 2563494 IBS SAINTENANCE DIAGNOSTIC PROGRAS PART OO. 2588898 | 
PAGE 7 PAGE 7a 
8716 3270 REQUEST FOR TESTS (RFIS)--SECTICH 1-- 8716 3270 REQUEST FOR TESTS (RFTS)--SECTION 1-- 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERE LOC OBJECT CODE ADDB STAT SOURCE STATEMENT 
1267 19F4 1268 805 pc AL2 (ADUMS8) STATION 873 8 
1269 19DE 126A 806 pc AL2 (ATANDR) 1337 Co 02 1621 18D8 874 CLC START¢11(3),HEADER  SOK,%,R8 
126B F2 87 66 807 J CkswW 133D F2 01 2D 875 JUNE CKKRFT 
8ca 1340 OC 01 1A0B 1626 876 AVC SSSAVE (2) , START e¢16 SAVE S&S 
126E 809 DOREC EQU * COMF HERE POR THE RECEIVE 1346 38 80 1I9AE 877 Tha ODTOFT, ASCII 
126E 3a 01 1307 810 SBN SWITCH,X*01° SEND EOT 138A F2 90 06 878 JP BXLTE 
1272 cO 87 1137 811 B $EOT 134D CO 87 1026 879 B XLATE FORCE XLATE 
1276 3C FPF 1B8B 812 MMVI SNOTIM,X*PP® BYPASS THE TIMEOUT MESSAGE 1351 7A0S 1352 880 pc AL2 (SSSAVE-2) TO EBCDIC 
127A 3C 1E 19AD 813 aVvI C16,30 ALLOW 90 SEC FOR THE RESPONSE 1353 CC 87 021E 861 NXLTE B UNPACK UNPACK 
814 1357 02 1357 6882 Dc XL1*O028¢ S&S 
127E CO 87 1EC3 815 RECAGN B $SIO. ISSUE 1358 1ACB 1359 683 pc AL2 (SSSAYE) FOR 
1282 19F6 1283 816 DC AL2 (ADUS1) THE 135A 192P 135B 884 pc AL2 (8SG03) PRINTING 
7284 1400 1285 817 Dc AL2 (ZE&Q) RECEIVE 135¢c cO 87 O27A 885 B PRINT PRIUT 
1286 19F4 1287 818 pc AL2 (ADUM8) COSSAND 1360 C2 1360 886 pc XL1¢°cz* SENSE 
1288 1304 1289 819 Dc AL2 (AREC) 1361 18 136% 9887 pc IL1*2a¢ AND 
126A 38 &0 1307 820 TBN SWITCH, X*4O?# SHOULD TIMEOUT 1362 192P 1363 888 ne AL2 (2SG03) STATUS 
128E F2 10 09 821 IT XMTAO BE BYPASSED? 1364 8704 1365 889 pc XL2*8704¢ 
1291 Ob O00 19BA 18D0 822 CLC DUMMY (1) ,ENQ WAS ENQ RECEIVED 1366 CO 87 CDC 8390 B STRPET PRINT XST AND RCV DATA 
1297 F2 01 19 823 JNE GOGOGO 136A F2 87 D2 8$1 J CER1 
129A CO 87 111F 824 XBTAO B CLETR : 892 * 
129E OC 01 1617 18C3 825 AYC START¢1(2) , ACKO TRANSAIT 136D OD 02 1621 18D5 893 CKKRFT CLC START¢11 (3) ,TSTR IP &8FYT (SOB % /) 
12A4% CO 87 1EC3 826 B $sIo ACKO 1373 P2 01 1B 894 JRE CKKSTX PRESS£D, GO TO WEXT ROUTISE 
12A8 19DA 1249 827 pc AL2 (ASTART) 1376 38 10 OAOP 895 TBN TRAODT, X*708 IP SWITCHED 
T2AA 19E2 72AB 828 DC AL2 (START2) 137a CO 90 0216 896 BF LINK 
12AC 19DC 12AD 829 boc AL2 ({ASTOP) 137E cO 87 1176 897 RACK? 8B SACK1 RESET TEST REQUEST 
T2AE I9DE 12aF 830 DC AL2 @ATANDR) 898 
12B90 F2 87 15 831 J NOTSE CONTINUE 1382 OD 00 19BC 78D1 899 CcLe DUMMY¢2 (1), E0T EXPECT Eot ‘ 
12B3 38 20 1B86 832 GOGOGO TBN SERFLG ,X*20° WAS THE TIMEOUT RECEIVED? 1388 CO 81 0216 900 BE LINK TO RESET | 
12B7 F2 90 OE 833 JF HOTHE 138c CO 87 ICDC 901 B STERPNT 
T2BA OF 00 19AD 19055 834 SLC C1641) ,ONE REPEAT FOR 930 SEC 1390 CO 87 137E 902 3 RACK? 
42C0 CO 01 127E 835 BN RECAGH 903 * 
12C4 CO 87 132% 836 B EDISP PRINT NO INTERRUPT AFTER ONE MIB 1396 OD 00 161F 18CB 908 CKKSTX CLC START#9 (1) ,STX START OF 
12C8 OC 03 19Co 1618 837 NOTHE AVC DUMMY¢12 (4) ,START45 MGVE SOH &% XX FIELD 139A F2 07 SA 905 JHE  CKKECT TEXT? 
12CE OC C1 19CA 161D 838 SVC DUMMY*16 (2) ,START¢7 HOVE IN SSO AND SS1 139D OD 00 1622 18FA 906 CLC START412 (1) ,CHCL WAS CANCEL 
12D4 38 80 1307 839 CKSW TBN SWITCH ,X*s0* SHCULD DATA 13A3 FP2 81 OA $07 JZ *413 DESIRED? 
12D8 F2 90 Ic 840 JF ENPOLL-8 BE SOVED TO 1346 OD OO 1620 148Fa 908 CLC START¢ 10 (1) ,CHCL 
12DB 38 10 OAOF 841 TBN TRAUDT, X*10* SWITCHED? T3acC CO 01 1407 904 BRE REPPOL 
12DPF F2 90 OF 842 JF? CKSS 13B0 38 10 OaOF 910 TEN TRHOUDT, X° 108 SUITCHED 
12E2 OC 03 1622 1618 843 AVC START#12 (4) ,START#5 SAVE If 13B4 F2 90 OB 914 JF e214 NETWORK? 
12E8 OC 01 1626 161D eay ayvc START¢16 (2) , START+7 CORRECT 13B7 CO &7 1176 912 B SACK? RESPOND 
12EE F2 87 06 845 3 ENPOLL-8 ORDER 13BB CO 87 11D0 913 B PPENQ EWQ 
12F71 0C 11 1627 19cB 846 CKSS NYC START¢17 (18) , DUMNY +17 THE -START=- FIELD 13BF F2 87 22 914 z XATRST GO RESET KEYBOARD 
12F7 3c 00 1307 847 AVI SWITCH ,O RESET S#ITCH 13C2 0C 03 1A19 1882 915 avc SELECT<-3 (4) , ADRSEL=-1 
12FB 3c 40 1A09 848 SVI SSSAVE-2,X*&0* ALLOW TO RETRANSLATE 13C8 CO 87 1026 916 B XLATE TRANSLATE TO 
12FF cO 87 0000 849 ENPOLL B Rut 13CcC 1A11 13CD $17 pc AL2 (SELECT-11) CORRECT CODE 
850 13CE CO 87 111F $18 B CLRIE CLEAR T-R FIELD 
1303 8102 1304 851 AREC pe XL2°81G62¢ 13D2 GC 08 161E TA1A 919 AVC START¢8 (9) ,SELECT-2 OSE CORRECT SELECT SEQUENCE. 
71305 8402 1306 852 SACAL pc XL2* 88029 920 
1307 00 1307 853 SWITCH DC XIL1*00* 13D8 CO 87 1£C3 921 B $s1Io TRARSHIT 
854 *** END OF EXPANSION ¥*« 13DC 19DA 13DB 922 pc AL2 (ASTABT) SELECT 
855 «« I3DE 1920 13DPF 923 pc AL 2 (START6) 
856 * THIS SUBROUTINE IS USED TC SEE IF TAE RFT KEY HAS BEER 13E0 19DC 1321 928 dpc AL2 (ASTOP) 
857 ** PRESSED--IF IT HAS, NEXT ROUTINE IS STARTED 13E2 19DE 13E3 925 Dc AL2 (ATANDR) T-R 
1308 858 CERSPYN EQU * 326 * 
1308 34 08 tua 859 St ENDCER+3, ARR SAVE 13E4 CO 87 111F 927 XMTRST B CLRI® CLEAR T-R FIELD 
130C 34 01 1442 860 ST CER143,XR1 REGISTERS 13E8 OC 04 167A 1903 928 AVC START+¢4 (5) ,RBSTKBD+3 
1310 34 02 1486 861 ST CER2+3,XR2 13EE cO 87 1EC3 929 B $SIO .. TRANSSIT 
1314 3C 18 19AD 862 AVI C16,24 SET FOR WAITING 90 SECONDS 13F2 19DA 13F3 930 DC AL 2 (ASTART) RESET 
1318 OF 00 19AD 19D5 863 REPPL1 SLC C16 (1) ,CNE T3F4 19586 13F5 931 pc AL2 (ST&RT5) KEYBOARD 
131E F2 01 OF 864 JNZ REPP1 13F6 19DC 13#7 932 bc AL2 (BSTOP) 
1321 CO 87 O21A 665 NDISP 8B PRINT PRINT 13F8 19DE 13F9 933 oc AL2 (ATABDR) 
1325 46 1325 866 pce XL 1° 46* NO INTERRUPT 13PA 3c 01 #1307 934 BVI SWITCH, x*04° 
1326 28 1326 867 bc IL1*4Q* AFTER ONE NIN- 13FE CO 87 1137 935 B S$EOT XT EOT TO ALLOW DATA ERTRY 
1327 1948 1328 868 pe AL2 (ASGO0A) NEXT DISPLAY 1402 CO 87 022A 936 B LOAD LOAD BEXT 
1329 8742 132A 869 pe XL2"*87A2° WILL BEGIN 1406 40 18406 937 pc XIL1*age SECTION (ABHORMAL TERMINATIO“N) 
7328 CO 87 0216 870 B LINK GO TO BEXT ROUTINE 938 * , 
132F 34 80 1307 871 REPP1 SBN SWITCH, X*80# SET PLAG POR MOVING POLL DATA 1407 OC 02 19CE 19D2 939 REPPOL HYC COUNTE (3) ,WAITS Gait 
1333 cO 87 1238 872 B POLL DO THE POLL 140D OD FF 140D 140D 940 W4HSEC CLC * (256) .# FouR 
DATE O1MAR72 Z21APB72 24J0L72 T5SEP72 O1PEBTS 15FEB75 07 JUL75 PROG ID 871-6 DATE O1MART2 21APEB72 28 30L72 1SSEP72 O1PEB?S 1S PEB75 O7IULT5 PROG =D 871-6 
EC WO. 818693 818395 577058 818397 572208 572250 571781 PAGE 7 EC 30. 818693 818395 £77058 818397 5722068 572250 571781 PAGE 7a 
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7588494: IBS MAINTENANCE DIAGNOSTIC PFSCGBAB PART BO. 2588898 : 
PAGE 8 P2GE SA 
8716 3270 REQUEST FOR TESTS (RFTS)--SECTION 1-- 8716 3270 REQUEST POR TESTS (RFTS)--SECTION 1-- 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATEAENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATESENT 
1413 OD 3A 1813 1413 941 CLC *(59),# SECONDS 1400 11 Vac 1005 DC XL1i°418 SBA 
1419 OF 02 19CE 19D5 942 SLC COUNTR(3) ,ONE ; . 16A1 CO7P 14A2 1006 pc XL2*CO7Pe ADB--639 
141F CO 014 140D 943 BHE #@4&SEC 14643 C8C8 1A4 1007 pc CL2° HH? 
1423 CO 87 1318 944 B REPPL1 1008 * 
945 « THA5 11 14A5 1069 DC XL1°998 SBA 
1427 OD 00 161F 18D1 946 CKKEOT CLC START#9(1} ,EOT WAS EOT 14A6 4B4P 14A7 1010 pc XL2*apare ADR--719 
142D CO 81 1407 947 BE REPPOL RESPONSE? 14A8 C8C48 1439 1011 DC CL2° HH? 
948 * ERROR RESPONSE 1012 * 
1431 CO 87 O21A 949 B PRINT PRINT TGAA 13 Waa 1013 Dc XL17°178 SBA 
1435 ¢c2 1435 950 pc £L1¢cze INCORRECT 14AB 4C5SP AC 1014 pc XL274cSFe ADR--799 
1436 12 1436 951 pc IL1*188 RESPONSE 14AD CB8CB AE 1015 pc CL2*HH* 
14837 1970 1438 952 Dc AL2 (MSG06) TO THE POLL 1016 * 
1439 8705 143A 953 pc XL2°8705° : TQAF 11 14AF 1017 pe XL1*44¢ SBA 
143B CO 87 ICDC 954 B STRENT 14B0 4CE7 14B1 1018 pc XL2*ucz7¢ ADR--807 
ess « 14B2 Sc 14B2 1019 pc CLitae 
143F C2 01 0000 956 CER1 LA %-*, XB RESTORE 1020 * 
1443 C2 02 0000 957 CER2 LA *-*% XR2 REGISTERS 14B3 1D40 1484 1021 DC XL2* 1D80e UMPEOTECTED, WORMAL INTENSITY 
1447 CO 87 0000 958 ENDCER B hex RETURN 14B5 13 1WBS 1022 pc XL1#43¢ IMSERT CURSOR 
$59 SEERERERC DERE RERSSERE SHEERS SE SEER EAT EES HERES EEMES EEK EREEE CEE ER ROSA EEE T&B6 EXDSD7DIDEE3C5SC3 C9 1023 oc CL20*UNPROTECTED ARFA : 
960 * TUBE £3C5C840C1D9C5C1 1023 
961 * HFSSAGES FOR TEST 4& 14C6 40404040 1023 
962 * 14CA 1D60 WUCE 1024 pc XL2°1D60° PROTECTED, FORMAL INTEBSITY 
144B 00 144B 963 DC XL1#*¢CQ8 CONTROL CHARACTER 146CC 5C 18CC 1025 DC CLitse 
144C 964 ORDS Equ) * ORDERS FOR TEST & BEGIN HERE i 1026 = 
148C 0227 144D 965 Dc XL2°02278 STX-ESC T4cD 11 14CD 1027 Dc XLV17¢ SBA 
144 PS IWME 966 DC XL1°P5& CHD-ERASE, WRITE 1SCE aD6rP 18CF 1026 DC XL2°&D6P* ADR--879 
WSOP TP 1G4P S67 pc XL1i‘*7Pe WCC ~ SOUND ALARH/RESTORE KEYBOARD? | 16D0 c8ce 14D1 1029 DC CL2*su® ; 
968 * START PRINT/SO CHARS PER LINE | 1030 * 
1450 3ccC150 1452 969 pc XL3*3CC150° REPEAT TO ADDR | W4D2 1% Mp2 1031 pc XL1°418 SBA i 
1453 CS 1453 970 DC CL1*E* 80 E CHARACTERS 14D3 4En7 WD 1032 DC XL2*4ED7* ADE--919 
1454 cB 14654 977 DC CL1*H® CHAR 81=H ; 148D5 D6D6 14D6 1033 DC CL2*00* 
972 * i 10348 © 
1455 11 1455 973 Dc XL1¢117° SBA i WaD7 11 14D7 1035 DC XL1°11¢ SBA 
1456 C25P 1457 9748 pc XL2°c25F°¢ ADE--159 14D8 4WETP 14D9 1936 DC XL2*8E7F* ADRB--959 
7458 C8CBe 1459 975 DC CL2* wH* ; 14DA C&C8 T4DB 1037 DC CL2° HH® 
976 * i 1038 * 
445A 11 445A 977 pc xXL1°918 SBA : 1apC 11 TapDc 1039 Dc XL1*192 SBA 
145B C36F 145c 978 Dc XL2*C36F® ADB--239 ; T4DD FET I8DE 1040 pc XL2* SPE7* ADEB--999 
145D c8ce 145E 979 pc CL2* HH® : I4DP D6éD6 14E0 1041 Dc CL2*o00# 
980 * : 1042 ® 
44S5P 11 145F 981 pc XL1* 118 SBA : 14E1 11 18ET 1043 pc XL1°19°0 SBA 
1460 Ca7P 1461 982 pe XL2*ca7rFe ADR~-319 : W4E2 SOuP W4EB3 1044 Dc XL2*S0aF® ADR--1039 
1462 cacsa 1463 983 pec CL2*HE®* : 14ER C8C8 WES 1045 Dc CL2* HR® 
984u * 1046 * 
146% 11 1464 985 DC XL1°11¢ SBA : 14P6 11 18E6 1087 pc XL 78.18 SBA 
1465 C64PF 1466 986 DC XL2*c64Fe ADB--399 14E7 DISP WES 1048 DC XL2*p15¥F°* ADR--£119 
1467 c8C8 1468 987 pc CL2° HH® TaE9 C8&C8 142A 1049 pc CL2* BH® 
988 1050 # 
1469 1% 1469 989 pe XL1°4178 SBA THEB 11 14EB 1051 pC IL 1*47¢ SBA 
146A C75r 186B 990 pc XL2°C75F* ADR--479 14SEC D26P WED 1052 DC XL2*p26¥F° ADR~--1199 
1486C CB8C8 146D 991 pc CL2° HH® T4EE cécs 18EP 1053 pc CL2* BR® 
992 * ; 1054 
TH6E 11 146E 993 pe 1L1°178 SBA é 14F0 11 14FO0 1055 DC XL1°478 SBa 
146F C7ES 1470 99% rc IL2°C7E5¢ ADR--485 : W4P1 D37F 14F2 7056 pc XL2*p37P* ADR--1279 
1471 EICSE2ZE340D7C1E3 148E 995 pc CL30°TEST PATTERN FOR 3275-2/3277-2° 14F3 C8CB WEY 1057 DC CL2* BH® 
1479 E3C5D9r540CcEDE DS 995 ! 1058 * 
1481 8OF3F2P7F560F261 995 - : : 1aP5 11 14PS 1059 Dc XL1°11? SBA 
1469 P3P2F7F760F2 995 i 14F6 1060 EFOR3 EQOo *# 
996 * : 18P6 DS4P 14F7 1061 DC IL2*p5are ADE--1359 
. W4SF 14 146P 997 pc XL1° 118 SBA ; 14F8 C8CB 14P9 1062 pc CL2° BH® 
* 1490 C86F 1491 998 Dc XL2*C86F* ADB--559 ‘ 1063 * 
14892 C&C8 1493 999 pc CL2* HH* i 14FA 11 14PA 106% pc XL1°198 SBA 
1000 ‘ T4PB D6SP W4PC 1065 DC 1L2° p65F° ADR--4439 
1494 11 1494 1001 Dc XL1¢418 SBA ‘ 14FPD C8CB 1UPE 1066 pc CL2*HH® 
1495 C87E 1496 1002 pc XL2*Ce7E* ADB--574 $ 1067 * 
1497 CID3ICSCTIDSDUCSDS 189F 1003 Dc CL9O*ALIGNBENT® F QPP 11 14PP 1068 oc XL1°99¢ ~6A 
149F £3 1003 ; 1500 D76F 1501 41069 pc XL2*D76F¢ ADR--1519 
1004 * 1502 c8cs 1503 1070 pc CL2° aH? 
DATE O1MER72 27A2R72 2430L72 15SEP72 OIFEBT74 ISPEBTS C7ITL75 PROG ID 871-6: DATE O1MAR72 21AaPR72 26.301.72 I5SEP72 O1FPEB?S W5FEBTS O73UL75S «PROG ID 
EC NO. 818693 818395 577058 818337 572208 572250 571781 PAGE @ EC KO. 818693 818395 5776 8 818397 572208 572250 571781 PAGE a 
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CRCCC COC OC OOOO OOOH COCO OOOO OOOO OO L CC® 


IBM MAINTENANCE DIAGNOSTIC PEOGRAS 


i 


4 


PART NO. 2563894 IBM MAINTZNANCE DIAGNOSTIC PROGRAS PART 80. 2580898 - 
PAGE 9 PAGE 9h 
8716 3270 REQUEST FOR TESTS (BFIS)--SECTICH 1-- 8716 3270 REQUEST FOR TESTS (RETS)--SECTION 1-- 
} 
{ ERR LOC OBJECT CODE ADDB STMT SOURCE STATENENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMEST 
{ 1071 # 1590 C3FO0 1597 1431 oc XL2*cC3F0* ADR~-280 
1504 11 1504 1072 pc XL1°118 SBA 1592 IDES 1593 1132 DC XL2*1DE8* PROTECTED, HIGH INTENSITY 
1505 D87F 1506 1073 Dc XL2*D87F? ADR~-1599 1594 4¥F7C7B5B6C 1598 1133 pc CLS*;aesxe SPECIAL 
1507 c8C8 1508 1074 pc CL2* HH® 1599 4A 1599 1134 pc XL1¢4a* CHABACTERS (CEST SIGH) 
1075 * 159A SOSCUDSD6EDUE 159F 1135 pc CL6*E*()_ +8 TEST 
; 1509 11 15609 1076 oc XL1°17¢ SBA 75a0 Sa 15a0 1136 DC XL17°Sa* * (EXCLAMATION) 
i 150A SAGF 150B 1077 pc XL2*SaA4P* ADR--1679 ISA? 7A 1SA1 1137 pc CL1*:¢ + 
150C CS8Cc8 _  150D 1078 pc CL2°HH® 15A2 7F 1542 1138 pc XL1°7P° ° (QUOTE) 
— 1079 @ 1SA3 SC6EGFGO7ESFSE7D 15AB 71139 pc CLO* <> Poans et ye * 
\ 150E 11 150E 1080 pc XL1¢11¢ SBA TSAB 61 1139 
150F SBSF 1510 1081 DC —- XL2°SBSF* ADR-~1759 1140 ¢ 
1511 Cc8C8 1512 1082 pc CL2* BH® 15ac 1DF8 ISAD 1141 pc XL2°1DF8 PROTECTED, HIGH INTENSITY 
1083 * ISAE FPOPTF2F3P4FSP6F7 15BB 1142 pc CL14°0123456789,.-A* WUSERIC FIELD 
1513 11 1543 1084 pe XL1¢°11¢ SBA 15B6 F8F96B4B60C1I 1182 
1£14 SC6P 1515 1085 DC YL2*5c6F® ADB--1839 1143 * 
1516 c8 1516 1086 pc CL1°H° I5BC 11 ISBC 1144 pc XL1°11¢ SBA 
1087 © 15BD C540 15BE 1145 pc XL2*c540° ADR--320 
1517 3c4040 1519 1088 pc XL3* 3C8040* LAST LINE = 80° 15BP 1DC8 15CO 1146 pc XL2*1Dc8° UNPROTECTED, HIGH INTENSITY 
151a C5 i574 1089 pc CL1°E* CHARS OF E*S t5C1 C3D6D7EB40CIC2D6 15D8 1147 DC CL28*COPY ABOVE IK THIS LINE * INSTRUCTIONS TO CONSOLE 
1090 * 15C9 E5CS40C9D540E3CB 1147 
151B 11 151B 1091 pc XL1°41¢ SBA 15D1 C9E240D3C9D5C540 1147 
151C SCES 151D 1092 pc XL2*5CE5* ADR--1829 15D9 1DD8 ISDA 1148 pc XL2° 1DDS® NCNERSC,UNPROTECTED, HIGH INTENSITY 
I51E 1DE8 151F 1093 pc XL2*1DE8* SF-ATTR HIGH INT/ PROTECTED 1149 * 
1520 c1c4D960 1523 10948 pc CL&*ADR-* ADDR TO FOLLOW TSDB 11 15DB 1150 Dc XL1¢11° SBA 
1524 00000000 1527 1095 ay pc XL& *00000000° STORAGE AREA FOR SEL ADDR 15DC C5E8 1SDD 1151 BC XL2°CSE8* ADBR--360 
1528 1D60 1529 1096 pc XL2*1D60° SP-ATTE NORMAL INT/PROTECTED , > ISDE 1D60 SDF 1152 DC XL2*1D60° PROTECTED, NORMAL INTENSITY 
1097 * 2153 ® 
| 152a 03 152A 1098 EORDS oC XL1*03¢ BTX 15E0 11 SEO 1158 DC xLie1t¢ SBA i 
OODF 1099 ETEXTS EQU *-ORDU LENGTH OF MESSAGE 4 1521 C650 WSEz 1155 pc XL2*c650° ADR--800 i 
| 152B FRFF 152c 1100 pc XL2¢ PFPF® END OF HESSAGE 15E3 1DES 15E4W 1156 oc XL2*°1DE8¢ PROTECTED, NORMAL INTENSITY, SELECTOR 
1101 # 1157 # PEs 
1102 * 15E5 6FE2C5D340D7C5D5 15F1 1158 pc CL13°?SEL P2N TEST* DEFINE SEL PEM AREA 
1103 * MESSAGES FOR TEST 2 TSED 40E3C5E2E3 1158 
11048 @ 15F2 000000 15P4 1159 Dc XL3*000000° 3 NULL CHARACTERS 
452D 00 452D 1105 pc XL1*00¢ CONTROL CHARACTER 15F5 IDES ISF6 4160 pc XL2* 1DEB* PROTECTED, HIGH INTENSITY,SELECTOR PEW 
IS2E 1166 ORD2 Eou * BEGIN ORDERS FOR TEST 2 15P7 6EE2ZCSDI4NOLD7ICSDS 1603 1161 DC CLI3Z3">SEL PEN TEST® DEFINE SEL PEN PIELD 
152E 0227 152F 1107 pc XL2°0227°* STX-ESC ISPF SOE3C5SE2E3 1161 
| 1530 FS 1530 1108 pc XL1*P5¢ CMD--ERASE, WRITE 1162 * 
1531 SP 1531 1109 pc XL1° 5SFe ®CC SOUND ALARS/RESTORE KEYBOARD/ 1604 11 1604 1163 DC XL1*91* SBA 
i 1110 * START PRINT/4O CHAR LINE 1605 C725 1606 11648 pc XL2*C7D6° ADB--&70 
| 1532 11 1532 1111 Dc XL1°478 SBA 3 1165 # os 
i 1533 C150 1534 1112 pc XL2°C150# ADR--80 1607 1DE8 1608 1166 pc XL2*1DE8* SP-ATTE HIGH INT/ PROTECTED 
1535 1D60 1536 1113 pc XL2*1D60° PROTECTED, NORMAL INTENSITY 1609 C1C4D960 160C 1167 DC CL4* ADE-* 
1537 CiIC2c3C4CSC6C7C8 1551 11146 pec CL27* ABCDEFGHIJKLBENOPQRSTUVWXYZ © BEGIN MESSAGE 160D 00000000 1610 1168 A2 DC XL4* 00000000" MULLS FOR SEL ADDR 
153F C9D1D2D3D4 DSD6D7 1118 1611 IDES 1612 1169 - pe XL2*1DE8® SP-ATTR HIGH INT/PROTECTED * 
1547 D8D9EZE3E4 ESE6E7 1114 1613 03 1613 1170 EORD2 pc XL1*03¢ ETX * 
154PF EBBEQNO 1174 OOE6 1171 ETEST2 EQU ¥*-ORD2 LENGTA OF TEST 2 s 
. 1115 * . 1614 FFPP 1615 1172 Dc XL2¢°PPFF* EWD Ge MESSACE 
1552 Ip6éc 1553 1116 pc XL2* 1D6c* PROTECTED, KON DISPLAY : L172 8868868884208 095888 SS SSSSE NEE OEEEEEESS HE EEEEEESES 640408488 048 4ERRESEREE 
1554 D5D6D540C4C9E2D7 155E 1117 pc CL11*NON DISPLAY® FOUND IM NON-DISPLAY AREA i 1174 * 
' 155C D3C1E8 1117 : 1175 * MESSAGES POk TEST 3 
i 1118 * | 1176 2 
' 155F 11 155P 1119 pc XL1°41° SBA 1616 1177 START EQD # 
1560 C260 1561 1120 pc XL2°C260° ADR--160 1616 00 1616 7178 Dc XL1°00° CONTROL CHARACTER 
1562 1D40 1563 1121 pc XL2°1D40° UNPROTECTED, NORMAL INTENSITY 1647 1179 ORD3 EGU ® 
} 1564 13 4564 1122 pc XL 19138 INSERT CURSOR 1617 0227 1618 1180 pc XL2°0227¢ STX-ESC 
1565 C3D6D7E840C1IC2D6 157F 1123 pc CL27*COPY ABOVE IN THIS LINP ° 1619 P5 1619 1161 pc XL1° P5° CHD--ERASE, WRITE 
156D E5C5S40C9D540E3C8 1123 eared ' 161A SP 167A 1182 pc XL1¢SPe HALT oe rae wee 
: 1575 C9E240D3C9D5C5480 41123 i 1183 
157D 404040 1123 : 161B 11 161B 11848 pc XL1*11¢ SBA 
1124 * 161C 4040 161D 1185 Dc XL2*4080* ADR--0 
1580 1D4&0 1581 1125 pe XL2° 1D40* NORMAL INT/ UNPROTECTED : 161E 3c 161E 1186 bc XIL1¢3c* RA - REPEAT TO ADDR 
1582 COIDSE2C5D9E380C3 158A 1126 pc CLO*INSERT CK* 161F 4O0E8 1620 1187 pc XL2*a0ES* ADDR 
158A D2 1126 1621 cS 1621 1188 pc CL1* EB CHAR TO BE REPEATED 
158B 0C00 158C 1127 oc XL2*0000° 2 NULL CHARACTERS i 1622 C8 1622 1189 pc CL1°H® 
| 1128 * i 1180 * 
158D 1D60 15BE 1129 pc XL2°1D60* PROTECTED, NORMAL INTENSITY 1623 11 1623 119% DC XL1°918 ssa 
158PF 11 1587 1130 pc XL7¢441¢ SBA i 16248 C14uP 1625 1192 pc XL2°C14PF¢ ADR--79 
t ' = 
DATE 01MAR72 21APR72 24JUL72 15S2P72 O1PEBT4 15PEBI75 O7JUL75 PROG ID 871-6; DATE O1MAB72 21APR72 24JUL72 1SSEP72 O1lFEB78 TSPEBIS O7JUL75 PROG ID 671-6 
EC NO. 318693 818395 577058 818397 572208 572250 571781 FAGE 9 EC NO. 818693 818395 577058 818397 572208 572250 571781 PAGE 9a 


ahd ict tida tenance AcE tent toe 
ee ne 


IBA MAINTZNANCE DIAGNOSTIC PEOGRAA 


8716 3270 REQUEST FOR TESTS 

ERE LOC OSJECT CODE ADDR 
1626 C8cB 1627 
1628 11 1626 
1629 CIP7 162A 
162B C8cB 162c 
162D 11 162D 
162E C25P 16 2F 
1630 cece 1631 
1632 11 1632 
1633 C3C7 1634 
1635 cacs 1636 
1637 11 1637 
1638 C36F 1639 
163A C8C8 163B 
163c 11 163¢ 
163D cup? 163E 
163F C8C8 1640 
1641 17 1644 
1642 C47F 1643 
1644 C8CB 1645 
1646 11 1646 
1647 CSE? 1648 
1649 C8CB 164A 
164B 11 1643 
T64C C6UF 164D 
164E cece 164F 
1650 11 1650 
1651 C6F7 1652 
1653 cB 1653 
1654 11 1654 
1655 C35B 1656 
1657 D6éD6 1658 

‘ 1659 114 1659 

165& C4C3 165B 
165C D6D6 165D 
165E 11 1652 
165F CeSp 1660 
1661 E3CSEZE340D7C1E3 1672 
1669 2B3C5N9D540C6D6 D9 
1671 SOF3F2F7F760F161 
1679 P3F2F7FS60P1 
167F 41 167F 
1680 CSUF 1681 
1682 CID3C9C7TDSLYCSDS 16BA 
168A E3 
168B 11 dade ats 168B 
168C CSFO 168D 
168E 5c 168E 
168F 1D40 1690 
1691 13 1691 
1692 ESDSD7PIDEE3C5C3 16A1 
IGOR E3CS5CHUCCHCTEZCI 
16A2 11 16Az 

DATE OTMAR7T2 2TAPR72 

EC NO. 818693 818395 


(8FTS)--SECTICH 1-- 


STMT SOURCE STATESENT 


1193 
1194 
1195 
1796 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1241 
1212 
1213 
1214 
1215 
1216 
1247 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
123% 
1232 
1233 
12348 
1235 
1236 
1237 
1238 
1239 
1280 
1244 
12a1 
F241 
i241 
1242 
1243 
1248 
1245 
1285 
1246 
1247 
1246 
1249 
1250 
1251 
4252 
1283 
¥253 
1254 
1255 


2450L72 
577058 


bc 


bc 
DC 
dC 


DC 
bc 
Dc 


DC 
bc 
Dc 


pc 
pe 
pe 


bc 
bc 
DBC 


bc 
bc 
DC 


Dc 
bc 
bc 


Bc 
DC 
DC 


Bc 
bec 
DC 


De 
BC 
bc 


bc 
be 
DC 


De 
oc 
DC 


Dc 
pe 
pc 


oc 
bc 
DC 


oc 


DC 
bc 


be 


ISSEP72 
818397 


CL2°HH® 


XL1°148 
XL2°*ctF7* 
CL2°HH® 


XL2°4t? 
XL2°*C25F* 
CL2°HH* 


XLUSit° 
XL2°C3C7# 
CL2°HE® 


XL1*° 478 
XL2*C36P° 
CL2°HH® 


XLi¢dte 
ZL2*cap7* 
CL2* HH® 


XL1°47° 
XL2*Cu7F# 
CL2* HH® 


XLV°tte 
AL2*CSE7® 
CL2* HH* 


XL1° 748 
XL2*C64uF®* 
CL2° RHE 


XLY¢ 118 
XL2‘*C6F7® 
CLt*H® 


XLV°418 
ZXL2*C35B¢ 
CL2*o0c¢ 


xL4°11¢ 
XL2*°cac3* 
CL2*0G* 


XL1° 91° 
XL2*caspe 


CL30°TEST PATTERN POR 3277~1/3275-18 


XLd°94* 
EIL2*cSure 


CL9* ALIGHHENT® 


XLi¢ 748 
XL2‘°C5SFO* 
CLItes 


KL2°1D40* 
XL4*13¢ 


CLIG*UNPROTECTED DATA® 


XL1°418 


O1PERTS4 
572208 


IS FEBIS 


PART BO. 7588494 
PAGE 16 
SBA 
ADR=--119 
SBa 
ADB--159 
SBA 
ADR~-199 
SBE 
LDR--239 
SBA 
RDR--279 
SBA 
ADR--319 
SBA 
ADR--359 
SBA 
ADB--399 
SBA 
ADR<--4 39 
SBA 
ADR--219 
SBR 
ADR--259 
SBA 
ADB--285 
TEST #H™SSAGE 

SBA 
ADR-~335 
SBA 
ADR--368 
SP-ATTR UPR,NI,NSP,369 
ZNSERT CURSOR 
SBA 

O7JUL75 PROG ID 877-6 

571781 PAGE 10 


IBM HAIKTENANCE DIAGHUSTIC PROGRAMS 


8716 
ERR LOC 


16A3 
16a5 
16A7 


1648 
1629 
T6AB 
t6ac 
16AE 
16AP 


16B0 
16B1 
16B3 
16B5 
16B9 
16BD 
16OBP 


76c0 
16C2 
16CA 
16D2 
T6DA 
16E2 
16E3 
T6EB 
16F3 
16PB 
1703 
1768 
1713 
W17 
T71a 


171B 


17ic 
T71E 
171F 


4720 
172% 
1723 
T72B 
1733 


T738 
1735 
173D 
17485 
1748D 
1755 
175D 


175P 
1760 
1762 
17648 
1772 
T77A 


1782 


DATE 
EC WO. 


OBJECT CODE 


C6C6 1604 1256 pe XL2°C6cé6® 
1D60 1606 1257 Dc XL2*1D60° 
5c 1647 1258 DC CCL AS ee 
1259 * 
11 1648 1260 De XL1°71° 
C6FB 16AA 1261 Dc XL2°C6F8¢ 
3c 16AB 1262 pc XL1°3c¢® 
C75P 1AD 1263 DC XL2'C75F¢ 
cs 1OAE 1264 DC —«- CLA EF 
cs 16AF 1265 DC = ss CL1* Be 
1266 * 
"1 16B0 1267 DC XL1°918 
C66D 16B2 1268 DC XL2*C66D°® 
1DE8 16B4 1269 DC XL2°1DE8* 
C1C4D960 16B8 1270 DC CL4*ADE-* 
90000000 16BC 1271 A3 DC XL4*00000000° 
1D60 16BE 1272 DC XL271D60* 
03 168F 1273 EORD3 1c XL 1°03¢ 
OOA9 1274 ETEXT3 ZQU  *-ORD3 
PFFP 16C1 1275 pc XL2°FPFP® 
P3F2P7FO40D9CSD8 1622 1276 BSGOT DC 
EUC SE2E340C6D6D9 1276 
SO EICSEZEIE26B40 1276 
E2C5C3E3C9D6D540 1276 
PI 1276 
DSD64CE2C5D3C5C3 1702 1277 KSGO7 DC 
£340D6D940D7 D6 D3 1277 
D340C1IC4CHD940CI 1277 
E5C 1C9D3C1C2D3C5 1277 
EICSC9E24ODUEGE2 1716 1278 BSGOB DC 
E340CZC540CSD5E3 1276 
c5D9c5c4 1278 
1719 1279 DS CL3 
171A 1280 STOP DS  CLi 
1281 # 
1282 
1283 * 
1284 # TEST BHESSAGES 
7285 * 
1286 
00 171B 1287 be 14 1*00° 
171C 1288 ORD1 ECU * 
0227 171D 1289 pc XL2*0227¢ 
PS 171E 1290 pc XLISFS* 
SP 171F 1291 Dc XL1¢5pe 
1292 * 
11 1720 1293 DC XLS 998 
40C6 1722 4294 pc XL2°80C6* 
E3CSEZER4ODICIEZ 1739 1295 DC 
E3CSD9D54GE2C5D8 1295 
E&C5DS5C3C9 DSC7 1295 
1296 2 
11 173A 1297 pc XLi*t1° 
C150 173C 1298 DC XL2°C150° 
PISSUOD7TDIC5EZE2 175E 1299 ie 
4OE3CSE2ZE340D9C5 1299 
DBEYCSE2ZE340E3D6 1299 
80C3C1D3D340D5C5 1299 : 
E7E3 1295 
1300 # 
1 175F 1301 Dc KL9*°99° 
C2E2 1761 1302 Dc XL2°C282° 
E2C5DSESCSDSE3C9 1781 1303 pc 
CID34OD7C 1E3F3C5 1303 
DIDSYBUOE2ZCSC3E3 1303 
CON6D5S4OE6CID3D3 1303 
1308 « 
11 1782 1305 DC «EL °478 
O1HART2 21APR72 2430L72 15SEP72 O1FEBT74 
818693 818395 577058 818397 572208 


3270 REQUEST POR TESTS (R2FTS)--SECTION 1-= 


ADDR STHT SOUBCE STATEMENT 


PART &O. 2588898 . 
PAGE 10a 


ADR--390 
SP-ATTBR PRO,NI,BSP 


SBA 

ADR--440 

RESEAT 

ADR--4879 

CHAR TO BE REPEATED 

E FOR LAST PLACE IN BUFFER 


SBA 

ADE--4 29 

SF-ATTR HIGH INT/PROTECTED 
ADDRESS TO POLLOW 

STORAGE AREA POR SELECTION ADDR 
SP-ATTR NORMAL INT/PROTECTED 
ETX 

LENGTH OF MESSAGE 3 

END OF SESSAGE 3 


CL33*°3270 REQUEST POR TESTS, SECT:OmN 1® 


CL32°WO SELECT OR POLL ADDK AVAILABLE® 


eR 


CL20°THIS MUST BE ENTERED® 


KERAEKSETTSESS ES KECSSE SAKES SEKBESESKESSSESESRLECEASK KSEE AMHKSE STSKEKA STEERS 


& 
* 
= 


SEREETEROEES HESAKSESSESELS EKEESKE SVS HESS SS SESTHELERS SE CSKETOSESSS SSS TSSS 


CL23*ZEST PATTERE SEQUERCING® 


CONTROL ‘CHARACTER 2 

BEGIN OKDERS #OR TEST 1 

STX-ESC 

CHD-ERASE, WRITE 

HCC SOUND ALARS/RESTORE KEXBOARD/ 
START PRIBT~-80 CHAE LIKE 

SBA 

ADDRESS--6 

BEGIE SESSAGE 


SBa 
ADDRBESS--806 


CL38°4. PRES" TEST REQUEST TO CALL HExT® 


SBA 
ADDRESS-~ 162 


CLIZ*SEQUEHTITAL PATTERN. SECTION WILL® 


15PEB75 
572250 


SBA 


PROG ID 871-6 
PAGE 10a 


C750L75 
574781 


i 


Pon gaint eSARS Laban AIAN EOE SA/ AE EOI YS NARA BOSAL RAS AESNEENE REBRANDED SERNA IBLE DEAE IL PRS BORRACHOS A LISLE RE SD AS ASKS SES AREER RMR HNN IRA PC tie ae 


IB8 MAINTENANCE DIAGNOSTIC PROGRAS 


8716 3270 REQUEST FOR TESTS 


ERR LOC 


1783 
V785 
178D 
1795 
179D 


179F 
T7A0 
VIA2 
T7AA 
T7B2 
T7BA 
172 


ICA 
17CB 
VICE 
17D5 
¥7DD 
4¥7=E5 
I7ED 


T7IF2 
17F3 


W7F5 
17F7 
V7FB 


VIFF 


1801 
1802 


1803 


1805 
1807 
1809 
4808 
180D 
480F 
1811 
1813 
7815 
1817 
1819 
181B 
181D 
181F 
1821 
1823 
1825 
18627 
1829 
1825 
182D 
182F 
1831 
1833 


DATE 


_ EC HO. 


see 


neg 


OBJECT CODE 


C3F2 


E3CS5D9LD4C9IES5CIE3 
CS40D6L540 D3C1E2 
E34#0D7C1E3E3C5D9 


D54B 


11 
c540 


P24B40D7D9SC5E2ZEZ 
8OC3ICTDSC3C5D34aD 
D6D94ODICTF25DzE3 
D6O4OCKCIEZC3DEDS 
DSCSC3IE340C3D7E4 


11 
C6D2 


CID5C440D3C5C1E5 
C54OD7IC1E3E3C5D9 
D540C6D69940 D6C6 
C660 D3C9DSC580E4 
E2CICTC54&B 


1 
C7D6 


IDES 
C1c4D960 
00000000 


1D80 


19 
03 


FYPP 


0202 
OF OF 
2718 
0303 
4411 
1313 
1D1D 
4020 
F030 
F131 
F232 
F333 
P4348 
F535 
7636 
P737 
F838 
F939 
cia 
C242 
C343 
cuasa 
c545 
C6486 


O1NAR72 
818693 


ADDR 


1784 
179E 


179F 
W7A1 
17c9 


TICA 
WCC 
W7P1 


17 F2 
17F4 


T7¥P6 
T7FA 
T7PE 


1800 


1801 
1802 


0027 
wOa 


1805 
1806 


1806 
1808 
180A 
180c 
180E 
18 10 
1812 
1814 
18 16 
1818 
Ita 
18%C 
18 1E 
18 20 
1822 
1828 
1826 
1828 
182A 
18 2c 
18 2E 
1830 
1832 
1838 


21APR72 
818395 


(RFTS)--SECTION 1-- 


STaT 


1306 
1307 
1307 
1307 
1307 
13C8 
1309 
1310 
1311 
1311 
1311 
1311 
1311 
4312 
1313 
1314 
1315 
9315 
1315 
1315 
4315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 


‘13489 


1350 
1351 
1352 
1353 
33548 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
4362 


SOURCE STATEMENT 


s 


EORD1 
* 


ETEXT1 
* 


* 
* 
* 
EBCTBL 
ASCTBL 
* 


2430L72 
577058 


Dc 
oe 


pc 


pc 


Dc 


oc 


oc 
bc 


DC 
DC 
pc 
DC 


pc 
Bc 


EQU 
pc 


TABLE FOR TRANSLATING LEGAL GRAPHICS BETWEEN EBCDIC AND USASCII 


EQU 
EQU 


Dc 
bc 
Det 
bc 
DC 
Dc 
pe 
pc 
bc 


ISSEP72 
818397 


XL2*C3F2°* 


PART HO. 
PAGE 


ADDRESS--242 


CL26*TERMIWATE ON LAST PATTERMW. * 


KL1°11¢ 
XL2*c540* 


SBA 
ADDRESS=--320 


CL46*2. PRESS CANCEL(OR PA2)TO DISCONNECT CPU* 


XLU°41° 
XL2*C6D2* 


SBA 
ADDRESS--402 


CL37°AND LEAVE PATTERN FOR OFF-LINE USAGE. * 


XL4° 118 
XL2"*C7D6* 


XL2* 1DE8* 
CL&*ADR-* 


XL4*00000000* 


XL2*1D40° 


XL1*19°¢ 
XL1°03° 


*-ORD1 
XL2°FFFP* 


2 
EBCTBL+1 


EBCJIC, ASCII 


XL2*0202° 
XL2°OFOF* 
XL2"271B* 
XL2*0303° 
XL2°911178 
XL2°1313¢ 
XLzZ*1Dtp¢ 
XL2*4020° 
XL2* F030° 
XL2°F131° 
XL2*F232° 
XL2*?333° 
IL2*P434° 
XL2°*F535° 
XL2°F636°* 
XL2*¥F737° 
XL2"*F838° 
XL 2* F939°8 
XL2°C14918 
XL2°C242* 
XL2*C343¢ 
ZL2°*caaae 
XL2*c54a5¢ 
XL2°C646* 


OFEB74 
572208 


ISPFEBTS 
572250 


SBA 
ADDRESS--4870 


SP-HIGH INTENSITY/PROTECTED 
ADDRESS OF DVC WILL FOLLOW 


rete poe 


2588494, 
Ww. 


RESERVE SPACE FOR SELECTION ADDR 


SF-NORMAL INT/UNPROTECTED 


ETX 


LENGTH OF TEST 1 
END OF HESSAGE 


CHARACTER 

STX 

PAD 

ESC 

ETX 

SBA 

DC3 - IC (INSERT CURSOR) 
START FLD (SF) 


SPaCce 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

c 

D 

E 

Fr 
0730L75 PROG ID 
571781 PAGE 


CPRSEEREE SESE ESEERSERERESES EERE E ES SESSESESEREEES OSE EEEES EERE RE SESE EES 


| 
a7i-6: 
WO 


IBM BAIWTENANCE DIAGNOSTIC PBOGRAB 


8716 


ERR LOC 


1835 
1837 
1839 
1838 
1863D 
183F 
1841 
1843 
1845 
1847 
1849 
184B 
184D 
184P 
1851 
1853 
1855 
1857 
1859 
1858 
185D 
185F 
1861 
1863 
1865 
1867 
1869 
186B 
186D 
186F 
1871 
1873 
1875 
1077 
1879 
187B 
187D 
187F 
1884 
1883 


3270 REQUEST FOR TESTS” 


OBJECT CODE 


C787 
caus 
C949 
DI4A 
D24B 
D3&C 
D&4aDd 
D54uz 
D64F 
D750 
D851 
D952 
£253 
£3548 
£355 
E556 
F657 
E758 
2859 
E95A 
1212 
0509 
3c18 
1019 
0000 
0101 
3704 
7P22 - 
SA5B 
SBZE 
&C3C 
4D28 
GE2B 
W221 
5026 
5a5D 
5524 
SC2A 
5D29 
5238 


1885 SFSE 


1887 
1889 
188B 
188D 
188P 
1891 
1893 
1895 
1897 
1899 
1698 
189D 
169F 
16A1 
18a3 
18a5 
18a7 
18a9 
18AB 
18AD 
18aF 
18B1 
1853 
18B5 


' DATE 


_ EC 


yO. 


602D 
612F 
6aA5C 
6B2C 
6C25 
6D5F 
6E3E 
6P3FP 
TAZA 
7B23 
7040 
7D27 
TE3D 
2617 
3216 
150a 
1919 
IC1C 
1E1E 
iF 1P 
2D05 
3D15 
SP1A 
FFFF 


O1MAR72 
818693 


ADDR 


183¢€ 
1838 
183A 
183¢C 
183E 
1849 
184% 2 
1844 
1846 
1848 
184A 
184C 
18 4&E 
1850 
1852 
7854 
1856 
1858 
TE5A 
185¢c 
1652 
1860 
1862 
1864 
1866 
1868 
186A 
T86C 
186E 
1870 
1872 
1874 
1876 
1878 
187A 
187C 
187E 
1880 
1882 
1884 
1886 
1888 
168A 
188C 
188E 
1890 
1892 
1894 
1696 
1698 
189A 
789C 
18982 
18a06 
18A2 
18A4 
38Aa6 
18A8 
T8AA 
18AC 
IBAE 
1850 
18B2 
18B4 
18B6 
1837 


a 
& 


(RFTS)--SECTICH 1-- 


STAI SOURCE STATENENT 


1363 
1364 
1365 
1366 
1367 
1368 
1368 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1367 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1800 
1401 
1402 
1403 
1406 
1805 
1406 
1407, 
1408 
1409 
1410 
1411 
1812 
1413 
1414 
1415 
1416 
1417 
1418 
1449 
1420 
1421 
1422 
1423 
1424 
1625 
1426 
1927 


1428 TBLEED EQoU 


1429 * 
1430 * 


24J0L72 


517058 


oc 
bc 
DC 
BC 
DC 
bc 
DC 
DC 
Dc 
be 
BC 
Dc 
dC 
Dc 
pc 
bc 
oc 
ac 


oc 


XL2°C74a7¢ 
XL2* 848° 
XL2°C9498 
XL2*DIsae 
XL2°p24B° 
XL2*D34c* 
¥L2*D4 ype 
XL2°DSGE® 
XL2°D6uF* 
XL2*D750°* 
XL2*pe51° 
XL2*D952¢ 
XL 2* £253 
XL2*E350¢ 
1L2*B455¢ 
XL2°2556° 
XL2* £657® 
XL2° E758" 
XL2*£859* 
XL2*°E9Sa° 
XL2°1212¢ 
XL2*0509¢ 
XL2* 3c13° 
XL2* 10108 
XL2*0000* 
X1L2°01301° 
XL2*3704* 
XL2°*7F22° 
XL2°@A55° 
XL2° 4B2E* 
XL2°4c3c* 
XL2* 4ap28° 
XL2°@E2B° 
XL2¢aP21¢ 
XL2*5026! 
XL2*5a5pD° 
XL2°5526° 
XL2*5C2aA*® 
XL2*S5D29¢ 
XL2*SE3B* 
XL2°SFSE- 
XL2"602D* 
XL2"672P* 
XL2* 6aSC® 
XL2*6B2C* 
XL2*6C25* 
XLZ*6DSF* 
XL2* 6E3E° 
XL2°6F3F* 
XL2°7a3a¢ 
XL2*7B23° 
XL2* 7408 
XL2"*7D27* 
XL2*7E3pD° 
XL2°2617° 
XL 2° 3216¢ 
XL2°150a° 


XL2°2919¢) 


XL2* IC Ic* 
XL2° 1ETE® 
XL2°1F1F® 
XL2°2D05° 
XL2*3D15° 
XL2°3¥F1a* 


XL2°*FFFF® 
e 


PART WO. 


PAGE 


NHR ERGCHHWOVO RRM ARGH mm 


DC2 - EUA 
RT - PGH TAB 

DCR - RA 

DLE 

HULL 

SO8 

xOT ; 

QUOTE (GEEERAL POLL) 
CEuT 

PERIOD 

LESS THAS 

LEFT PARES 

PLUS 

* 


AMPERSAED 
EXCLAMATION S2RK 
DOLLAR 

ASTERISK 

RIGHT PARES 
SEMI~COLOW 

= 

DASH 

SLASH 

* 

Cosma 

PERCENT 

UBD RSCORE 
GREATER THAN 
QUESTION SARK 
COLON 

POUND 

aT 

APOSTROPHE 

EQUAL 

ETB 

SYN 

UL - LF (BNEW LIME) 
EA - EOM (END OF NESSAGE 
IFS - DUP 

FX (PIED MARK) 
ITB 

ENQ 

MAK 

SUB 

BND OF TABLE 


SPECIAL CHARACTERS TO BE TRANSLATED 


ISSEP72 
818397 


O1FEB7S 
572208 


15 FEB7S 
572250 


O7JUL75 PROG ID 
571781 PAGE 


2588898 
VA 


VRASE UMPROTECTED TO ADDR 


871-6 
112 





IBR BAINTENANCE DIAGNOSTIC PSOGRAS 


PART RO. 25584698 IBK BAINTENANCE DIAGHOSTIC PRCGEAE PART OQ. 258A896- 
PAGE 412 PAGE 124 
8716 3270 REQUEST FOR TESTS (RFTS)--SECTION 1t-- 8716 3270 BEQUEST POR TESTS (BFTS)--SECTION t-- 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJRCT CODE ADDR STST SOURCE STATEMEUT 
1431 = 1899 # 
18B7 70 18B7 14832 ESPCAL DC XL1°70# ACK OQ EBCDIC 1500 © COMMON COSMAHDS 
18B8 61 18B8 1433 DC XLie6te ACK 1 * 1501 * 
18B9 7c 18B9 1434 Dc XLi*7c& RVI s 18F9 00 18P9 1502 pc XL1°008 CONTROL BYTE 
I8BA 682 18BA 1835 pc XL7°6B¢ BACK * 18PA 1503 STBL EQU. ® BEGIBNING OF TABLE 
18BB 30 18BB 1436 pc XL1°308 ACK O ASCII I8FA GE 18PA 150% CRCL pC XE 1"6E? AID FOR CANCEL 
18BC 31 18BC 1437 pe XE 1° 378 ACK 47. @ 48FB 00000000 18FE 1565 SELADR DC XLR*Cos TEMP STORAGE FOR SELADDR 
18BD 3c ¥8BD 1438 DC XL17°3c¢ RVI * 18FP 0227 1900 1506 RSTKBD DC XL2°0227° STX-ESC 
18BE 38 I8BE 1439 pc XL 1° 3B8 WACK * 1991 FI 190% 1507 pc XLitPie CSD, WRITE 
18BF FF T3BF 18480 DC XL1°PF¢ END OF TABLE 1902 4P 1902 1508 pc XL1°aFe WCC-RESTORE KYBRD/SOUED ALARMN/START 
THN] teeaeens 1509 * PRINT 
1442 © FLAG * 1903 03 1903 1510 pc XL1°03° ETX 
1443 se¢KeK0% 1904 00000000 1307 1511 SAVPNT DC XL4*008 
14484 * FROGBAM FLAGS 1908 C4C9C1D3 1908 1512 DIAL oC CL&"*pIaL® 
18C0 00 18CO 1845 FLAG onc XL1°008 190C FPPFF 190D 1513 pe XL2¢*FFFP® END 
GO80 1446 FLAGO £EQU x* 80? CONVERTING ASCII TO EBCDIC TS 1S CHAE SEREETKEEACEREREKEEKE SSS EANAKSE KOSH AKE EKER EK FES HERES OEE EKEREREESE 
0045 1447 FLAG1 EQU X*4ge SUBTRACT & 1515 * 
0020 1848 FLAS2 £QD x*20° AUTO CALL 1516 # BESSAGES (OUTPUT TO A PRINTER) 
0010 144.9 FLAG3 ECU x° 108 * 1517 *® 
0008 1450 FLAGS EQU x*O8* LC ERROR ISOE 23¢9D5C540C5D9D9 1917 1518 HSGO2 ondC CLiO*LIBNE ERROR® 
0004 1451 FLAGS EQU x*O4F THREE CHAR COMPARE 1916 D6D9 1518 
0002 1852 FLAG6 EQU x¢o2* ORE CHAB COMPARE 1918 EB2E3CTEJEVE2ZNOCT 1925 41519 Dc CL20°STATUS AND SENSE IS * 
0001 1453 PFLAG? £EQU x°ote PIRST PASS PLAG 1920 DSC4HOE2ZCSDSE2CS 1513S 
1454 * 1928 NOC9E240 1519 
1855 es 192C ETEVE7VE? 192F 1520 mSGO3 DC CL *xxxx® 
1456 * CONSTANTS (IN EECDIC, WILL BE TRANSLATED WHEH RUNNING ASCII) 1930 CSDSCTE2ZCS61E6D9 1940 1521 ASGO4 DC CLI7*ERASE/WRITE ERROR® 
1657 ee 1938 CIE3C54OCSD9DIDE 1521 
18C1 00 18C1 1458 pc XL 7°00° 1940 D9 1521 : | 
18C2 1459 DATCON EQU * 1941 C&C9EZD7ID3CTES4&O 1948 1522 pc CLO*DISPLAY * nee : a 
18C2 1076 18C3 1460 ACKO Cc XL2*10708 ACK 0 1949 EF 1949 1523 DISPHO DC CL1* xe 
18C4u 1061 18C5 1461 ACK1 DC XL2*1061* ACK 1 198A BOCSLIDIDEDIEODS 195D 1524 pe CL20° ERROR-RETRY WUABER® 
1806 107C 18C7 1462 EVI pc XL2°107c# REVERSE INTERRUPT 1952 CSE3D9EBUCDSEUDS 1528 
18CB 1068 18C9 14863 WACK nC XL2*106B° HACK 195A C2C5D940 1524 
18CA 01 18CA 1868 SOH pc XILi*O18 START GF HEADING 1SSE £7 1952 1525 8SGO5 pC CL1*x® 
18CB 02 I8CB 1865 STx pc X1L1°02°8 START OF TEXT 195¢ COD5C3D6DSD9C5C3 1976 1526 HSGO6 DC CLIG® INCORRECT RESPORSE® 
18cc 63 18CC 1466 ETX pc XL1#03¢ END OF TEXT 1967 E340 D9SCSE2D7DED5 1526 
W6CD 106 I8CD 1467 DLE Dc XL1°108 DATA LINK ESCAPE 196P E2C5 1526 
T8CE 70 18CE 1468 Dc XL1°70° PAD 1971 DSD6E4E3C9D5C540 1980 1527 HSGOS DC CL16*ROUTIHE BYPASSED® 
18CF 26 18CF 1869 ETB pc XL1*26¢ 1979 C2EBDICIEZE2ZCSCH 1527 
18D0 2D 18D0 14670 ERO pc XL 1*°2p8 1981 D5D640C9DSE3C5D9 1948 1528 ASGOA DC CL&0*HO INTERROPT-HEXT TEST PATTERN IBITIATED® 
18D1 37 18D1 1871 EOT pc XL1°37¢ 1969 DIEYD7EZ60R5C5E7 1528 
78D2 3D 18D2 14872 BAK pc XL1° 3D£ 1991 E34Q0 E3CSE2ZE3&80D7 1528 
1473 1999 CIE3E3C5D9D540C9 1528 
18D3 016C61 18DS 14298 TSTR DC XL3°0 16C618 SOR, &. / 19A1 DSCIEICICTE3CSCY 1528 
18D6 076CD9 18D8 1495 HEADER DC XL3°O016CD9¢ SOH, %- RB 1529 
18D9 020000 18DB 1876 STXDC DC XL3*020000# STX, FIXED ADDRESS 1529 
7epc 0000 18DD 14877 SSHERE DC XL2*00008 S&S0, SE&S1 1530 * CONSTAETS 
48DE 03 18DE 1478 SASEBD DC XL1°03* ETX 1531 
1879 19A9 47532 XLTSW EQU * CURRENT, ES 
18DF 0000009002D 18EZ3 148C ADRSEL DC XL5*000000002D° DATA FOR ADDRESSING 19R9 0000 WDAB 1533 pc XL2*00° VALDES FOR TRAWSLATE 
18ES G00000002D 1828 7481 POLSEL DC XL5*°000000002pD¢ DATA FOR POLLING 19AB FFFP 198C 153% HEXFP DC XL2°FFFF® 
1462 19AD 00 19AD 1535 C16 pc XL1°00® 
1829 0227 18EA 1483 EW¥RTCD DC XL2*0227# STX-ESC 19RE GO 1S9RE 1536 UDTOPT DC XL1*00° TYPE OF TERMINAL (PROS UDT TABLE) 
18EB FS ISEB 1884 Dc XL1°P5* CHD, EWRT 1537 * BIT 0 ON IHDXCATES ASCII TERMINAL 
IBEC C2 IBEC 1485 pc XL4*c2* RCC, 1536 * BIT 1 O8 IBDICATES 1920 CHARACTER BUFFER 
I8ED 03 IGSED 1486 pc XL1°03¢ EYX 19AF 0000 19B0 1539 SAVENL DC XL2*00* 
1487 19B1 0002 19B2 1540 TRO pc XL2°0002¢ 
IBEE 0227 18EF 1888 PCDAO DC  xXL2*0227" STX-ESC 19B3 0600 19B4 1541 SAVXR1 DC XL2°00°* 
18F0 F9 18FO 1489 pe XL1°F9¢ CHD, DER? 19B5 0000 19B6 1542 SAYXR2 DC XL2*00* 
18F% 46 18P1 1890 pC —- XL1*480° gcc 19B7 PFFC 19B8 1543 BEG4& DC XL2°PPFC* 
18F2 03 18F2 1491 DC = EL 1* 038 ETX 19B9 P1 19B9 1584 FONE pc XLt°F19 
1892 19BA 7585 DUMMY EQU * 
18F3 0227 ; 18P4 1893 DREAD DC XL2°02278* STX-ESC 19BA 0000000000000000 19CcB 1546 pc XL 18°008 
18F5 7A 18P5 1894 pc XL1*7a¢ CHD, DRDS 19C2 0000900000000000 1546 
18F6 03 18P6 1895 pc XL1°Q3¢ ETX 19CaA 0000 1546 
18F7 14896 DREADL ECU * 19cc 000000 49CE 41547 CCORTR DC XL3*005 
18F7 1897 DATEND EQU * 49CF 00 19CF 1548 COURT DC XL7*°00* 
18°7 FPPF 18F8 1898 pc XL2° FFPF¢ END OF TABLE 19D0 OOOFAO 19D2 1549 HAIT& dC XL3*OQO00FAO® 
DATE OVMAR72 21APR72 2830172 15SEP72 O1FEB74 1SPEB75 0730L75 PROG iD B7i~6 DATE OVMAB72 21APR72 28J0L72 ISSEP72 OC1FEBIS ISFEB7S O7IOL7S PROG ID 871-6 
EC RO. 8186393 816335 577056 818397 572208 572250 571781 PAGE 12 EC NO. 818693 818335 577058 818337 572208 572250 577784 PAGE 122 
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IBM MAINTENANCE DIAGNOSTIC PROGRAB PART NO. 25°8498 IBM MAINTENANCE DIAGNOSTIC PROGRAB PART NO. 2588898 : 
PAGE 13 PAGE 23,4 
8716 $3270 REQUEST FOR TESTS (RFTS)--SECTION 1-- 8716 3270 REQUEST FOR TESTS (RFTS)--SECTION 1-- 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STAT SOURCE STATESENT 
419D3 000001 19D& 1550 CHE pc XL3*000001? E17 SSSaSS SE £OFTS ONES OEEEREEKTS OSES SHERKSEEKERES ORE DEEEDELERE OEE REREEEERE 
19D6 00 19D6 1557 LCCHK1 DC XL1*00° LINE CONTROL CHECK CHARACTER 1618 * ~ INTERRUPT POUTINE - 
0040 1552 CKEOT EQU x*40* CHECK FOR EOT 1619 * AT BEGINING OF THE PROGRAS 
0020 1553 CKSTXA EQU  x*20* CHECK FOR STX,CU ADDR,DVC ADDR 1620 * 
001C 1554 CKETB EQU x*10¢ CHECK FO? ETB 1621 * L SINTA@,IAR2 
0C08 1555 CKETX EQU x? 088 CHECK FOR ETX 1622 * SIO x*63°,x*808 ENABLE AND RESET INTTERUPT 
0006 1556 CKACK2 Fqu X*Hue CHECK FOR ACKO TO COBNAND 1623 SKSERAKSSEREEARKS SESS SER GRERS BE ESKS CERES EEKREKS SHEESH SESEEE EKOAREKEERESES 
0002 1557 CKACK1 ZOU x*02! CHECK FOR ACK1 1624 
9001 1558 CKACKO zQU x*Q18 CHECK FOR ACKO TO SELECTION 1A25 38 01 1A4B 1625 $INT ST S$Y¥1¢3,XB1 
19D? 00 19D7 1559 LCCHK2 DC XL1*00* LINE CONTROL CHECK CHARACTER 2 anee - a Hebe coe = Piet 
10 1560 CKENQ EQU  x*108 CHECK FOR EN oPs 
nite wees ceuae tou x*0a* CHECK FOR 1A31 35 O08 1A61 ae ce L coeeee ve ZERO CONDITION REG FOR INT ROOTI 
4 BACK u *O48 CHECK FOR WACK 1A35 3C 09 1A5D 629 BVI INTID,X 
noes ae eecay es a eose ee FOR ae 17A39 C1 83 TAG4 1630 $NT12 TIO $S$¥1,x*°83* TEST FOR ITB INTERRUPT 
0001 1564 CKSTX EQU  x*01° CHECK FOR STX “2 cO 87 1Aa62 ete B re CHECK DIAG AWD STATUS CONDITIONS | 
1 8 XL1*00° FORCE POLL FOR SENSE AND STATUS TAS1 F2 87 O04 J x 
ees ee aoae teee Boece ach pe ence eae 1044 3C BD 1ASD 1633 $$r1 BVI SINTID,X*SD* ITB INTERRUPT FLAG 81 
0004 1567 ONWACK EQU CKWACK 1A48 C2 01 0000 1634 S$Y1 LB s-* X81 
0002 1568 ONRVI EQU CKRVI TaA4uC i. a eee eee $2 La eeeeeee 
D9 1616 19DA 1569 ASTART DC AL2(STA 7450 4 Ta5C L 12,PS 
as 1712 19DC 1570 ASTOP DC AL2 reno by 1AS4& PF3 80 03 1637 SRESET SIO X*03*,x*80* RESET INT AND ENABLE INT 
19DD 8202 19DE 1571 ATANDR DC XL2*8202® T AND BR, INT ENABLED Va57 CO 87 1a25 1638 3 SINT 
19DF 161F 19£0 1572 START6 DC AL2(START¢9) TASB 0000 IASC 1639 $¥3 pc XL2°0* 
19E1 1618 19EZ 1573 START2 DC AL2(START#2) TaASD 00 TASD 16460 S$INTID DC XL1*°00° 
: 19E3 161A 1924 1574 START& DC AL2 (START+*4&) VASE 1425 ASF 1641 SINT@ dC AL2 (SINT) 
19ES 1618 19£6 1575 STAETS DC AL2(START¢5) 1a60 0000 12617 1642 $0 DCs xL2*08° 
19E7 1012 19B8 1576 ASELCT DC AL2(SEFLECT-10) ; 
; 19E9 1616 19EZA 1577 ASTRT DC AL2(STABT) 
19EB 16FD 19EC 1578 ENDI DC AL2(START¢ETEXT1) 
IS9ED 16FC 19EE 1579 END2 DC AL2(STABT¢ETEST2) 
i 19EF 16BF 19F0 1580 EXD3 DC AL2(START+ETEXT3) 
i 19F1 16F5 19P2 1581 ENDS DC AL2(STARTCETEXTS) 
19PF3 19CD 19F4 1582 ADUM8 DC  AL2 (DUSHY+¢19) 
19F5 19BA 19F6 1583 ADUN? DC AL2(DUESY) 
19P7 19BC 19F8 1584 ADUM2 DC AL2 (DUSHY+¢2) 
19F9 19BB 19FA 1585 ADUS3 DC . AL2(DUSAY+*1) 
19FB 19C3 19FC 1586 ADUS9 DC AL2(DUMHY#9) 
19FD 00000000 1A00 1587 ZERO DC XLS*00# 
i TA01 80404040460404040 1008 1588 ELANK DC 8XL1°80? 
i 1409 40 109 1589 DC XL1*40" FORCE EBCDIC 
i JAOA 0000 1A0B 1590 SSSAVE DC XL2*00* STATUS AND SENSE FIELD 
i TAOC PFFF 1A0D 1591 DC XL2*FFFF® 
i 1A0E 00 TAOE 1592 ERRSW DC XL1*008 
TAOF 0004 1310 1593 FOUR DC XL2#0004¢ 
1A11 00 1a17 1594 DC —_- XL" 008 
: JA12 370F323200000000 4a1C 1595 SELECT DC XL11°370F3232000000002DFFFP®* 
i JAA 2DFFFP 1595 
: 1596 * 
i 1597 * EQUATES 
i 1598 * 
i gs 6080 1599 ASCII EQU x*8O# 
; 0080 1600 FOREBC EQU x" 408 
0020 1601 PORASC EQU x*20° 
1602 * 
1603 * BEGIN MACRO 
1604 * 
1605 * ZBLOC SETL=NO ; 
1606 SESS EREEEEESESEREREERERE COREREEEEEE EEE S82 EERE ERED £OEEEEREEERER ROR EOE Z Pie 
1607 * ROUTINE TO TERMINATE ON-LINE TEST AND DISABLE BSCA 
. 1608 * CALL SEQ 
: 1609 © B $pISC 
1610 SERSSETSESESES FLARES EERESESE EEEREE EERE 8288 8EESOEEEEEE EE EEEE EERE ORERSER OR 
; 1611 
1A1D F3 80 80 1612 $DISCT SIO x*80*,x*80* 
1613 
: 4A20 CO 87 022A 1614 B LoaD END SECTION 
Z 1A24& 40 1A28 1615 pc XL1*a0° ABHORMAL TERSINATION 
16 16 
DATE O1MAR72 21APR72 2430L72 1SSEP72 O1FEB74 1SPEB75 07JUL75 PROG ID 871-6 DATE O01BAR72 21APR72 24J0L72 ISSEP72 = O2 FEB7& ISPEBT7S O07JUL75 PROG ID 871-6 
- EC ¥O. 818693 818395 577058 818397 572208 572250 571781 PAGE 13 EC NO. 818693 818395 577058 818397 572208 572250 571781 PAGE 13a 
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AQ 
oft 


TBH BALUTEBARCE DIAGHOSTIC PBROGEAE PABT &O. 2588898 
PAGE W4a 
aT 16 3270 REQUEST FOR TESTS (RFTS}--SECTION i-- 


8716 3270 BEQUEST FOR TESTS ¢RYTS)--SECTIOW I-= 


ERR LOC OBJECT CODE ADDER STMT SOUBCE STATEMENT 


ERR LOC OBJECT CODE ADDR STAT SOURCE STATESERT 


T6464 SUERETRERSSH SEEKERS SLEEK ETELE HE EEETSH SOE ERETHE ARE SEREERRSE CAEEREASERESE 


1AD& 39 10 %Ba7? 4772 $13 TBP £SI-1,x°108 BDAPTER CHECK ON RECEIVE 
1645 © SUBROUTINE # ® iADA P2 10 6c 1793 or $14 
1646 * $TIO * SUBROUTINE CALLED BY B $TXO # * TADD CO 87 O21A 1714 B PRIEST ERROR PRIWT 
1647 Seeseteneseeweseeese USES TIO TO CHECK CONDITIORS® # 1AE1 86 WAE1 1795 Dc XL1°868 
1648 * * PRINTS OUT ERROR FP CONDITS © * TAE2 16 TAE2 1776 be IL 1? 2u¢ 
1649 * B $TIO * NOT AS EXPECTED. * ® 1RE3 1BPS TAEY 1717 pc AL2 ($S3} "ADAPTER CHECK OM RECELYE* 
1650 * * ALSO CHECKS STATUS AND DIAG # * TAES 38 4O 1586 1718 SBH SERPLG,2°405 ADAPTER CHECK OCCURRED 
1057 FE REREREL SERRE EERE EECA EEE STE RKEHEESH ES EESHSTEEES SERRE EERE HE RE SRERE 4719 
1652 # $NOTIS = PP HO TISE OUT HSEEAGE JAE9 39 68 1387 #720 $14 TBF $SI-1,x°08° EIMNVALID ASCII 
1653 * TAED F2 10 Oc 1721 ST $15 
1684 TAFO CO 87 024K 1722 B PRIuT ERROR PRIBT 
1655 © ERROR RETURN CODES TAP4 86 1AF4 1723 BC XL 1° 86° 
1656 TAF5S OD TAPS 1724 DC IL1*73¢ 
1657 * SERFLG = 80 HARDWARE ERROR JAP6 1602 WAP? 1725 DC AL2 ($S4&) fIEVALID ASCII® 
1656 * 40 ADAPTER CHECK 1726 
1659 # 20 TISECUT 1AF8 3k O01 1386 1727 SBN S$EEPLG,X*01° 
1660 * 10 BCC CHECK TAFC 39 04 1387 1728 $15 TBF $SI-1,k°04° ABORTIVE DISCONNECT 
1661 ® 08 ABORTIVE DISCORNECT 1B00 F2 70 Oc 1729 Jt $16 
1662 * O04 DISCONNECT TIMEOUT 1B03 CO 87 O21~A 1730 B PRINT ERROR PRINT 
1663 * O02 DATA SET READY DROPPED 1B07 86 1BO7 1731 pc YL1°66* 
16648 © 071 INVALID ASCII 1B08 13 1608 1732 pc ILi*¢ige 
1665 1509 1015 1B0A 1733 pc AL2 ($85) *ABORTIVE DISCONNECT® 
1A62 34 08 1289 1666 $TIG ST $B101¢3,ARR 1734 
1866 3C 00 1386 1667 M¥VI =: $ERFLG, X*05 ZERO ERROR FLAG 1BOB 3A 08 1886 1735 SBZ SERFLG,X*08* 
TA6A C1 BT 1476 1668 $¥1 TIO $B104,x°et* TEST FCR OF-END INTERRUPT 1BOP 39 O02 1387 1736 $i6 TBF £SI-1, £°O2¢ DISCORBECT TIHEOUT 
TAGE CO 87 O2TA 1669 B PRINT ERROR PRIEST TBI3 F2 40 Gc 1737 ST $17 
TA72 86 1A72 16706 pc XE, 1° 868 1B16 CO 87 6218 1738 B PRINT ZRROR PRINT ; 
1A73 OF 1A73 1671 pc IL7° He 1B1A 86 IBIA 1739 pc XL 1° 66* ‘ 
1A74 13899 iA7TS 1672 DC AL2 ($10BR14} OP-ZED ERROR TBIB 12 TBIB 4740 DC IL1° 78° 
1A76 Cl 84 1482 1673 $B104 TIO $B8165,x*gH* TEST INTERRUPT REQUEST PENDING TBIC 4027 IBID 174% BC AL2 (S56) *DISCOBHECS TIREOUE® 
1678 4742 
iA7h CO 87 O27A 1675 B PRINT ERROR PRIET IBIE 32 O8 1386 1783 SBN SERPLG,X*CHE 
1A7E 8&6 TRIE 1676 bc EL1°866 1B22 38 02 1B88 1784 $17 TBE $SI,x*02* DATA SET READY 
1A7F 13 1A7F 1677 pc IL1# 194 4526 F2 10 Oc 1785 Jf DSi 
1280 1BAC 1A81 1678 DC AL2 (SIOR4) INTERRUPT REQUEST PENDIEG ERROR 1B29 CO 87 0242 1786 B PRIET ERROR PRINT 
1A82 C1 BO 1A8A 1678 $8105 TIC $8120,x°805 TEST FOR UNIT CHECK/EOT READY 1B2D 86 1B2D 1747 pc XL 1° 86° 
1A86 CO 87 0000 1680 SBi01 B tae RETURE TO INTERRUPT ROUTINE 1B2E OF 1BZE 17488 pc IL1*14¢ 
166% 1B2F 1035 1B36 1749 pc AL2 ($SR6) Data SET READY STATUS BIT 
FAGA 30 83 1Ba6 1682 $8120 SNS $SI,x*°83* SENSE STATUS IHPORHATION 1B31 38 02 1866 41750 SBH SERFEG,x%*O2* 
TA8E 30 80 1BB2R 1683 SES SDI,x'80® SEEBSE DIAGNOSTIC IBFORBATION 1B35 39 08 1BSA 1751 DSi TBF S$DI,x*?Os* BLOCK CYCLE STEAL REQUEST 
1684 1839 F2 410 Oc 17£2 ST DS$2 
1a92 39 80 1BB7 1685 TBF $SI-1, £2868 TIHEOUT 1B3c CO 87 6272 1753 B PRINT EEROR PRIWT 
1A96 P2 10 17 1686 st $I4 1B&G 86 1B4O 1756 DC EL 1° 868 
1A99 3D FF 1BaB 1687 CLI S$NOTIS,X*PF* TEST IF BO TEHEOUT HABTED 1B41 OF 1B4? 1755 DC IL7*15¢ 
TAGD F2 81 08 1688 JE STIXX 1B42 IcuL 1B4&3 1756 DC kL 2 ($DH3} ®BEOCK CSE ¢ 
TARO CO 87 G21A 1689 B PRIRT ERROR PRIET 1B4& 38 80 7886 1757 SBE SERPLG,X¢80° HRRDUERE ERROR 
TARu 86 {Aaa 1690 DS XL 1° 86° 1758 
TAA5 07 1AB5 1694 pc IL1*078 1B88 39 04 1BBA 1759 D$2 TBF  &DI,.x*0a® LSR OR S-REG CHECK 
TAA6 1BB3 TAA? 1692 BC AL2 ($50) *eLasour* iBac F2 16 Oc 1760 JT $3 
1AAB 3A 20 1886 1693 $TIXX SBH SERFLG,xX*20¢ TIHEOUT OCCURRED 1BGF CO 87 027A 1761 B PRIET ERROR PRIET 
TAAC 3C 00 1888 1694 BYI $NOTIA,x*00¢ 1853 86 1853 1762 pc XIL1°36¢ 
1695 1554 12 1554 1763 ac IL 7° 488 g 
1ABO 39 40 1387 1696 $1% TBF $SI-1,xX*46° CRC/LRC/YRC CHECK 1B55 156 1B56 1764 pc AL2 (SDBS} *LSR OR S-REG CHECK 
1AB4 F2 10 OC 1637 IT S12 135? 3A 80 1B86 1765 SER SERPLG,X*850¢ HARDYARE ERROR 
1AB? CO B87 O2TA 1698 B PHIBT ERROR PRIHT 1B55 39 02 IBS8A 1766 D$3 TBP SDI, x°O2* OVERRUEB/U ZDERFLOG 
1ABB 86 1ABE 1699 pe XL1°66¢ iBSF P2 10 OC 1767 JT DS& 
1ABC 14 ABC 1700 DC IEV#978 1B62 CO 87 O2TA 1768 B PRIST ERROR PEIST 
ABD 1BCu 1ABE 1701 bc AL2 ($81) ~CRC/ERC/¥RC CHECK? 1B66 86 1B66 1769 pe XL1°B6? 
VABF 3A 10 1586 1702 SBN SERFLG,X*10° CRC CHECK OCCURRED 1B67 17 {B67 1770 po 8 CI 99232 
1763 1B68 IC6D 1B69 4774 pc AL2 (SDH6) ‘OV ERRUB/UNDER FLOW 
1AC3 39 20 1387 1704 $12 TBF $SI~1,2* 205 ADAPTER CHECK OB TRAXSHIT TB6A 3A 80 1B86 1772 SBR $ERFPLG,E°80* HAEDUARE ERROR 
TAC7 F2 10 OC 1705 JT $13 1B6E 39 01 IBEA i773 ps4 TBF $DI,xX*G?® DBI P CHECK 
1kCA CO 87 O2TA 1706 B PRINT ERROR PRINT 1B72 CO 10 1286 1778 BT $B101 RETURN TO INTERRUPT ROUTIBE 
TACE 86 ACE 1707 pc XL1*86¢ 1B76 CO 87 O2TA 4775 B PRIBE ERROR PRLET 
TROF 19 ACF 47068 DC IL1*25¢ iB7A 86 1B7A 1776 DC XL1°86° 
1ADO 1BDD 1aD1 1769 pc AL2 ($82) ‘ADAPTER CHECK ON TRANSHIT® 1B7B 16 IBTB 4777 DC IL 1° 16° ’ ;. 
1AD2 3A 46 1886 1710 SBN SERFLG,xX*uG? ADAPTER CHECK OCCURRED 1B7Cc 1¢7D 1B7D 1778 pc AL2 (SDS?) DBI P CHECK 
W714 IB7E 3A 80 1886 1779 SBN $ERPLG,X*80® HAERNEARE ERROR 
DATE OIMART72 27APR72 24.J0L72 1SSEPT2 O1PEB7E 0730175 PROG ID 871-6 DATE O1HART2 21APE72 24I0L72 TSSEP72 GIFEB74 O7FITLIS PROS IB Te 
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oO R PART BO. 2588898 
IBH MAINTENANCE DIAGHOSTIC PBROGRAB Beat KO. eo00e28: TBA MAINTENANCE DIAGNOSTIC PROGRAM BAcE +51 
8716 3270 SEQUEST FOR TESTS (RFTS)--SECTICH 1-- 8716 3270 REQUEST FOR TESTS (RFTS)--SECTICH 1-- 
eee ae eateee leads soba Stee s60nCe seis neces ERR LOC OBJECT CODE ADDR STMT SOURCE STATESEWT 
- : : 1800 SSRERS LESTER SO RERERS EEEREKEEEREEES EO EEE EEE O4TS 2OEEEEEEREEESSOEOREOEOSEOS 
» : E 5 
vce a0 B7" TR86 ‘eae tree ecaree ea ere SE SURN CEO -PELSRBURT BOUTSEE 1901 * SUBROUTINE TO DELAY FOR 90 SECONDS 
1802 * B $DELAY 
1B87 00006 br Bee ai: Be Goouas k 1803 SERS RASES ETRE EE EE TE SKEREREEHEKSESHE SEKERERESRESESEREEERE ESOS O8ESERERE 
eae oe co Guha Su0K pe | ye ea0% IC7E 34 08 1CB9 180% $DELAY ST  DSLAY303,ARR 
1B8C D6D760C5D5C440C9 1899 1785 $IOR1 DC CL14*OP-END INT ERR* ee ae x ee 1 ae = cere chon: 
1B94 DSE340C5D9D9 1785 1C86 OC O02 ICBC 1CBP 8 AVC = STIA, (3) 
EAD DICE DSCecoDSCTAG ny66 1€92 OD 02 ICBC 1CDB 1808 CLC = ST 18, $90 (3) 
via CenSb6 1796 1¢98 F2 84 OB 1809 JH $PTH20 
TEAD E3SCODSCSD6ESE3 1BB3 1787 $SO0 pc CLO? * TIMEOUT? 1C98 39 P3 4A5D 1810 TEP SINTID,.X*P3°* SEE IF INTERRUPT OCCURRED 
1BB4 C3D9C361D309C361 1BC4 1788 $51 pc CL17*CRC/LEC/¥RC CHECK® foe a eee co a peties 
tee a ee sass 1CA6 CO A7 021A 1813 SPTH30 B PRINT 
8 
1BCS CICUC1ID7E3CSD940 1BDD 1789 $S2 = DC_~—s CL25* ADAPTER CHECK OM TRANSAIT® 7 tereciase Re Cte atege 
Ncce SOcotec eetcbies sacs . ICAC 1C¢D8 ICAD 1816 oC AL2 (S$SREPL) NO RESPONSE APTER 90 SECONSS 
eens +789 1CAE 3B F3 1ASD 1817 DSLAY2 SBF SINTID,X*F3° 
TBDE C1C&C1D7E3C5D940 1BFS 1790 $53 DC CL2U*ADAPTER CHECK ON PECEIVE® 1CB2 C2 01 0000 1818 $DL1_— La oe 
1BE6 C3C8C5C3D240 D6D5 1790 1€36 CO 87 0000 1819 CSLAY3 B = 
' t 
TEP6 CODSE5C1ID3CSC440 1002 1791 $s4 pc CL13*INVALID ASCII® 1CBD 000000 ICBF 1821 $000 pc ee 
dere cibocdcace aa5% . icco 01 1CCO 1822 SONE DC XL1°01 
2 1CC9 D5£2C540C 1C6E3C5 1823 
| 1COB SOCKC9EZC3D6D5D5 1792 
| 1€16 C4CSEZC3D6D5D5C5 1€27 1793 $S6 DC CLI8*DISCONNECT TIMEOUT® Teng 180000 \CDE 1624 $90 = DC =—_-&L3* 180000 ; 
| ICTE C3E340E3C9L4C5D6 1793 | 
1026 ESE3 1793 
1€28 C4CTE3C140E2C5E3 1€35 1794 $SH6 DC CL14*DATA SET READY® 
1030 “ODSCSCICKEB 1794 
1€30 C2D3D6C3D240C3E2 1€44 1795 $DH& pc CL15*BLOCK CSR CHECK® 
1C3E D940C3C8C5C3D2 1795 
1C45 D3IE2D94ODED94OE2 1¢56 1796 $DHS DC CL18"LSR OR S-REG CHECK* 
1C4D 60D9C5C74 0C3C8C5 1796 
1¢55 C3p2 1796 
1C57 D6E5C5D9D9E4D561 1C6D 1797 $DH6 DC CL23*OVERBUN/UNDERPLOW CHECK® 
1C5P E&DSC4C5D9C6D3 D6 1797 


1C67 EB64OC3C8C5C3D2 47397 


IC6E C&C2ZC94OD7ICIDICS 1C7D 1798 $DH7 DC CL16"°DBI PARITY CHECK® 
1C76 EIESSOC3ICECS5C3D2 1798 , 
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IBH HAIETERNANCE DIAGNOSTIC PROGRAMS 


PART NG. 2° 88498 IBR MAIETEWANCE DIAGNOSTIC PBOGRAR PART 80. 2588898 
PAGE 16 PAGE 168 
8716 3270 REQUEST FOR TESTS {RFIS)--SECTION i-- 8716 3270 BEQUEST POR TESTS {RFTS)--SECTION t-- 
EER LOC OBJECT CODE ADDR STMT SOUBCE STATEMENT ERR LOC OBJECT CODE ADDE STRI SOURCE STATEMERT 
1B 26 FERSENSE SEEN SKEET EERE EE RERERES AETEERAREESS RESCH EESEORERE SHEE EREREREER TDBD 36 Of TECO 1898 B $832,XRi1 
1827 « ROUTEWE TO PRIHT DATA TRANSMITTED AND RECEIVED TDC 34 OF 1D9e 1895 St SAY,XRI GET RH ADDRESS OF DATA 
1828 # B $TRPNT 1D0C5 CO &7 IDSA 1896 5 $04 GO YO PRINT DATA 
1829 2 THIS ROUTINE SHOULD ORLY BE CALLED ATTER 8SIG 1897 SHSaRs SEES REREEE CESSES SSSEH SESH SLETAEESE EASES CES EKAKE OEKSEETS KAS ES EOEEESE 
1830 1898 « 
1831 * SS#11 ON BYPASS PRINT 1899 % ROUTINE TO PRINT DATA TRANSHITTED * 
1832 SERUSREER ESKER ARRAK SEEKS KE ARETERESS ES KSASHRERSHEEES HERSRAYS EES GR REERAKE 7900 * B STPRT 
ICDC 34 08 4E3D 1633 SIRPNT ST SE¢3, ARB SAVE RETURN ADDRESS 1901 « 
1CEO 34 01 1539 1834 ST $E1¢3,XR1 1902 ® THIS ROUTIBE SHOULD ORLY BE CALLED AFTER SSIC 
1CEY CO 87 0212 1835 B TEST 1902 # SS8711 ON BYPASS PRINT 
ICEB 38 4O O20A 1636 TRN SBYTEZ,SSHi7 1908 SHR SSEE SHES REESE SERS TARESRKELERE KEKE SSKE TOL HS SH SAKE SSNS H EH KEE SAESEEE 
1CEC CO 10 1E3A 1837 BT $E Ipc? 34 08 1E3D 1905 $IPHT ST $2¢3, ABR SAVE RETURN ADDRESS 
1CFO OC 04 1EC2 1793 1838 SPRING HYC SRK, SSTOP (2) 1DCD 34 0% 1239 1906 St SE763,Z85 
ICF6 OE 01 1EC2 IccO 1839 ALC $#EK,SONE(2} 1DD1 CO 87 62%2 1907 B TEST 
ICFC OD O01 TEC2 1FS3 1840 CLO SRK, SASTRT (2) SEE IF ANY DATA RECEIVED 1DDS 36 4 0208 19¢8 TEE SBYTE2,SSH1% 
1D02 F2 G1 10 1841 JEE $REC 1DD9 CO 10 1E3R 1903 BT SE 
1642 1DDD 3C 03 4F97 1810 avr  $cOD,x*03* FLAG FOR T¢R OPERATION 
7D05 cO 87 O2TA 1843 $ORY B PRINT PRINT ERROR IDET OC 01 GEC2 1F93 1911 $¥3 RYC SURK,SSTOP (2} 
1D09 01 1D0S 1644 pc XL1*O18 IDE? OF 01 1EC2 1CC0 1942 ALC SWBK,$ONE(2) 
1D0R 07 IDOA 1865 pc IL1¢07? IDED OD 014 1EC2 1P9B 1913 CLC S¥REK,SASTRT (2} SRE IP ABY DATA TRAWSAITTED 
TDOB 1EG% IDOC 1846 pc AL2($NDATA) HO DATA RECEIVED IDP3 F2 0% CB 1994 JHE $TiL 
1DOD 3C 00 1F97 1847 AVI $COD,x*0# ZERO T¢R INDICATOR 1945 
1848 TDF6 CO 87 O21A 1916 B PRIBT PRINT ERROR 
1D11 CO 87 1529 1849 B SEXDSB EXIT SUBROUTIBE ‘DPA 07 IDFR 1947 bc XE1°OT* 
1850 IDPB OF IDPB 1918 bc IL1®15¢ 
1D15 OC Of 1F9D 1F79B 1851 $REC MYC SSTRT,SRASTRT (2) GET ADDRESS~1 OF BUFFER IDFC 1E6D IDFG 1919 DC AL2{$UTRAB) NO DATA TRABSHITTED 
DIB OF 01 1F9D tccO 1852 SLC $STRT, SONE(2} TDFE F2 8&7 28 1820 J SENDSB 
1D2% 35 O01 1F9D 1853 L SSTBT, XE 132% 
1D25 OC 01 1F95 1EC2 1854 HVC} 8=—- S¥,, SUB (2) SRVE CORRERT 1EC1 Oc 0% IPYD 1F9B 1922 $T1L YC SSTRET, SASTRT(2} GET ADDRESS-1 OF PUFPER 
1D28 OF 01 ?F95 1F9RB 7855 SLC $&¥,$aSTRT (2) GET NUMBER OF BYTES TO PEST TEO? OF 6% fF9D cco 1923 SLC SST8T,SCHE(2} 
1D31 3D 03 1F97 1856 CLI $COD,x*03¢ TEST IF Tek OPERATION {EOD 35 614 4FSD 1924 L $ST8T,.XRi 
1D35 P2 01 Za 1957 JHE $666 TE14 OC OF 4F95 799 13925 BYC S$¥,STBAB{2) SAVE TRARSITION 
1D38 OD 01 tEC2 1F99 1858 CLC SHRK,STRANE2} TEST IEF ARY DAYA RECEIVED 1E17 OF 01 1795 1F9B 1926 $LcH SLC SY,SASTET 2) GET EUABER OF BYTES TO PRIET 
1D3E CO 8% iDO05 1859 BE SORY 1E1B CO 87 O2TA 1927 tDTA 8B PRIBT HEADIHG PRINT 
1D42 3c 00 1F97 1860 NYE $COD,xK«6® ZERO FLAG 1E21 07 1E27 1928 BC XL 7°01? 
1D46 OC C1 IPOF FPS 1861 H¥C S$8,S$TRAK(2} 1E22 OF 1E22 1929 pc IL4#°458 
iD4C OF 01 1P9PF tccO 1862 SLC $H,$ONE(2} GET TRAHSITION ADDRESS -1 TE23 tE7C 1E28 1936 pc AL2 (SITDATA) TRAESHITTED DATA WAS 
1D52 35 0% 1P9F 1863 L $H XR 1E25 CO 87 4DG6A 1931 B SLOP 
1D56 OC 01 1F95 1EC2 1864 H¥C $Y ,SHRK (2) 1932 
1DSC OF 01 1F95 1799 1865 SLC $Y¥,$TRAN(2) GET RO. BYTES RECEIVED TE29 CO 87 O212 1933 S$ENDSB B PRINT SPACE 6 LIBES 
1D62 CO 87 0212 1866 $GGG B PRINT HEADING PRIKT 1E2b 26 TE2D 1934 bc XL 3° 26° 
1D66 61 1D66 1867 Bc ELi*ote 1E2E 3D 03 1F97 1935 CLL $copn,x*03* CHECK IF EECEIVE PORTION YET 20 
1D67 TA 1D67 1868 DC IL1*26° 1£32 CO 84 1CFC 1936 BE SPHIEG 
1D68 1TESE IDE 1969 DC AL2 (SRDATA} DATA T AND R HAS YE36 C2 04 0000 1$37 $24 LB to, ERY Exxt 
1D64 OD 01 1P95 icBF 1870 SLOP CLC $¥,$000(2} FEST IF ALL BYTES PRINTED 1E3a CO 87 0006 1938 $E B t<% Exit 
iD70 F2 O& BE 1871 JAH SERDSB 1339 
1D73 OD C1 1P95 7ECO 1872 $LE1 Cle SY,8832¢2} TEST IF 32 BYTES TO BE BRIRTED TR3E DSDGLOCKCTESCt 1E44H 1940 SNDATA DC CL7*°BO DATES 
1D79 F2 &4% 35 1873 38 SLX2 TESS ESLOCIDSEZD4CIEZ 1ESE 1941 SEDATE BC CL26°TRAMSHITTED & RECEIVED was? 
ID7C OC 00 IDBE 1F95 1874 BYC $L1,$¥(1} POT LENGTH OF DATA IH TESD B3CSC&SC5040D9C5 1941 
1DB2 36 014 1F95 1875 A SY ,XR1 GET RH ADDRESS OF DATA TE55 CICSCIESCSCR4OES 1384 
7D86 34 Of 1D90 1876 st SA1,XB1 1ESD CIE2 1941 
Ip6a CO 3ST G2tTE : 1877 sui B UNDACK PUT DATA INTO PRIETABLE FORK TESP DSD64OCE3ZBSCIDSE2 TEGD 1942 SETRAE OC CL15°8O FRABSHISSIO#?® 
ID8E 00 IDSE 1878 &L1 DC XL1i‘O# TE6E7 DECSEZE2CSDEDS 1982 
1D8F 0000 1D90 1879 $Ai pc XL2*°Q8 TE6E EILSCIDSE2ZD4CSE TETC 1943 S$TDATA DC CLIS*TRANSHITTED WAS® 
1D9% TEBC <DS2 1880 pc AL2 (STRBF} TE76 EICECKUOZECIE2 1343 
1D93 OC 00 DAS 1D8E 4881 HVC $LGH,$Li{1} TE7D &040604040408040 TEBC 1944 $TRBF DC CL6R* & 
1D99 OF 00 DAS 1DA4 1882 ALC S$LGK,SLGA¢1) G3T PRINT COONT TEBS 404080404040K040 1948 
1883 TE8D 4040404040408040 1944 
IDOF CO 87 O27: 1884 B PRINT 1E95 4080804040404640 1946 
1Da3 0% IDA3 1885 DC XLU°OTE TEQD 4040804040404040 1948 
IDA& 00 1DA& 1886 $LGH oC XL 7°08 TEAS 404040404 0R04 040 1944 
1DAS 1EBC 1DA6 1887 pc AL2 (STRBF) TEAD &0404040604046040 198% 
1888 TEBS 4040404040408040 igua 
1DA7 OC 06 IEBE 1D8E 1889 HYC $L2ZZ,$L1(1) 1EBD 0000 TEBE 1945 $LZZ2 DC XIL2*0* 
1DAD OF 01 1795 TEBE 1890 SLC $¥,$L22 (2) DECRESEXT PRINT COUNT 1EBF 0020 1ECG 12846 $832 DC IL2*32¢ 
1DB3 CO &7 1D6z 1894 . B SLOP 1EC1 0005 4EC2 1947 $URK DC EL2°0° 
Se 1892 
1DB7 OC 00 1DBE 1ECO 1893 $LX¥20 SVC $L1,$832(1) PUT COURT OF 32 E¥ : 
DATE OTHAR7T2 2TAPRI2 Z24S0L72 ISSEP72 O1FERT4 1SPEBT5 O73UL75 PROG ID 871-6 DATE O1HAR72 ZIAPRI2 Z24I5UL72 15SEP72 O?FEB74 15PEB7S O7.3UL75 PROG ID a 
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8716 3270 REQUEST FOR TESTS (BFTS)--SECTICHN 1-- : 8716 3270 BEQUEST FOR TESTS (EFIS)--SECTICH 1-<- 


‘ERR LOC OBJECT CODE ADDR STAI SOURCE STATENENT ERR LOC OBJECT CODE ADDR STAT SOURCE STATERAENT 


1949 HES RRSEESRE NL AAREERESSEAE EE EAR REESE CEES SES EH RECRE EEEEEEEREE EEEERE SHEE ERE | 2018 *ueeneeeeae 


1950 # SIO  UBROUTINE i 2019 * EQUATES RACRISSRSERKHAKCSSAESLSSESESAESSHEAAKSSRSCSESSAS SAKE STESES HOSRSSEERERAKRES 
bee * 7 B $sSI6 : a AESKORLE RED 
1952 * DC AL2¢ ) ADDRESS CONTAINS STARTING ADDRESS 
19£3 * DC AL2{ } ADDRESS CONTAINS TRANSITION ADDRESS 000% 2022 xR EQU a01" 
1954 % DC AL2(¢ )} ADDRESS CONTAINS STOP ADDRESS 0002 2023 xXR2 FQu ee 
1955 * DC AL2{ )} ADDRESS CONTAINS SIO INSTRUCTIONS 0008 2024 ABR EQU xr 8" 
1956 EXAMPLE 8202 0010 2625 IAR EQuU i 
1957 * APTER EXEC SSTOP CONTAINS ADDRESS POINT TO THE LAST 0004 2026 PSR EQU xXt04 
1958 # CHAR RECEIVED 0620 2027 PIIAR EQU x" 20° 
1959 # STRAN COERTAINS TRANSITION ADDRESS 0946 2028 P2IAR EQU ee 
1960 * OTE SNCOTIN = X¥*FP® THEN NO TIME OUT MESSEGE 008C 2029 IARO £90 xi 80" 
1961 SPX FRR e RSE ER EKER ESHEETS SEES OER EKAE KEL EERERRARHESS CAREER TEER REKERES QOCcO 2030 IARI EQU co 
1EC3 34 08 1TECE 1962 $SIO sT SCAD¢3,ALR QOAC 2031 ZAR2 EQU x*a0 
0090 2032 IAR3 EQU x*908 
1EC7 34 02 1F8D 1963 ST $DS1¢3,XR2 
> - 0088 2033 IAR& EQU x*88* 
TECB C2 02 0000 1964 $OAD LA wet, XR2 33] 5555 
1ECF 2C 01 1F5D 61 1965 BIC $101e3,1(2,XB2) 0222 2034 HALT EQU xXx*2 
: 0212 2035 TEST EQU  x*2128 
JED4 2C O01 1FP51 03 1966 SVC $102#3,3(2,XR2) 

0216 2036 LINK EQU x*2168 
1ED9 2C 01 1F65 05 1967 MYC $30343,5 (2,¥R2) Bea 
TEDE 2C 01 TEES 07 1968 MYC =©$ETSI0¢5,7(2,XK2) 021A 2037 PRINT EQU x2 as 
1EE3 OC 01 1P768 0000 1969 SETSIO MVC SIOALL4¢2,*%~*% (2) SETUP PROPER SIO O21£ 2038 UNPACK EQU a 
1EE9 38 20 0208 1970 TBN SBYTE3,SSHIA 0226 2039 PACK £EQU 4226" 
TEED F2 90 38 19714 JF $Y6 O22A 2040 LOAD EQD x* 224° 
TEFO 3A 08 1A3—B 1972 SBN $HT12¢1,x*088 0208 204% SBYTEO EQU x°208: 
JEPY 3A 08 IATE 1973 SBN $DISCT¢1,x° 03% 0204 2042 SBYTE2 EQU x* 20a! 
1EF8 3A 08 1855 1974 SBR SRESET¢1,X°O8* 0208 2043 SBYTE3 EQU x*20B° 
1EFC 3A 08 1A6B 1975 SBN $¥1#1,x°08" 020C 2044 SBITES £QU eo 
1F00 3A C8 1a77 1976 SEN $B10%e1,x°088 0001 2045 SsswO7 EQU oe : 
1F04 3A 08 1383 1977 SBN $B105¢71,x*08? 0080 2046 ssH10 £QU xreo* 
1F08 3a 08 1a8B 1978 SBN $B120+1,x*"08* 0040 2047 SSut1 EQU & piel 
iFOC 3A OG 1P5B 1979 SBN $1IG1#1,x°68# 0020 2048 SS¥12 EQU Xx*20 
1F10 3a O08 IFSP 1980 SBN $102¢1,x*Q8? 0070 2049 SS¥13 EQU  x*10° 
1F14 3A 08 1763 1981 SBR $103¢1,x*08* 0008 2050 ss¥14 FQU Kx*08# 
1P18 3A 08 1F67 1982 SBN SIOALL+1,x*O06* ; 0004 2051 SS#15 EQU x*OK* 
1F1c 3A O08 1F7D 1983 SBH $USY#1,x°08* 0002 2052 SS#16 EQU  x*O28 
1F20 3A O08 1F81 1984 SBN $USY¥*5,x*°08* 0607 20583 SSwi7 EQU xeoTe 
1F24 3k O08 1A8F 1985 SBN $B120«5,x*08° 0080 2054 Siw18 EQU x" B08 
1F28 2C 01 1F3C 03 1986 $Y6 MYC 8 =—s- $X#53 (2, XR2) SAVE THE ONKO 2055 SSH¥19  EQU  x*80 
1F2D 2C OF 1P42 03 1987 MVC = $$Z#5,3 (2, X82) TRANSITION, 0020 2056 SSW1A EQU x*20° 
1F32 2C 01 1F48 01 1988 MVC «6©$045,7(2,XB2) STOP, AND 0010 2057 SSW1B EQU  xX*70* 
1F37 0c 01 4F799 0000 1989 $x BVC $TRAR(2) ,*-* STARTING 0008 2058 Ss#ic e200 x*08* 
1F3D OC 01 1F93 0000 1990 $z MVC © $STOP(2) ,#-* ADDRESSES 0004 2059 SS¥1D EQU x*Qa* 
1P43 OC 01 1F9B 0000 1991 $9 B¥YC S$ASTRT (2) ,*-* 0002 2060 SSH1E EQU x*02° 
1F49 OF 01 1F93 1CCO 1992 SLC $STOP, SORE (2) 0001 2061 SS¥1PF EQU x*01* 
TFGF £2 02 08 1993 LA 8(,XR2) ,XR2 IWCRENENT RETURN ADDRESS 0080 2062 SS¥20 EQU x*e0° 
1P52 34 02 1F91 1994 ST SETOUT+3, xXR2 STORE RETURN ADDRESS i 
1P56 35 02 1F93 1995 L SSTOP,XR2 | 
1F54 31 84 0000 1996 $101 LIO t-#,xegye LOAD CURRENT 
1F5E 31 82 0000 1997 $102 LIO *=*,x*828 LOAD TRABSITIOR 
1F62 31 67 COCO 1998 $103 LIG *=#,x2g48 LOAD STOP 
1F66 F3 00 00 1999 $IOALL SIO #-8,0-% ISSUE START 1/0 
1F69 CC 87 IC7TE 2000 B SDELAY 
1F6D OD 01 1F9B 1793 2001 CLC SASTRT,SSTOP 
1F73 F2 01 06 2002 JHE $uUSY 
1F76 BD 37 00 2003 CLI 0(,XR2),x"57* 
1F79 F2 81 OF 2004 JE $9S1 
1F7C C1 82 1F7C 2005 $uSy TIO SuSY,x*82* LOOP ON BUSY 
1F80 30 84 1F93 2006 SNS S$STOP,X*84u* SENSE THE CURRENT ADDRESS REG 
1F84 OF 01 1F93 1cc0 2007 SLC S$STOP,SONE(2) WHICH CONTAINS THE ENDING ADDRES 
1F8A C2 02 0000 2008 $DS1 LA #-*,XR2 E 
1F8E CO 87 0000 2009 $ETOUT 8B +s BRANCH BACK TO #AINLINE 5 
1P92 0000 1793 2010 $sTOP pC XL2*08 
1794 0000 1F95 2011 $¥ Dc ZL2°0¢ 
1F96 0000 1F97 2012 $cOD oC XL2*0¢ 
1F98 0000 1F99 2013 STRAN DC XL2*°0° 
1F9A 0000 1F9B 2014 S$ASTRT DC XL2*° 08 
1F9C 0000 1P9D 2015 $STRT DC XL270° 
1F9E 0000 1FOF 2016 $H pc XL2*00* 
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B7 16 3270 BEQUEST FOR TESTS (BFTS)--SECTION f-- 8716 3270 BEQUEST FoR TESTS {RPTS)--SECTION 1-- 
ERR LOC OBSECT CODE ADDR STST SOURCE STATERENT CROSS- REFERENCE 


2064 *** BED OF EXPANSION *# 


ae SYSBOL T LEN VALUE DEPH REPESEBCES 
2066 * END OF HACEOS SSY¥1 A OO’ 1248 1633 1630 
20667 * %ORG SACK? A O08 1176 0710 0562 (0897 6912 
1ECF 2068 ORG ER‘ dFCRe SASTRT & 602 iF9B 2074 1840 1857 1855 1913 1922 1926 1991¢ 20674 
2069 SAY A 062 1D90 1879 1876% 12950 
1PCP 00 IFCE 2070 DC XL1°OG¢ REQUIBED PAD CHARACTER $3101 A 004% 1A86 1680 1666% 1374 14780 
2071 $B1i08 A 0OW 43876 1673 1668 19768 
1FDO 00 1fDQ 2072 NUADIG DC XL1°GO® RUMBER OF DIGITS IN TEL NUSBER $8105 A 008 1282 1679 1673 1977 
tPDt 1FDE 2072 TELNUA DS CLit TELEPHONE RUMBER S$B720 A 004 28h 1682 1679 19788 7985 
1FDC 00 IFDC 2074 CALMAD DC XL1°OO8 PLAG FOR CALL KADE $COD A 002 iF97 2012 1647® 4856 18605 19410% 1935 
IPDD 00 IPOD 2075 MaAXCAL pc IL7*0Q8 RETRY FLAG SDELAY A GO4 CTE 1804 2600 
TFDE 00 1PDE 2076 ADDER pc XL OgF SDH4Y A015 tche 4795 4756 
TEDF 00 IFDF 2077 pc XL1*00? PAD S$DB5 a 018 C56 1796 1764 
iFEC 00 1FEC 2078 NUKIB pc XL1°00 8 NUHBER OF CHARACTERS IN THE Ip SDE6 A 023 1C6D 4797 W774 
1FE1 iFEF 2079 Ib DS CLI5 Ip SDR7 A 046 IC7?D 1798 1778 
2080 SDI AB 002 BBA 1783 1683* 1754 759 1766 1773 
1FFO 1FF3 2081 REPSEL ps CLE SELECTING ADDRESS SDISCT A 003 1A%D 1612 C215 C697 19738 
1PF4 1FF7 2082 RP@EOL DS CLG POLLING ADDRESS SDLI A004 CB2 1818 1805% 
1PP8 1PFF 2083 SAVADR DS CL8 $ps1 A 00& 4F8A 2008 1963® 2604 
2084 #8 END OF EXPANSION #*© SDTA Ah 008 4B81D 14927 
PFFF 2085 ERD SE A004 423A 1938 1833* 1837 1905* 1909 
SENDSB A 004 14829 1933 18489 1871 1920 
S$EOT 2 004 1137 0686 0067 0071 0107 09106 0155 0158 0203 0206 0811 0935 
SERPLG & 001 1B&6 1781 0328 C832 1667* 1693* 1702 1710% 17188 1727% 1735® 17438 17595e 17570 
1765% 1772% 1779 
SETOUT A 008 1FP8E 2009 199492 
SETSIO A 006 1EE3 1969 1966 
SE1 A008 1236 1937 18348 7906 i 
$GGG A008 %D62 1866 1857 
$H A 002 POP 2016 1861% 1862% 1863 
SINT A008 9225 1625 1638 1641 
SINTS & 602 ASF 1681 0271 
SINTID &2 001 TASD 16480 1629% 1633% 1810 1817 
SIOCALL & 003 #1F66 1999 1969* 1932 
$XOR* a 016 18599 1785 1672 
SICRG & 019 IBAC 1786 1678 
$101 A 008 PSA 1996 1965 19792 
$302. A 004 UFSE 1997 1966® 1980 
$I03 2&8 008 F762 1998 1967 1981 
$11 A 00% ABO 17696 1686 ~ ure 
$12 A 00% %ac3 17048 1697 
Z $13 A008 AD6 1712 4705 
$14 A004 aB9 1720 1713 
$15 A 008 aPC 1728 4721 
$I6 A004 BOF 1736 1729 
$I7 A GOG 1822 1748 1737 
SLOW A 006 #1817) «#1926 
$LGH A OOt 1DAS 1896 1881* 1882 1882 
$LOP aAO06 1D6A 1870 189% 19314 
$LX1 A 006 W?3 1872 
$Lx2 A 006 DB? 1893 1873 
$1422 2&2 002 TEBE 1945 1889% 1890 
- $L1 A001 1DeE 1878 1874* 186% 1889 18938 
SHDATA A 007 EGU 1940 1846 
$HOTIN A001 4BSB 1784 0320* C690* O711= 0812% 1687 1644* 
= $NREPL A 024 1CD8 1823 1816 
* SNTRAN 2B 015 1E6D 1942 1919 
$HT12 A 004 13839 1630 1S72¢ 
- $N32 2&2 002 1ECO 1946 1872 1893 46948 
o SOAD & O04 1ECB 1964 1962" 
SORE A 001 fccO 1822 1807 1839 1852 1862 1912 4923 7992 2007 
© SORY A006 1D05 1843 1859 
& SPRING A 006 CFO 1838 1936 
SPTM30 A 004 1Ca6 1843 1809 
¥ $Q A 006 1F&3 1994 1988% 
¥. S$RDATA B O26 TESE 1961 1869 
SEEC 2&8 006 1015 1851 1841 
§ 
DATE OISAR72 21APR72 2430172 15SEP72 CIFERT7& ISPEB?S O7IGL75 PROG ID BF 1=6 : DATE — OG18AR72 21APR?2 24 I0L72 ISSEP72 OTPEB?PE 4S PEBTS O7FSUL7T5 PROG ID 674-6 
- BC RO. 6818693 818395 577658 818397 572208 572256 571781 PAGE 18 | 
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8716 3270 BEQUEST FOR TESTS (RFTS)--SECTION t-- 


SYSBOL T 


SRESET 
$SH6 
$sI 
$SIO 


$sTOP 
SSTRT 
$s0 
$s1 
$S2 
$S3 
SS4& 
$s5 
$S6 
STDATA 
STI 
$TIO 
STPRT 
STRAN 
STRBF 
STRPNT 
STIL 
ST1XX 
SUSY 
$u1 
$v1 
$v¥3 


- ATANDR 


» Al 
~ AZ” 
A3 


5 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
k 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
SY6 A 
a 
A 
a 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
Cc 
c 
A 
A 
A 
B 
A 
A 
A 
& 
A 
A 
A 


LEN VALUE 
003 1A54 
014 1035 
002 1888 
008 1£C3 
002 1F93 
002 1F9D 
007 1BB3. 
017 BC 
025 1BDD 
028 1BFS 
013  1c02 
019 1¢15 
018 1C27 
015 ETC 
003 1CBC 
008 1262 
004 1DCc9 
002 1F99 
064 EBC 
004 1cDC 
006 1201 
00& 1AA3 
004 1F7C 
008 1D8A 
00% 1A6~ 
006 1DzE1 
002 1EC2 
006 1F37 
002 1F95 
O0& 1Au8 
004 aac 
002 1A5C 
005 1P28 
006 1F3n 
002 1261 
003 1CBF 
003 1CDB 
012 OD64 
002 0D97 
002 18c3 
002 18c5_ 
001 1FDE 
001 ocus 
005 1823 
002 1976 
002 19F8 
002 19FA 
002 19F4 
002 19FC 
002 1304 
001 0008 
001 ovso 
001 1806 
002 1958 
006 OF23 
002 0F32 
002 19D~A 
002 19Dc 
002 19BAa 
002 19DE 
008 17Frz 
004 1619 
008 46BC 


" DATE 01MAR72 


. EC §O. 


s 


3 


; - | - _ - 
_—_—_—————— ee 


818693 


DEFR 


1637 
1794 
1782 
1962 


2010 
2015 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
19483 
1820 
1666 
1905 
2013 
1944 
1833 
1922 
1693 
2005 
1877 
1668 
19117 
1987 
1989 
2011 
1634 
1635 
1639 
1986 
1990 
1642 
1821 
1824 
0349 
0354 
1460 
1861 
2076 
0253 
1480 
1583 
15848 
1585 
1582 
1586 
0851 
2024 


1599 
1337 
1576 
0496 
0501 
1569 
1570 
1577 
1571 


1322 
1168 
1271 


27APRI2 
818395 


EEFERESBCES 

1974 

1749 

1682* 1685 

0056 0096 

C815 0626 

0829% 0465 

185% 7852% 

1692 

1701 

1709 

V7 

1725 

1733 

1741 

19390 

1806* 1807% 

1631 

C839 0517 

1880 1887 

C482 0509 

1918 

1688 

1983* 1984 

1896 

1975* 

1836* 1839 

1986 

1854* 1855= 

1625* 1632 

1626* 

1627* 1636 

1971 

1987*# 

1628 

1806 1870 

1803 

0335 

0322 

0409 0421 

C415 0714 

0440 0753 

0235 0237 

0258* ©0262 

C692 0716 

C717 ; 

C693 C694 

0778 0805 

C808 

0819 

0213 0401 

1804 1833 

0558 0601 

0610 

0491 0516 

04964 

C299 0365 

0059 099 

0057 0097 

0060 0100 

0925 0933 

0046* 0049 

0085* 0086s 
28IUL72 


577058 


CROSS- REFEREKCE 
1696 1708 1712 
014% 0192 0321 
0921 0929 

1838 1911 19998 
1853 1922* 19238 
1806 

1858 1861 1865 
0529 0890 0901 
2002 2005 

1840 1858 1858 
1864% 1865* 1870 
0507 0825 

0779« 

0358 0492 0915 
0803 0816 

0818 

0587 0678 0686 
1905 1962 

0604 0617 0683 

0379 0500 0772 
0147 0195 0367 

0145 0193 

0148 0196 0368 
1SSEP72. «01 FEBT7 
818397 572208 


1720 1728 1736 
0364 0378 0499 


1992* 19895 2001 
1924 


1925 19898 
09548 


1744 
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0691 0715 0771 0802 


2006* 20078 


1864 1911* 1912® 1913 


1872 1874 1875 


0710 0726 0738 
0877 


0827 0922 0930 
0381 0502 0774 


0382 0503 0695 


1890* 1925 1926 


0750 0792 


0829 0924 
0719 0775 


4 15FEB75 0730L75 
572250 571781 


0859 1666 

0932 

0806 0830 
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8716 3270 REQUEST FOR iESIS (BRFTS)--SECTICH 1-- 


CROSS- REFERENCE 
SYMBOL T LEN VALUE DEPN REFERENCES 
Au. A 008 1527 1095 C181* 01848 
BLANK A 001 1008 1588 0236 
BSCUDT A 603 OACC 0019 
CALSAD A 001 1FDC 2074 028% 03278 
CERSPN A 001 1308 0858 0064 0104 0152 0200 
CER1 A004 143F 0956 Ce60* €891 
CER2 A 004 1443 0957 0861 
CHECK A 008 OF00 0401 0061 0101 0149 0197 0369 0383 0777. 
CKacxO C 001 000% 1558 C277 0407 
CKACK? C 001 0002 1557 0374 0613 
CKACK2 C 001 0004 1556 0053 0093 0181 0189 0819 
CKENQ C 001 0010 15690 
CKEOT C 0071 0040 1552 0425 1£66 
CKETB C 001 0010 1554 0462 
CKETX C 00% 0008 1555 0857 
CKF A008 OQEF2C 0413 0408 
CKG A008 OEF3E 0849 O4t4 
CKH A 004% O0F50 0825 ce20 
CKI A004 OF68 0432 0426 
CKKEOT A006 1427 0946 6905 
CKKRFT A 006 136D 0893 C875 
CKRSTX A 006 1394 0904 C8948 
CKNAK C001 0008 1561 
CKP A 00% OEFB3 0457 0433 04887 0852 
CKR A008 OEC1 04662 0458 
CKR¥YI C001 0002 1563 1568 
CKS A 001 1003 0572 0963 0467 05068 0539 me 
CxSsS aA 006 12F1 08486 C842 
CKSTX C 001 0001 1564 
CXSTXA C 001 0020 1553 0432 
CKSW A904 12D4 0839 C807 
CKWACK C 0071 0004 1562 1567 
CLCETA A 008 1081 0638 06348 
CLET& A OOS 191F 0678 0052 0C92 0140 01988 0361 0375 O88 6824 0918 0927 
CNCL A001 18FA 1504 0S06 0308 
COUNT a 001 19CP 1548 0050* 0089* 0137* 0185* 0727 0735* 0736 
COUNTR A 003 19CE 1547 0510* 0513 0939¢ 0942 
C16 A001 19aD 1535 0813* 0634* 0862* 03863 
DSLAY1 A 906 1C8C 1807 1612 
DSLAY2 A 00% ‘CAE 1817 1811 
DSLAY3 A004 1CB6 1819 1804 
D$1 A 0048 1835 1751 1745 
D$2 A004 1848 1759 1782 
D$3 A008 1B5B 1766 1760 
D$4 AGO& 1B6E 1773 1767 
DATCON A 001 18C2 1859 0253 
DATEND A001 18F7 1497 
DCD4O A002 18EF 1488 
DIAL A004 190B 1512 0046 0085 0133 0181 
DISPWO A 001 1949 1523 0051* C090* 0138 0186 
DLE A001 18CD 1467 
DOREC a 001 1262 0809 C796 
DREAD A 002 18F4 1493 
CREADL A 001 18F7 1496 
DUMMY A OOt %9BA 1545 6555 0557 0687* 0688 0688* 0609* 0712* 0713 0713* 0714" 0793 079% 
C794* 0800* 0822 0837 0838+ 0846 0899 1582 1583 1584 1585 1586 
ESaCK aA 004 1194. 0720 0710 : 
ESD A001 ODSA 0356 03485 
ESEOT A004 1172 0702 0686* 
EBCTBL A 001 1805 1336 0621 1337 
ECHECK A 004 1022 0579 0401% 0578% 
ECLRTB A 004 1133 0682 0678 
EPOR3 A 001 14F6 1060 0133¢ 0136* 0143 0221 
EMDCER A O00& 148487 09586 0859e 
ENDEWQ A 008 1234 0780 0750 
ENDPT2 a 008 11CC 0739 0726% C734* 0737 0738 
DATE O1MART2 21APR72 24JUL72 ISSEP72 OtPEB7& IS FEB75 07J0L75 PROG ID 871-6 
EC 80. 818693 818355 577058 818397 572208 $72250 571781 PAGE 19a 
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PAGE 20 PAGE 20a 
8716 3270 REQUEST FOR TESTS (RFIS)--SECTICN 1-- 8716 3270 REQUEST FOR TESTS (KFT5)--SECTION t-- 
CROSS~- REFERENCE CROSS- BEFEREWCE 
SYSBOL T LEN VALUE DEFW REFERENCES SYMBOL T LES VALUE DEPH REFERERCES 
EXDSET A 004 ODFC 0396 0213* 0388 LOOPCZ A&A 00% OCB? 029% 0300 
EXDXYL A 004 111B 0675 CS5S87* 0590 05912 LOOPFT & 004 Oa6B 0069 0062 0065 
END? kh 002 19EC 1578 0058 LOOPE2 & 008 OAL2 0108 0102 0105 
END2 A002 49EE 1579 0098 LOOPF3 A 004 OBMYE 0156 0150 C153 
END3 kh 002 19F0 1580 0146 LOOP BY & 004 OBCA 0204 0198 0201 
ENDS A 002 19F2 1581 0194 LOOP? A 00’ 0a39 0052 C066 0070 
ENPOLL A O04 12FF 0849 C792* 0840 0845 LOOP2 A CO& OAAD 0092 0106 9109 
ERQ kh 001 18D0 1470 0488 0767 0822 LooPp3 A 00% OBIC 06140 C154 0157 
EOBD1 A001 1802 1327 0055 Loore A 008 O88 0188 0202 0205 
EORD2 A 001 1613 1170 0095 MAXCAL A 001 YFDD 2075 0318% 0330* 
EORD3 A 001 6BF 1273 0221 MILMOX A 006 OCFO 6309 0307* 0308 
EORD& 2 001 152A 1098 0194 : MSGOA A O&O 1918 1528 0868 
Bot A 001 18D1 1471 0827 O540 0689 0899 0946 MASGO1 A033 6E2 4276 0225 
ERRSR AO01 AOE 1592 MSGOZ2 A 010 1997 1518 0527 
ESPCAL A 001 18B7 1432 C646 0649 MSGO2 aA O00&6 192F 1520 9566 0570 088% 0888 
ETB A 001 18CP 1469 04648 HSGO4 AO? 7980 152% 0392 
ETEST2 C O0C1 OOF6 1171 C095) §«C0835* 1579 MSGOS A 00% 1495E 4525 O727* 0731 
ETEXT1 C 001 OOE7 1329 0055 0055* 1578 MSG06 & 018 1970 1526 0ss2 
ETEXT3 C 001 COA9 1274 0143 0143* 1580 , MSGO7 & 032 1702 1277 02483 
ETEXT&’ C 001 OODF 1099 019% 019%4% 15614 BSG08 A020 1716 1278 0288 
ETX A001 18CC 1466 0us9 MSGOS9 aA O16 1986 1527 0125 0173 
E¥RTCD A 002 T8EA 1883 5376 MTEO A 002 0D66 035060 02396 
FLES & 001 18CO 1445 0216 0218% 0275* 0387% 0406* O428% 0435% 0443 O488 08708 0879 0523s BYCS 2 008 %20C 0766 07648 
O541* 9542 0576 0596* 0611* 0633 0650 0666 NAK A 00% 18D2 1472 
PLAGO C001 0080 14K6 0672 6632 NDISP 2&8 008 1321 0865 0836 
FLAG? c 001 0080 ‘4447 0650 C660 NEG4 A 002 19B8 1543 C668 t 
FLAG? C301 0020 1448 BOACRL A097 OD&SB 0343 0283 0285 0287 0323 
FLAG3 C001 0010 445 C387 0879 ROPRT & 004 OC2C 06240 
PLAG4Y C001 GCO8 1450 0406 0523 C576 NGSECH 2 006 OFTO 04892 O04u&6 
PLAGS Cc 001 0008 4451 0605 0435 04643 NOTPFR 2&2 007 OC75 0266 0277 
FLAG6 C061 0002 1452 CH06 0426 O4eS O04870 0541 0542 BOTHE &€ 006 1208 0837 0831 0833 
FLAGF C C0041 0001 17453 0276 6218 NTLRGE & 016 ODS5 0353 6344 
PORE A001 1989 1544 C735 HUADIG A 001 PDO 2072 0286 0288 0291 0292 0307 9336 0356 
FORASC C 001 0020 1601 0599 NUBID aA 0O1 FEO 2078 0239% 0442 0757 0766 0761 0762 
FOREBC C 001 6°80 1600 0597 NXLTE A 0O4 1353 06881 ce7sE 
FOUR k 002 1010 1593 0578 6738 ONE A 003 9DS 1556 0308 6330 0429 0513 O763 0838 6863 0942 
S0GOGO A 008 1283 06832 C823 OREOT C 001 0040 1566 06416 ©0422 0836 0538 
GOSET3 A 004 OAF?7 0129 0121 CHRVI ¢ C01 0002 %4568 0410 0530 
GOSETR A 904 0873 0177 0169 ONWACK C 001 0004 1567 04410 QO£38 
HALT C001 0222 2034 C289 ORDI A 00% 171c 1268 00465 1329 ; . 
HEADER A 003 18D8 1475 0555 Ca74a ORDZ A001 152E 1106 0083 1171 
HEXFF A002 i9AC 1538 0297 0515 0626 0635 0669 ORD3 2B 001 1617 1179 1278 
TAR Cc 001 0010 2025 ORD4Y A 001 188c 0964 013% 0179 1099 
IkRO C004 0080 2029 PACK C001 0226 2039 
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PAGE 1 PAGE A 
8725 3270 BEQUEST FOR TESTS (RFTS)--SECTICN 2-- | 8725 3270 REQUEST FOX TLsiS (RFTS)--SECTION 2-— 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT . ERR LOC OBJECT CODE ADDB STMT SOURCE STATEMENT 
2 DECK 4 OAGP CO 87 0A39 70 B Loop? RETRY 3 TIBES-THES 
3 SEQ 0 . 0a73 CO 87 10D9 71 B $EOT GO T9 HEXT ROUTINE 
0A00 4 732702 START X*A00* 72 
5 TREP 72 
6% 73 eaeceusas 
7] REEEERERERERERE ESE AKERERKE EE RARE SEES EEE REREEEAESERE EOKKESERESESERSSESE 74 * BINDZ * 
8 * 75 sentennee 
9 * 3270 REQUEST FOR TESTS * 76 * ROUTINE PREFIX 
410 * * 0a77 02 OA77 77 RTNO2 = DC XL1°02¢ ROUTIKEE PREFIX 
11% * 0a78 00 0A78 838-78 pc XL17°00° KO INTERVENTIOW REQUIBED 
12 SERREKERARES ERE SEER TES EEEE ESSERE AERES EOEH RES REES SEES EERES CESS RE STEEES EE OA79 OB11 OA7A 79 pc AL2 (RTWO03) ADDRESS OF EXT ROUTIEE 
OA0O 8725 OA01 13 pc XL2°8725¢ PROGRAMS ID AND REVISION LEVEL 80 * 
OA02 00 0A02 14 pc XL1*U0* SECTION FLAGS 0a7B CO 87 OB78 84 B SETUP SETUP FOR BEXT DISPLAY 
0A03 00 0203 15 pc XL17*°008 CURRENT ROUTINE NUMBER 82 * 
OA04 0000 OAOS 16 pe XL2*008# RESERVED OA7F C2 61 19C7 83 LA END6,XR1 SETUP FOR ONIVERSAL 
0A06 CA10 0207 17 Dc AL2 (BTNO1) ADDRESS OF FIRST ROUTINE OA83 34 01 OAESB 84 st MODIFY,XB1 CHARACTER SET HMESSASE 
OAOB FFFF 0a09 18 pe XL2°FFFF* RESERVED Oas7 OC 03 15C2 18F4 85 NYC A6 (4). DIAL SET FCR DIAL UP 
QAOA 800000 oadc 19 BSCUDT DC XL3"8000C00? BSCA ENTRY CABD 38 10 OACF 86 TBN TRMUDT,X‘*10° 
OAOD 875060 CAOF 20 TRMUDT LC XL3*8750008 CONSOLE SPUT ENTRY O0A91 F2 10 06 &7 JT *¢+9 
21 0a34 OC G3 15C2 18F0 88 MVC = AG (4) , SAVPRT USE CORRECT CU AKD TEZS ADDRESS 
22 * OASA 3C Fi 1948 89 BVI COUNT, X*F1® IBWITIZLIZE COUNTER 
22 ERREEEREEEREREEEEEAEREEEERES OEAKEE HERES EERE SERA KEKE SEEDS SERE SE EESEEEEE QAXE 3C FE 1932 90 S¥zZ NISPNO, X* F6* IMDICATE DISPLAY 6 
24 * 91 2 
25 * UDT ENTRIES (BYTE OAOC) OAA2 cO 87 10C1 92 LOOP2 B CLETR CLEAR T-R FIELD 
26 * OAA6 38 80 1987 93 TBR UDTOPT, ASCII Is IT aw 
27 * BIT 0 OAAA F2 96 24 94 JP G02 ASCII TEERSIMAL 
28 * BIT 1 OAAD C2 01 19CS 95 LA END6A,XB1 YES-SETUP FOR 
29 * BIT 2 OABT 34 01 OAES 96 st MODIFY, X81 ASCII CHARACTER SET 
30 * BIT 3 AUTO CALL : OaBS OC 03 1562 18F4 97 SVC HOR6-5(4), DIAL 
31 * BIT 4 SWITCHED OABB 38 10 OAOPF 98 TBN TEAUDT,X*10* 
22 * BIT § 1920 CHARACTER BUFFER OABF P2 10 06 99 JT 49 
* BIT 6 ascii Oac2 Oc 03 1562 18F0 100 SYC BOR6-5(4) ,SAYPHT 
24 * BIT 7 PRINTER OaC8 OC B6 1776 1565 101 HVC START¢LEWASC~1(LEEASC),BOE6-2 SET FOR BFT 5S (ASCII) 
35 atch ape GacE F2 87 OC 102 J GOC# CONTIBUE 
36 * RTHOT * 103 # 
37 eae eee0n8 QAD1 OC 71 1731 1S51F 168 GO2 uYC STARTS 1L16—1 (L16) , AIDOR6—1 SET FOR 
epaiehs er ac ova Se reaan ROUTINE PREFIX OAD? OC AY 17DB 15C9 105 SVC START+¢ETEXT6-1 (L26) , EORDG6 RFT 5 (EBCDIC) 
XL ROUTINE PREFIX i 106 
0211 00 0a11 40 Dc XL7°00* NO INTERVENTION REQUIRED OADD 3c 04 19~aF 107 GOON HVYI LCCHK?,CKACK2 SET TO EXPECT ACKO TO CONBAKD 
OA12 OA77 OA13 «41 pc AL2(RTRO2) ADDRESS OF NEXT ROUTINE 1C8 # 
42 % OAE1? CO 87 1EA1 109 B $siIo DISPLAY 
0a14 CO 87 0B78 43 B SETUP CLEAR ERRORS ! OaES5 19C3 OAE6 110 pc AL2 (ASTRT) SIxTs 
0A18 CO 87 OFCB a4 B XLATE TRANSLATE GAaE7 19C7 OAES 111 MODIFY DC AL2 (ERD6) BESSAGE 
CAtC 13ED OatD 45 pc AL2 (ORD5-1) MESSAGE 5 OAES 1985 OAEA 112 pc AL 2 (ASTOP) 
OA1E 0C 03 14A7 18F4 46 avVC | = A (4) J DIAL SET FOR DIAL UP OAEB 19B7 QAEC 113 pc AL2 (ATAS DB) 
OA24 38 10 OAOF 47 TBN TRAUDT,X*10* . OAED CO 87 ODA2 114 B CHECK CEECK FOR CORRECT RESPONSE 
OA28 F2 10 06 4&8 JT *+9 ‘ Oar1 CO 87 OBOS 115 B LOOPR2 PRINT ERROR AND RETRY COUNT 
OA2B OC 03 14A7 18F0 4g HVC ©AS(4),SAVPNT USE CORRECT CU AHD TERM ADDRESS i 116 * GOOD RETURN 
OA31 3c F1 19A8 50 NVI «= COUNT, K° F118 INITIALIZE COUNTER Car5 cO 87 12AA 417 B CERSP#@ 63IT FOR INTFREUPT KEY 
0a35 3c FS 1932 51 HVI DISPRO,X*PS* i OAPS CO 87 (B05 118 8 LCOOPR2 ERROR RETURB 
0a39 cO 87 10C1 52 LooPi B CLETR CLEAR T-R FIELD OAFD CO 87 OAA2 119 B LOOP2 
OA3D 3c 04 19AF = 7 MVI LCCHK1,CKACK2 EXPECT ACKO TO COMMBARED 0801 CO 87 i0D9 120 B SEOT GO TO NEXT ROUTINE 
s 0505 CO 87 1140 121 LOOPR2 B PRINT2 PRIET DISPLAY ERROR 
OA41 OC BC 177C 18AAa 55 MYC START¢ZTEXTS-1(ETEXTS) ,EORDS SET FOR RFT 4 0B09 CO 87 OAA2 122 B LOOP2 RETRY 3 TISES-THEN 
OAS7 CO 87 1EA1 56 B $SIO TRANSMIT OBOD CO 87 10D39 123 B SEOT GO TO NEXT ROUTIEZ 
OASE 19¢3 OaA4uC 8 587 DC AL2 (ASTRT) FIPTH 128 
OasD 19C5 CASE 58 pc AL2 (ENDS) MESSAGE . 128 
OAUP 1985 0aSO 59 pc AL2 (ASTOP) 125 teeeenees 
0A51 1987 Oa52 60 pc AL2 (ATANDR) 126 * RTNO3 * 
0OA53 CC 87 CDA2 61 B CHECK C+ECK POR CORRECT RESPONSE 127 s*e48e008 
0A57 CO 87 OA6B o : ee aoe PRINT ERROR AND RETRY COUNT 128 * ROUTINE PREFIX 
ETURN 0B11 03 0B11 129 RTHOS DC XL1*03° ROUTIEE PREFIX 
Oa3e CO 87 12AA 64 B CERSPN WAIT FOR INTERRUPT KEY , 0B12 00 0B12 130 DC XL1°00° NO INTERVEKTION REQUIRED 
ASF CO 87 OA6B 65 B LCOPR1 CHECK RETRY COUNTER 0813 FRPP OBi4 131 pc XL2°PPPP® LAST ROUTINE 
0463 CO 87 CA39 66 B LOOP1 RETRY 132 * 
CA67 CO 87 10D9 He B SEOT GO TO NEXT ROUTINZ ‘ 0B15 CO 87 0B78 133 B SETUP CLEAR ERRORS 
. 2 ‘ 134 * 
O46B CO 87 1740 69 LOOPR1 B PRINT2 PRINT DISPLAY ERROR 0519 CO 87 OFCS 135 B XLATE TRAUSLATE 
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PAGE 2 PAGE za 
3725 3270 REQUEST FOR TESTS (RFIS)=--SECTION 2-~ 8725 3270 REQUEST FOR TESTS (xP1S)--SECTICH 2-- 
ERR LOC OBJECT CODE ADDE STST SOURCE STATESENT ERR LOC OBJECT CODE ADDE STHT SOURCE STATEAENT 
0B1D 15cc OBIE 136 pc AL2 (ORD7-1) MESSAGE 7 OEDD 26 OBDD 203 pc IL1°36° 
OBIF OC 03 16BA 18F4 137 MVC =A7 (4), DIAL SET POR DIAL UP OBDE 17£0 GBDF 2048 DC AL2 (HSG08) 
0B25 38 10 OAOF 138 TBN TRMUDT,X*10° OBEO CO 87 0222 205 B HALT HALT 
0B29 F2 10 06 139 JIT *e9 OBEY 8706 OBES 206 Dc XL2*8706* OF -06- 
OB2c 0C 03 16BA 18F0 780 aVC A7 (4) ,SAVERT USE CORRECT CU AND YERM ADDRESS OBE6 CO 87 OBC1 207 B KE PCHK 
0832 3c F1 19A8 741 MV¥VI COUNT, X*F1® INITIALIZP COUNTER 208 *# SAVE ADDRESSES 
0B36 3c F? 1932 142 MVI DISPNO,X*F7* INDICATE DISPLAY 7 OBEA 209 ADROK EQU * 
143 * OBEA OC 03 18CB 1FP3 210 NYC ADRSEL-1(4) ,REPSEL SAVE SELECTING ADDRESS 
OE3A CO &7 10C1 144 LOOP3 8B CLRTR CLEAR T-R PIELD OBFO OC 03 18D0 1FF7 211 HVC POLSEL-1(4} ,8P@POL SAVE ADDEYSS FOR POLLING 
OB3E 3C 04 ?9AF 145 MVI  LCCHK1,CKACK2 SET TO EXPECT ACKO TO COMSAND OBF6 OC 07 IFFF 1FF7 212 MVC =e SAVADR (8) , RP@POL SAVE ADDEESSES 
146 * OBFC OC 01 1418C&’ 18CF 213 MVC STXDC(2) ,POLSEL=2 SETUP FIXED RDDAESS 
OB4Y2 OC FO 1780 16BD 147 HVC START*+ETEX™7-1 (EYEXT7),EORD? SET FOR RFT 7 0cC62 CO 87 OFC8 214 B XLATE TRANSLATE 
OBU8 CO 87 TEA 148 B $si0o DISPLAY OCO6 T8AA 0c0O7 215 DC AL2 (DATCOB=-1) CONTROL CODES 
OB&C 19C3 OB4D 149 Dc AL2 (ASTRT) SEVENTH 0c08 CO 87 O21E 216 B UNPACK SAVE FOR 
OBUE 19CB OBYF 150 DC AL2 (END7) MESSAGE ococ 02 ococ 217 pc XL1*02* DISPLAYIEG 
0B59 1935 C351 151 pc AL2 (ASTOP) OCOD 18CA OCOE 218 DC AL2 (ADBSEL=2) 
0B52 19B7 OB53 182 Dc AL2 (ATANDR) OCOP 18F0 0C10 219 be AL2 (SAVE ET) 
OBS54 CO 87 ODA2 153 B CHECK CHECK FOR CORRECT RESPONSE Oct? CO 87 OFCE 226 B XLATE TRANSLATE 
0B58 CO 87 CBEC 154 B LOOPR3 PRINT ERROR AND RETRY COURT OCi5 18E2 OCc16 221 DC AL2 (STBL-1) COSHON COMMAEDS 
155 * GOOD RETURN 0C17 222 HOTFR £EQU * 
OB5c CO 87 12AA 156 B CERSPN WAIT FOR INTERRUPT KEY Oc17 38 20 0208 223 TBY SEXYTP3,SSUTR S ECOED 
0B60 cC 87 OB6C 157 B LOOPRS ERROR RETURNS OCiB F2 90 64 224 JP *e7 BSCA? 
OB64 CO 87 OB3A 158 3 LOOP3 OC1TE 34 08 023 225 SBN SIOERBt¢1,x*08* 
OB68 CO 87 10D9 159 B LEOT GO TO NEXT ROUTINE 0C22 F3 860 CO 226 SIOENB SIO X*co*,x*e0e EWABLE BSCA 
OR6C CO 87 1140 16C LOOPR3 B PRINT2 PRINT DISPLAY ERROR 0c25 35 AO 1483D 227 i SINTS,IRR2 LOaD INTERRUPT LEVEL 2 LIAR 
0B70 CO 87 OB3A 161 B LOOP3 RETRY 3 TIHES-THE 228 * 
OB74 cO 87 10DY 162 B $EOT GO TO NEXT ROUTINE 229 2 EXTRA RESET PUNCTIONS HERE 
163 230 # 
463 O0C29 3B FE 16A9 231 RESELL SBP FLAG,X*FE® RESET PROSRAH PLAGS 
164 seenrsans eeaeesecs O0c2D 3c 01 19~A¥F 232 H¥YI LCCHK1,CKACKO SET FOR TESTIFG ACKO 
165 * SETUP * * SETUP * 233 
166 Seeateeee THIS SUBROUTINE IS USED TO SETUP FOR FACH TEST  *##*0800% 233 
167 * PER ROUTIWE-ERRORS WILL BE BESET. 234 Seaemeses 
0678 168 SETUP £EQU * 235 * CALL ® 
OB78 3&4 08 ODA1 169 ST ENDSET¢3,ARB SAVE RETURN ADDRESS 226 eearuses 
OB7C 38 20 020A 170 TBW SBYTE2,SS#12 TERMINATE SECTION? 237 * CALL 
0B80 CO 10 19FB 171 BT $DISCT 0C31 38 18 OAOF 238 LUOPOS (73H TRHUDT,X°198¢ CHECK FOR AUTO CALL 
OB84& 38 01 18A9 172 TBN FLAG, FLAG7 FIRS? 0c35 F2 90 BS 239 JF BOACAL AED SWITCHED 
OB88 F2 10 BC 173 IT NOTFR PASS? 0C38 3D PF 1FPDC 240 CLI CALMAD,X*PF®* HeS CALL ALREADY 
OBBB 3A 01 1849 174 SBN FLAG, FLAG? SET FLAG OC3C F2 81 AB 244 JE BORCAL BEES COMPLETED? 
OBSF 38 O2 OAOF 175 TBR TRMODT,X°C2* ASCII OC3F 3D 00 IFDO 242 CLI NUADIG,X°O0® ABY TEL 8O 
0B93 F2 90 06 176 JF PPBOGT Oc&3 F2 81 AT 243 JE NOACAL I8 CORE? 
2896 Sc 39 1567 1779 177 NYC HOR6 (186) , EASCI #2 Oc46 3D OB 1PDO 244 CLI SUAMDIG,X*OB® IS TEL §G 
089C CO 47 O21A 178 EPROGT B PRINT PRIWT OC&SA F2 848 94 245 38 XLBUAM TOO LARGE? 
OBAO 06 OBAOQ 179 pc XL1°06* PROGRAM 246 
OBAT 21 OBA1 18C pc IL1#33¢ TITLE OCUD C2 01 FCF 247 LA MURDIG-1,XR1 
OBA2 179A OBA3 181 DC AL2 (8SG01) O0c51i 36 01 FDO 248 A HUSDIG,ZR1 
182 % 0c55 C2 02 16C6 249 LA STABT¢6 , XR2 
183 * CHECK UDT OPTIONS HERE 0C59 38 03 00 01 250 LOOPQZ HNN 0(,XR2) -71(,_XR1) SAVE OELY 
OBAY 38 902 OAOF 184 TBH TRHUDT, X*02¢ CHECK FOR AR OC5D 98 01 OO 00 251 MZN O{(,XR2),0(,X81) NUMERIC DIGITS 
OBA8 F2 90 Ou 185 JF xe] ASCII TERMINAL O0c61 36 01 ODOsS 252 A MTWO,XRB1 ALTERS 
OBAB 3A 80 1987 186 SBN UDTOPT ,x*80® 0c65 36 02 1985 2£3 A HEXFP,XR2 COUNTERS 
OBAP 38 04 OAOF 187 TBN TRAUDT, X*04* CHECK FOn B O0C69 34 62 0D13 254 St PNUM,XE2 
OBB3 F2 90 O04 188 JF *47 1920 CHARACTER BUPFER OC6D OD 01 6D13 19B3 255 CLC PHOS (2) ,ASTART CHECK FOR JOB 
OBB6 3a 40 1987 189 SBN UDTOPT ,X*40e 0C73 CO 84& 0C59 25h BH LOOPCZ COSPLETED 
OBBA 38 10 OAOF 190 TBR TRMUDT,X*10® SWITCHED 257 
OBBE F2 10 29 191 JT ADROK NETWORK? 0C77 CO 87 O21E 258 B UNPACK UBPACK 
OBC! OD 07 IFF7 19DF 192 KEPCHK CL RP@POL (8) , BLANK ADDRES7=. OC7B 06 OC7B 255 DC XL1°06° TELEPHOBE 
OBC7 F2 01 20 193 JE ADBOK AVAT' ABLE OC7C 16C6 Oc7D 260 pc AL2 (START46) HUABER 
194 * PRINT ERROR OC7E 16D4 OC7F 261 DC AL2(START+#20) 
OBCA 3C 00 1FE0 195 NVI NUMID,X*00* 0C80 OC OA OD13 ODI4a 262 MVC PNUM(11) ,PRUM¢1 CLEAR PRIET AREA 
OBCE cO B87 021: 196 NOPRT 8 PRINT PRINT 0c86 Oc 00 CC93 1FDO 263 SVC MLSOX¢i,NUMDIG{1) 
OBD2 cl OBD2 197 DC XL1°C1® NO ocsc OF 00 0C93 19AE 264 SLC MLBOX+1(1), ORE PUT TEL EO INTO 
OBD3 20 OBD3 198 DC IL1*32¢ ADDR 0C92 OC OA OD1I3 16D4 265 BSLSOX MVC PNODS(11) ,START¢20 PRIST BKESSAGE 
ORD 17BA OBD5 199 DC AL2 (4SG07) AVAILABLE 266 
OBD6 8706 OBD? 200 DC XL2*87068 O0cS6 CO 87 021A 267 B PRINT PRINT 
OBD8 CO 87 O27A 201 B PRINT oc9c 06 Oc9C 268 pc XL1°06* TELZEPHOKE 
OBDC 86 OBDC 202 pc XL1°86* OCOD iF 0C9D 269 DC IL1°31° BUABER 
DATE O1SART72 2TAPR72 28JUL72 15SEP72 15FEB7S O7JUL75 PROG ID 872-5 DATE 01MART72 21APR72 24 J0L72 15SEP72 IS FEBIS O7IUL75 PROS ID 872-5 
EC NO. 818693 818395 577058 818397 572250 571781 PAGE 2 EC HO. 818693 818395 577058 818397 572250 571781 PAGE 2, 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART KO. 2588496 
PAGE 3 
8725 3270 REQUEST FOR TESTS (RFIS)--SECTICN 2-- 
ERR LOC OBJECT CODE ADDS STMT SOURCE STATEMENT 
on 
OCSE 0D27 0C9F 270 Dc AL2(TNUNX) 
OCAO C2 01 1FD1 271 LA TELNUN-10,XR1 SETUP FOR 
OCA4 36 01 1FD9 272 A NUMDIG, XR ISSUING 
CCAS 34 01 0D3B 273 ST 16 ,XR1 TRE CALL 
GCAC 3C 03 1FDD 274 AVI MSAXCAL,X?03? SET FOR 3 RETRYS 
275 
OCBO 3c PF 1B69 276 SVI SNOTIM,X°FF? NO TIMEOUT HESSAGE 
OCB4 CO 87 1EA1 277 SIOCAL B $si1o ISSUE 
OcB8 0D39 CCB9 278 pc AL 2 (ACAL) THE 
OCBA 19E7 OCBB 279 pc AL2(ZERG) CALL 
OCBC 0033 OCB 280 DC AL2 (Y¥6) 
OCBE 12A8 OCBF 281 DC AL 2 (SACAL) 
282 
OccO 3C PF 1FDC 283 BVI CALSAD,X*PF® INDICATE CALL MADE 
OCC4 38 20 1B64 284 TBR SERFLG,X*20° TIMEOOT 
OCcB8 F2 90 22 285 JF NOACAL ERROR? 
OCCB OF 00 1FDD 19AE 286 SLC MAXCAL(1) ,ONE IF so, 
OCD1 CO 01 OCBO 287 BN%Z  SIOCAL-& RETRY 3 TIMES 
OcD5 CO 87 021A 288 B PKINT PRINT 
OcD9 86 ocD9 289 Dc XL1"868 CALL 
OCDA OC OcDA 290 pc IL1*128 ABORTED 
OCDB OD06 ocpc 291 pc AL.2 (ABORT) 
OcdD CO 87 0C31 292 B LOUPCNH KEEP TRYING 
293 
OCE1 CO 87 O27A 294 ILNUB B PRINT PRIST 
OCES 86 OCE5 295 DC XL1°86¢ TELEPHORE 
OCE6 1C OCE6 296 DC IL1*28° NUBBER 
GCE? 0D37 OCE8 297 pc AL2 (NTLRGE) TOO LARGE 
OCEI CO 87 0C31 298 B LOOPCH KEEP TRYING 
OCED 299 NCACAL EQU) * 
OCED 38 10 OAOF 300 TBN TRAODT,X*10* SWITCHED 
CCF1 F2 90 48 301 JF ESD NETWORK? 
OCF4 CO 87 1172 302 B PPENOQ ENQ 
OCF8 F2 87 6B 303 J REERSE CONTINUE 
304 
OCFB C3C1D3D340CIC2D6 OD06 305 ABORT DC CL12*CALL ABORTED® 
Of03 D9E3C5C4 305 
OD07 FFFE OD08 306 ATWO DC XL2*FFFE® 
ODO9 EVEVETEVE7E7TE7E7 0D13 307 PNUN DC CL14°XXXXXXKUXIX! 
CD11 EVE7E7 37 
OD14 HOCIE2ZHOEICB8C540 OD27 308 TNUMX DC CL20* IS THE TELEPHONE NO* 
ODIC E3CSD3ICSD7CBDEDS 38 
OD24 c540D5D6 3¢8 
OD28 4OCSE7TC3CSEZ40F1 0D37 309 NTLRGE DC CL16* EXCDS 11 DIGITS* 
0D30 P14OC&C9C7CIEZE2 309 
0D38 1FD1 0D39 310 ACAL ovC AL2 (BUSDIG¢1) 
OD3a 0000 OD3B 311 Y6 pc XL2*00* 
OD3C 312 ESD EQU) ot 
313 *** END OF EXPANSION ## 
OD3C OC 03 19F7 18CB 314 MVC SELECT-3/4) ,ADRSEL-1 
OD42 CO 87 OFCB 315 B XLATE TRANSLATE TO 
Ovt6 19EP OD47 316 pc AL2 (SELECT-11) CORRECT CODE 
OD4s8 CO 87 10C1 317 B CLRETR CLEAR T-R FIELD 
OD4C OC 08 16C8 19F8 318 MVC STABT#¢8(9),SELECT-2 USE CORRECT SELECT SEQUENCE 
319 
OD52 CO 87 1EA1 320 B $SIO TRANSMIT 
ODS5é 1933 Op57 321 DC AL2 (ASTART) SELECT 
OD58 19B9 OD59 322 pc AL2 (START6) 
OD5A 19B5 OD5B 323 pc AL2 (ASTOP) 
OD5C 19B7 OD5D 324 Dc AL2 (ATANDR) T-R 
ODSE CO 87 ODA2 325 B CHECK CHECK FOR CORRECT RESPONSE 
0D62 CO 87 0c29 326 B RESELL KEEP TRYING 
327 
328 * 
329 * GOOD RETURN ON SELECT 
0D66 3c 02 19AF 330 REERSE MVI LCCHK1,CKACK1 SET TO EXPECT ACK! 
OD6A CO 87 10C1 331 B CL&TR CLEAR T-B PIELD 
OD6E OC O04 16C4 18D6 332 MVC =—s- START¢4& (5) , EWRTCD¢3 
DATE O1MAR72 212PR72 2430L72 15SEP72 15PEB7S O7J0L75 PROG ID 872-5 
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8725 


ERR LOC OBJECT CODE 


OD74 
OD78 
ODTA 
OD7C 
OD7E 
0D80 
Or8s4 


o0Dn88 
Ooec 
0D90 
0D94 
ODy5 
0D96 
0D98 
OL9A 


OD9E 


ODA2 
ODAS& 
ODAC 
ODBO 
CDB4 
ODBS 
ODBC 
Opco 
ODCc3 
ODCT7 
ODCB 


(DCE 
GDD2 
ODDS 
ODDS 
ODDD 


ODEO 
ODES 
Ore? 
ODEB 
ODEP 


ODF2 
ODF6 
ODF9 
OOFPD 
0§E01 
0507 


OEOA 
OEOE 
OE11 
O£15 
0E19 


OED 
OE21 
OE25 
QE28 
OE2c 
0£30 


DATE 
EC NO. 





CO 87 TEA1 
1963 
iSBP 
19B5 
19B7 


co 
co 


3k 
co 
co 
C6 
1 


87 
87 


10 
87 
87 


1929 
8701 


co 


co 


34 
0c 
3c 
34 
34 
3B 
38 
F2 
C2 
3c 
F2 


38 
F2 
Cc? 
3c 
22 


38 
F2 
c2 
3c 
F2 


38 
Pz 
c2 
3a 
OF 
F2 


38 
F2 
C2 
3A 
3c 


35 
3D 
P2 
36 
38 
F2 


87 


87 


08 
01 
00 
01 
02 
OE 
014 
90 
01 
06 
87 


02 
90 
01 
40 
87 


04 
90 
01 
40 
87 


40 
90 
01 
02 
01 
87 


20 
90 
01 
04 
4&0 


02 
PP 
81 
02 
04 
90 


ODA2 
0D90 


18A9 
ODE 
O2°A 


0c29 
0000 


OFC? 
I9EA 
1951 
198D 
198F 
18A9 
19AF 
0B 

18AC 
19B1 
“FP 


19AF 
0B 
18AE 
19B1 
3D 


T9AF 
0B 
16BAC 
1931 
2B 


19AF 
11 
T8BA 
18A9 
1P71 
13 


19AP 
44 

18c4 
18a9 
1951 


1F77 
1FDE 
04 
1PEO 
18A9 
OA 


OTMART2 


818693 


1927 


19AE 


3270 REQUEST FOR TESTS 


ADER 


0D79 
OD7B 
0D75 
ODTF 


OD94 
0095 
0597 
OD99 


21APR72 
818395 


PART HO. 2588896 
PAGE 3A 

(RFIS}--SECTICER 2=-< 
STMT SOURCE STATEMENT 

325 

33% B $sro TRAWSHIT STX,2XC 

335 ac AL2 (ASTABT) ERASE/GRITZE, 

336 bc AL2 (START5} RESET KYBD, 

337 DC AL2 (ASTOP) ETZ 

338 DC ALZ (ATANDB) T-R 

3393 B CHECK CHECK BESPONSE 

340 B #e12 ERROB RETUORS 

341 ® 

342 * GOOD RETURN 

343 SBR FLAG, FLAG3 

344 8 ENDSET GO EETURM TO CURRENT ROUTINE 

3&5 B PRIUVT PEINT 

346 dc XL.1°C6* ERASE/@RITE 

347 dc IL1°17¢# ERROR 

348 Dc AL2 (8SG0&) 

349 oc XL2*87018 

350 B RESELL RETRY 

351 

352 ENDSET B e-% RETCRE 

353 eeaseenscee Ot SRR 
354 * CHECK # *= CHECK *® 
355 *eeeenene THIS SUBROUTINE CHECKS PCR T-B ERRORS St eterseee 
356 ® 

357 CHECK Sf ECHICK4#¢3, ARB SAVE RETURN ADDRESS 

358 aYC SSS? VE (2) , ZERO CLEAR S&S FIELD 

359 AVI POLLS¥,0 CLEAR POLL SWITCE 

360 st SAVXIE‘*,XR1 SA¥Z 

361 ST SAVXB2,XR2 REGISTERS 

362 SBF FLAG, FLAG6¢FPLAGS¢FLAGSY EESET FLAGS USED BY SUBROSTINE 
363 TBN LCCHK1, CKACKO ACKC FROA 

364 JF CKF SELECTION? 

365 LA ACKO,XR4 SET FOR TESTING 

366 BVI POLLSH,OBWACK*ONRVI POLL ON WACK OR RYI 

367 J LCCOMP GO CHRECK LINE CONTROL RESPOESE 
366 *e2¢ 

369 CKF TBN LCCHK1,CKACK4 ACK? 

370 JF CKG EXPECTED? 

371 LA ACKY, x81 SET FOR TESTING 

372 AVI POLLS#&, CNECT POLL ON EOT 

373 J LCCCSP 

374 «eee 

375 CKG TBH LCCKK1, CKACK2 acxO TO 

376 JF CK COMMAND? 

377 LA ACKO,XB1 TEST FOR ACKO 

378 aVvI POLLS, CREOT POLL ON EOT 

379 J LCCOMP 

380 *ee28 

3281 CKH Tou LCCHK1, CKEOT TEST FOR 

382 JF CKi EOT? 

383 Lh EOT,XB1 SET FOR EOT CEECK 

384 SBB FLAG, FLAG6 INDICATE ONLY OWE BYTE 

385 SLC SSTOP (2) ,OBE ADJUST AY DRESS FOR PAD 

386 J LCCOMP 

387 #00 

388 CKI TBW LCCHK1,CKSTXA TEST FOR 

389 JF CKP STX,ADDRESS? 

390 LA STXDC, XB1 SET FOR STZ,CU ADDR,DYC ADDF 

391 SEN PLAG, FLAGS SET 3 CHAR CESCK 

392 avI POLLSH, CHEOT POLL OW EOT RESPONSE 

393 *#*% 

39& * TEST LINE CONTEOL RESPONSE 

395 LCCOMP L STRAN,XR2 GET TRANSITION PIELD ADDRESS 

396 CLI ADDER,X*FF®* 

337 JE *e7 

398 A RUMID,XR2 

399 TB PLAG, FLAGS CHECK FOR 

400 JF *¢13 3 CHAR COMPARE 
24IUL72 1SSEP72 1SPEBTS O7JUL75 PROG ID 872-5 
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PAGE & ; PAGE @A 
6725 3270 REQUEST POR TESTS (BF1S)=--SECTICN 2-- 8725 3270 BEQUEST POR TESTS (RFTS)--SECTICH 2-- 
ERR LOC OBJECT CODE ADDER STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATESENT 
0£33 9D 02 02 00 401 cle _-2(3, ae2) 20(,XR1) CHECK 3 BYTES OEFPF OF 02 1947 19AE 869 SLC COUNTR(3) ,ONB 
0£37 F2 01 41 802 JNE  LCCHP WHICH WERE TRANSMITTED OF05 CO 01 OEF3 a7C BNE wWISEC 
OE3A F2 87 18 403 J CKP FIELD WAS CORRECT OF09 36 01 1985 471 A HEXPP,<ZR1 
OE3D 38 02 18a9 404 TAN FLAG, FLAG6 CHECK FoR OFOD CO 01 OECD 472 BNZ  ASIOe8 
OE41 P2 90 OA 405 JF +13 1 CHAR COBPARE OF11 35 02 1777 473 L STRAN, XR2 RELOAD TRAWSITXON ADDRESS 
OE44 9D 00 00 00 406 CLC 0 (1, ¥R2) ,0(,XR1) CHECK OWE BYTE OP15 F2 87 05 474 J SFLAG4 
OE4B F2 01 30 4C7 JNB  LCOMP1 “- 
OE4B F2 87 07 408 J CKP FIELD WAS CORRECT OF18 0003z8 OPF1A 476 WAIT1 DC X1L3*0003E8° 
OE4E 9D 01 01 00 409 CLC 1(2,XR2) ,0(,X81) CHECK T¥O BYTES RECEIVED OF1B 16c1 OF1C 4&77 START1 DC AL2 (START¢1) 
OE52 P2 01 26 410 INE  LCOMP4 878 *** END OF EXPANSION ¥# 
411 * FIELD WAS CORRECT OF1D 3A 08 18A9 479 SFLAG4 SBN PFLAG, FLAGS INDICATE LC ERROR 
412 teas OF21 CO 8? O21z 480 B PRINT PRINT 
OES5 38 08 19AP 413 CKP TBH LCCHK1,CKETY TEST OF25 C3 OF2& 481 Dc XL1"C3¢ LIEE ERROR 
0£59 F2 90 07 414 JF CEB ETX? OP26 OA OF26 482 DC IL1°108 
OE5C C2 01 18B5 415 La ETX,XR1 SET FOR ETX O¥27 1900 OF28 483 pe AL2 (§SG02) 
O£60 F2 87 Oc 4 16 J LCOMPS 0F29 8702 OF2A 484 DC XL2*86702° 
417 eeas OF2B CO 87 1CBi 485 B STRPNT PRINT XST AND RECEIVED DATA 
O£63 38 10 19AF 618 CKR TBN LCCHKI,CKETB TEST OPZP 38 02 1953 886 TBH POLLSH,ONRVI POLL 
0E67 CO 90 OFAS 419 BF CKS ETB? 0F33 F2 30 07 487 JF LCOAP2 OB BVI? 
OF6B C2 01 18B8 420 LA ETB,2R1 SET FOR ETB OF36 C2 01 1880 488 LA RVYI,XR1 SET POR RY¥I 
OE6F 35 02 1F71 821 LCOMP6 i SSTOP, XR2 CF3A P2 87 1D &8S J LCOBPS 
0E73 6D 00 00 69 422 CLC =0(1,XR1) ,0(,X22) CHECK OP3D 38 08 1981 390 LCONP2 TBH POLLSW,OWBACK POLL 
0E77 CO 81 GFAB 423 BE CKs RESPONSE OF41 P2 90 C? 491 JF iCOBP3 OM RACK? 
424 * OF44 C2 01 18B2 492 LA WACK,XB1 SET FOR HACK 
425 & ERROR OFS8 P2 G7 OF 893 J LCONPS 
OF75 38 02 18A9 426 LCOMP1 SBF FLAG, FLAG6 RESET COMPARE FLAG OF4B 38 GO 198% 494 LCGHP3 TBH POLLSW,ONEOT POLL 
&27 * OFSP F2 90 59 495 JF CKS OB EOT? 
428 + OF52 C2 OF 18BF 496 LA EOT, XB1 SET FOR EOT 
423 * SPRAC OFS6 3A 02 48A9 497 SEH PLAG, FLAG6 COBPARE ONLY ONE CHAB 
430 * CALL MACRO BY SPHAC OF5A 38 02 1829 498 LCOAPS TBE FLAG, FLAG6 CHECK OE 
831 * OFSE F2 10 OA 499 IT %e13 CHARACTPR? 
432 * IF A PRINTER IS BEING TESTED, HODIF¥Y ERROR CHFCK OF61 9D 014 01 00 500 cLC 1(2,XR2) ,0(, X81) BRANCH IPF 
433 # OF65 P2 01 43 501 JEE LCOSPS HOT EQUAL-- 
OE7F 38 01 OAOF 434 TBN TRHODT ,x*O01¢ PRINTER *eesescecengeeegsaneases. OF68 F2 87 07 502 J LCOSP7 nO STATUS 
OE83 38 10 18a9 435 TBH §©6FLAG,PLAG3 OFSB 9D 00 00 00 503 CLC 0(1, X82) ,0(,XR1) CHECK ONLY 
QE87 F2 90 93 436 JF SFLAG4& OF6F F2 01 39 504% JNE LCOAPS ONE CHARACRER 
OESA 8D 07 01 18B2 437 CLC 1(2,X82) ,WACK IS PRINTER BUSY? S05 * 
ore ee . sce 438 BRE $TRPUNT 506 * POLL YOR SEESE ABD STATUS 
c 439 LA START, XR2 Or72 507 LCOMP7 EQU 
0897 CO 87 10C1 440 B CLRTR’ ee iy ener eee OF72 3c 4O 12A9 508 BVI SWITCH, xX*80* BYPASS TIMEOUT 
OE9B 38 10 OAOF 8a TBN TRSUDT,xX*10° SWITCHED OF76 CO 67 11D~A 509 B POLL DO THE POLL 
OE9F F2 90 10 842 JF HOSHCE NETWORK? 510 
443 OP7A OD 02 199E 18C1 511 CLC DUMMNY¢11(3),HEADER AS STATUS 
OEA2 QC 00 16CO 1889 aug MVC = START{1) ,ENQ BOVE 18 ENQ OF80 F2 01 28 512 JHE  LCOBPS RECEIVED? 
OZAS C2 01 OFIC 45 LA START1,XRi USE CORRECT TRANSITION ADDRESS OF83 OC C1 19RR 1943 513 HVC SSSAVE(2),DUSNY¥¢16 SAVE If 
OFAC E2 02 01 a6 LA 1(.XR2) oXR2 OF89 38 80 1987 514 TBH UDTOPT, ASCII IF TERAIBAL 
OERF F2 87 13 447 J ASIO OF8D F2 90 06 515 JF PRER IS ascii 
OEB2 OC 03 19F7 18CB 4&6 NOSWCH HVC SELECT~3(4) , ADESEL-1 USE CORRECT ; OF90 CO 87 OFcs 516 B XLATE COVERT TO EBCDIC 
OEBS OC 08 16C8 19F8 &49 MVC —- START¢8 (9) , SELECT-2 SELECT ADDRESS OFS4 19£8 OF95 517 pc AL2 (SSSA¥VE-2) 
OEBE C2 01 1939 &50 LA START6,XB1 USE CORRECT TRANSITJON ADDRESS : OF96 CO 87 1118 578 PRER 8B SACK1 TRABSHIT ACK1 
nece - a 09 451 LA 9(,XR2) ,XR2 : OF9A CO 87 0218 519 B DRE ACh pares 
JEC5 34 01 OEDA 452 ASIO. ST ASIO1,XR1 SAVE TRANS OF9E 02 OF9E 520 Dc XL s 
OEC9 C2 01 005A 453 LA 90,XR1 WAIT UP raieo secon i OFOP 192A OPFAO 521 pc AL2 (SSSAVE) AND SENSE 
a8 : OFA1 1918 OPA2 522 DC —« AL2{8SGO3) 
OECD CO 87 1EA1 455 B $sI0 TRANSHIT : OFA3 CO 87 021A 523 B PRINT PRIEST 
OED1 1983 OED2 456 Dc AL2 (ASTART) SELECT? i OFA7 05 OPA7 524 Dc XL1*0S° SENSE 
OED3 0000 CED4 457 ASION DC  aL2{(*-*) i OFAS 18 OPA8 525 DC 8—s«sILt#248 AuD STATUS 
OED5 1985 OED6 458 pce AL 2 (ASTOP) OFAQ 1918 OFAA 526 DC AL 2 (SSG6 3) 
OED? 1987 OEDS 459 DC AL 2 (ATANDR) 4 OFAB 527 LCOSPS EQU) * 
sone 460 £ OFAB 528 CKS EQU # ieee 
EDI BD 01 01 1832 461 CLC 1(2,XR2) ,WACK WACK RECEIVED? OFAB CO FF OFAP 529 BC *+4.X 
OEDE F2 81 0C 462 JE #111 KEEP WAITING IF WACK OFAF 35 01 198D 530 L SAVIR1,ZR1 RESTORE 
CEE1 8D 01 01 18aAC 463 CLC 1(2,XR2) ,ACKO IP ACKO, PRINTING OFB3 35 02 198F 531 L SAVXE2,XB2 REGISTERS 
OEE6 F2 81 cz 464 JE CKS HAS COBPLETED OFB7 38 08 1829 532 TEN FLAG, PLAGS AHY LC 
OEE9 CO 87 ICBA 465 @112 B STRENT OFBB F2 10 06 533 JIT 49 ERRORS? 
OEED Oc 02 1947 OF1A 866 #111 mvc © 6COUNTR(3),BAITI WAIT OFBE OF 01 OFC7 19EE 534 ALC ECHECK*3 (2) ,FOUR ; 
OEF3 OD FF CEF3 OEF3 467 WISEC CLC *(256),# ONE OFC4’ CO 87 0000 535 ECHECK B +8  .30RE ccideakes 
QEFS OD 3A OEFS SERFS 468 CLC *(59),% SECOND : 53€ *etecaees 
| 1SPEB?S 0739L75 PROG ID a2 
DATE O1MRR72 = 21RPR72,©— 249UL72_-s41SSEP72. ss 1SPEB75 «073075 PRCG ID 872-5 DATE O1MAR72 21RPR72  243UL72 = 15SEP72 : z 
- BC NO. 818693 818395 577058 818397 572250 571781 PAGE & EC NO. 818693 818395 577058 818397 572250 571781 PAG 
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PAGE 5 PAGE 5a 
8725 3270 REQUEST POR TESTS {RFTS)<--SECTION 2-- 8725 3270 REQUEST FOR TESTS (2°%5)--SECTION 2-- 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STAT SCURCE STATEMEUT 
537 * XLATE * XLATE * 106B C2 02 18A4 605 XLTSE LA ESPCAL¢& ,XB2 
536 sensceeee ee eneeses - 1O€P 3A 4O 18A9 606 SBN FLAG,FLAG1 
539 « THIS SUBROUTINE IS USED TO CONVERT FROM EBCDIC 1073 D2 01 01 607 XLTSG LA 1(,2ZR1) ,XR1 
S540 * TO ASCII OR ASCII TO EBCDIC. 1076 6D 00 00 00 608 CLC 0(1,XR81) ,0(,XR2) CHECK EACH 
541 * 107A P2 81 OD 609 JE XLT5H SPECIAL 
. OFC8 542 XLATE £EQU * 107D £2 02 01 610 LA 1(,XR82) ,XR2 CR2ZRACTER 
Orcs 34 08 10C0 543 ST ENDXL¢3,A8R SAVE FOR RETUREING 1080 BD FF 00 614 CLI 0(,XR2) ,X*FF* Is THE 
OFcc 34 01 198D 544 ST SAVXR1,XR1 SAVE 1083 CO 01 1076 612 BNE XLTSG¢3 TABLE 
OFDO 34 02 198F 545 ST SAVXR2,XR2 REGISTERS 1087 F2 87 16 613 J XLATE6 
OFD4 35 02 10C0 546 L ENDXL#3,XR2 614 2 
OFD8 O£ 01 10CO 1988 547 ALC ENDXL¢3(2),TWO 615 © SPECIAL FOUND 
OFDE BS 01 01 548 L 1(,XR2) ,XR1 USE XR1 POR TABLE TO BE TRANSLATED 108A 38 40 1849 616 XLT5H TBN FLAG, FLAG CHECK POR 
OFE17 tc 00 1982 00 549 HVC XLTSW(1) ,0(, XR1) 108E 22 10 07 617 JT SUBS MCD FLAG 
OFE6 34 01 1989 550 st SAVEND,XR1 SAVE BEGINNING ADDRESS OF TABLE 1091 6C 00 00 O04 618 MVC) =: O( 1, XB 1) 5 &@(, KB2) CHASSE ZSCDIC 
OFEA D2 01 01 551 LA 1(,XR1) , £81 1095 F2 €7 08 619 J #411 TO ASCII 
CFED 3B CO 18A9 552 SBF FLAG,X*CO* RESET PROGRAS FLAGS USED BY SUB 1098 36 02 1991 620 SUBS A REGS, XR2 CHASGE ASCII 
OFF1 3D 46 1982 553 XLT’A CLI XLTS#, FOREBC FORCE 109C 6c 00 00 00 621 SVC 0(1,X81) ,0(,XR2) To EBCDIC 
OFFS ¥2 81 15 554 JE XLT2A EBCDIC? 622 *# 
OFFS 3D 20 1982 555 CLI XLTSW,FORASC PORCE 10A0 623 XLATE6 EQU- # 
OFFC F2 81 24 556 JE XLT3A ASCII? 10A0 D2 01 01 624 LA 1(,XB1) , X81 CHECK FOR 
OFFF 38 80 1987 557 TBN ODTOPT, ASCII IS IT A TOA3 4D 01 01 1985 625 CLC 1(2,X81) ,HEXFP BND 
1903 F2 10 16 558 JT XLATE3 ASCII TERMINAL? 70A8 CO 01 OFF1 626 BME LTA OF TABLE 
559 * EBCDIC TRANSLATE NEEDED 10ac 35 07 1989 627 L SAVEND,xR1 , 
1006 38 80 1982 560 TBN XLTSW, ASCII Is IT aScII 10B0 4c 00 00 1983 628 SVC 0(1,XR1) ,XLTSWet INDICATE WHICH TRANSLATION WAS DONE 
100A 72 90 a8 561 JF XLATE7 NOW? 10B5 35 01 198D 629 XLATE7 L SAVXR1,XB1 RESTORE XxR1 
562 * 1089 35 02 193P 630 L SAVXE2,X82 RESTCRE XB2 
563 * CCNVERT ASCII TO EBCDIC 10BD cO 87 0000 631 ENDXL 3 toe RETU SE 
564 632 * 
190D 3c 00 1983 565 XLT2A AVI XLTSWe1,0 INDICATE TABLE IS NOW EBCDIC 633 * CLEAK TRANSSIT AND RECEIVE FIELD 
1011 C2 02 17EP 566 LA ASCTBL ,XR2 USE XR2 FOR ASCII TABLE POINTER 10C1 34 08 10D8 63& CLETR ST ECLETR+3, ARR 
1015 3a 80 18A9 567 SBN FLAG,FLAGO INDICATE CONVERTING TO EBCDIC 10C5 3c 00 17ED 635 MVI STOP,O CLEAR 
1019 F2 87 OF 568 J XLATES 1CC9 OC FF 17EC 17ED 636 MVC START+300 (256) STOP TR 
569 * 10CF OC 31 16P1 16F2 637 AVC START#69(50),START*¢50 FIPLD 
570 * CCNVERT EBCDIC TO ASCII 10D5 CO 87 0000 638 ECLBTR B *-¢ RETURE 
571 * 639 
101C 572 XLATE3 EQU) * : 63S 
101c 38 80 1982 573 TBH XILTSW, ASCII IS IT ASCII ALREADY? 640 * THIS SUBROUTINE TRANSSITS EOT TO SELECTED TERAIBAL 
1020 F2 10 92 574 at XLATE7 YES-SKIP TRANSLATION 641 9% 
1023 575 XLT3A EQU) * 10D9 38 08 1117 642 $EOT ST ES EOT+3, ARR 
1023 3c 80 1983 576 NVI XLTSWe1,Xx*808 INDICATE TABLE IS NOW ASCII 10DD 3c 00 19,a8 643 AVI DUMAY¢17,0 CLEAR 
1027 C2 02 1I7EE 577 LA EBCTBL,XR2 USE XR2 FOR EBCDIC TABLE POINTER 10E1 OC 10 1943 1924 644 NVC = DU NNY*16 (17) ,DUBHY¢17 T-R PIELD 
102B 578 XLATES EQU) * 10E7 Oc 00 1993 18BA 645 MVC) =>: DUNN. (1) ,EOT 
102B 6D 09 90 00 579 CLC 0(1,XR1),0(,XRZ) CHECK POR 10ED 3C FP 1B69 646 MVI SNOTIN,X* PF® NO TIBHEOCT MESSAGE WASTED 
102F F2 81 OF 580 JE XLT5A CORRECT CHARACTER 10F1 CO 87 1EA1 647 B $s1o TRAUSSIT 
"032 E2 02 02 581 LA 2(,XR2) ,XR2 CHECK ALL TOFS 19D1 10F6 648 DC aL2(aD0H1) EOT 
1035 8D 01 01 1985 582 CLC 1(2,XR2) ,HEXFF EWTRIES 10F7 19D5 10F8 6349 pc AL2 (ADUA3) 
103A CO 01 1028 583 BYE XLATES 10F9 19D5 19FA 650 pc AL2 (ADUM3) 
103E F2 87 SF 588 J XLATE6 10PB 1937 10PFC 651 DC AL2 (ATANDR) 
585 * 10FD 38 20 020A 652 TEN SBYTE2,SSW12 TERMISATE SECTION? 
586 * MATCH WAS MADE 1101 CO 10 19FB 6&3 BT SDISCT 
587 * 1105 38 01 12A9 654 TBN SWITCH,X*0O1® BYPASS LIWKING? 
1041 588 XLTSA EQU- # 1109 F2 10 04 €55 JT *e7 
1041 38 80 1849 589 TBN FLAG,FLAGO Is IT 110C cO 6&7 0216 656 B LIK 
1045 F2 90 OB 590 JF CLCETA ASCII TO ~acDIC 1140 3B 01 12a9 657 SBF SWiTCH,x*01® 
1088 36 C2 1985 591 A HEXFF,XR2 1114 CO 87 0000 658 ESEOT 8B +--+ RETUES 
104C 6c 00 00 00 592 MVC) =. O.(1, XR1) ,0 (, XB2) SAVE HEW CHARACTER 659 
1050 F2 87 04 593 J *¢7 659 
1053 6c 00 00 01 594 CLCETA MVC 0(1,XR1),1(,XR2) SAVE NEW CBARACTER 660 * 
595 * 661 * 
596 * SPECIALS (ACK 0, ACK 1, WACK, BVI) 662 * ZACK1 
1057 7D 10 00 597 CLI 0{,XB1),x*#10# Is 1? 663 * 
1O5a F2 01 43 598 JNE XLATE6 A -DLE-? 664 * THIS SUBROUTINE TRANSSITS ACK1 TO THE TERSINAL BEING TESTED. 
105D 39 80 1987 599 TBF UDTOPT,ASCII Is IT 665 * 
i 1061 P2 10 07 600 IT XLTSE AH ASCII TERMINAL? , 1118 34 08 113P 666 SACK1 ST ESACK+¢3, ARR SAtV2 RETURN ADDRESS 
601 * EBCDIC 111C 3C FF 1369 667 SVI $NOTIN,X*PF® BYPASS TIMECOT 
1064 C2 02 18A0 602 LA ESPCAL, XR2 USE CORRECT TABLE 1120 3c 0G 19a48 668 MVI  DUMMY¢17,0 CLELR 
1068 F2 &7 08 603 J ALT5G 1124 dc 10 1943 19a4 669 HVC DUNBY*16 (17) ,DUMHY¢17 T-R PIELD 
6048 * ascir 112A OC 01 1994 18AE 67C MVC 8=—«-: DUBHY¥¢1(2) , ACK1 SET FOR ACK1 
¢ 
- { 
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PAGE 6 PAGE 6A 
6725 3270 REQUEST FOR TESTS (RPIS)--SECTICN 2-- 8725 3270 REQUEST FOR TElés (RFTS)--SECTICH 2-- 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMEBT ERR LOC OBJECT CODE ADDR STMT SOURCE STATESEST 
1130 CO 87 1EA1 671 B $SIO TRANSAIT 738 seenenees 
1134 19D1 1135 672 DC AL2(ADOM1) ACK1 739 ® SZPCLL ® 
1136 19D3 1137 673 pc AL2 (ADUN2) RESPONSE 740 seenceece 
1138 19CF 1139 674 DC AL 2 (ADUM8) 741 8 
113A 1957 113B 675 DC AL2 (ATANDR) 742 © SPOLL 
113c¢ CO 87 0000 676 ESACK B et 743 * 
677 *** END OF EXPANSION ¢# 744 * THIS SUBROUTINE IS USED TO PERFORM POLLING FOR MULTIPOINT 
678 * 745 * OR TO RECEIVE ONLY FOR THE SWITCHED FEATURE. 
679 ® THIS SUBROUTINE PRINTS DISPLAY ERRORS 746 *® 
68C * 11DA 747 POLL EQU- ® 
1140 681 PRINT2 EQU) # 11DA 34 O8 12A4 748 ST ENPCLL4¢3, ARR SAVE RETURN ADDRESS 
1140 34 08 1171 682 ST ENDPT2¢3, ARR 11DE 3c CO 19aa 749 NVI «- DUK MY¥¢17,0 CLEAR 
1744 0C 00 1947 19A8 683 avC  8SG05;(1) ,COUNT SAVE FOR RETURNING 11£2 OC 10 1943 19A4 750 HVC) = DUMB 16 (17) ,DUBNY417 T-R PIELD 
T14UA CO 87 O21A 684 B PRINT PRINT 11E8 38 10 OAOF 751 TBN TRAUDT,X*10* SWITCHED 
11UE C6 T14E 685 pc XL1*°C6* DISPLAY 11EC P2 10 21 7£2 JT DORZC NETWORK? 
114F 1E 114F 686 DC IL1*30° ERROR 11EF OC 03 19F7 18D0 753 MVC SELECT-3 (4) ,POLSEL-1 GET POLLING ADDRESS 
1150 1947 1151 687 DC AL2 (MSGO5) 11P5 CO 87 OFCB 754 B XLATE TIAKSLATE 
1152 8703 1153 688 Dc XL2*8703° 11F9 19EP 11PA 6755 Dc AL2 (SELECT-11) IF NECESS2RY 
1154 F2 87 04 689 3 INCNT 11PB OC 08 1998 19F8 756 MVC DUMMY¢8(9),SELPCT-2 SET FOR POLLING 
1157 34 08 1171 690 PRINT3 ST ENDPT2¢3,ARR 757 
115B 06 00 1928 1992 691 INCNT AZ COUNT (1) , FONE(1) INCREMENT RETRY COUNTER 1201 CO 87 1EA1 758 B $sIo POLL 
1161 3D F& 19488 692 CLI COUNT, xX* Fat HAVE 3 RETRYS 1205 19D1 1206 759 pc AL2(ADUM1} THE 
1165 F2 01 06 693 JNE ENDPT2 BEEN COMPLETED? 1207 19D7 1208 760 pc Ai2 (ADUB9) DISPLAY 
4468 OF 01 1171 19EE 694 ALC = ENDPT2¢3 (2) , FOUR 1209 19CF 120A 761 BC &L2 (ADUM8) STATION 
W16E CO bs LLLE 695 ENDPT2 B +-% RETURN 120B 19B7 120C 762 DC AL2 (ATANDR) 
£95 120D F2 87 66 763 J CKS¥ 
696 764% 
697 teennege 1210 765 DOREC EQU * COME HERE POR THE RECEIVE 
698 * ZENQ * 1210 3A 01 1209 766 SBN SWITCH,X*01* SEND EOT 
699 *eaeeees 1214 CO 87 19D9 767 B SEOT 
700 * 1218 3c FF 1869 768 AVI $HOTIM,X*FF* BYPASS THE TIMEOUT MESSAGE 
701 * KENQ 121C 3c 1E 1986 769 avi C16,30 ALzOW 90 SEC FOR THE RESPONSE 
702 * 770 
703 * THIS SUBROUTINE IS USED TO GAIN CONTROL OF THE LINE-- 1220 CO 87 1EA1 771 RECAGH B ss1x0 Issue 
704 « USED FOR THE SWITCHED FEATURE ONLY. 1228 19D1 1225 772 Dc AL2 (ADUS1) THE 
705 * 1226 1987 1227 773 pc AL2 {ZERO} RECEIVE 
1172 34 08 11D9 706 PPENQ ST ENDENQ+3,ARR SAVE RETURN ADDRESS 122@ 19cP 1229 774% Dc 212 (ADUMB) COMMAND 
1176 38 10 O2IA 707 TBN SBYTE2,SSW13 IP ssw13 122A 12A6 122B 775 pc AL2 (ABEC) 
117A P2 90 08 7C8 JF *o11 IS ON, ALLOW 122c 38 46 12A9 776 TBH SWITCH, X*80* SHOULD TISEQUT 
117D 3c 00 tFDE 769 avi ADDER,0 FOR RECONNECTION 1230 P2 19 09 777 JT XxaTAO BE BYPASSED? 
17181 3B 10 020A 710 SBF SBYTE2,SSH13 1233 OD 00 1993 1889 778 CLC DUANY(1) ENO WAS ENQ RECEIVED 
1185 C2 02 16BF 711 LA START-1,XR2 1239 P2 01 19 779 JHE  GOGOGO 
712 123C CO 87 10C1 780 xmTAO B CLETR 
118° 3D 00 1FF0 713 CLI SUMID,xX*00* 13 THERE 1240 OC 01 16C1 18AC 781 RVC START¢1(2),ACKO TRANSHIT 
118D F2 81 22 714 JE SERQ1 Au ID? 1246 CO 87 1EA1 782 B $siIo ACKO 
1190 C2 01 1FEO 715 LA ID-15,XR1 124a 1983 124B 783 pc AL2 (ASTART) 
1194 36 02 1FEO 716 A NUMID,XR2 USE RH ADDRESS FOR SMT PIZLD 128C 19BB 124D 786 Dc AL2 (START2) 
1198 36 01 1FE0 717 A BUAID,XR1 USE RH ADDRESS OF ID FIELD 124E 19B5 124F 785 Dc AL2 (AaSTOP) 
119C OC 00 OD3B 1FEO 718 4¥C =: Y6. (1) , NUMID 1250 1937 1251 786 Dc AL2 (ATABDR) 
11A2 OF 00 0D3B 19AE 719 SLC Y6(1),ONE 1252 F2 87 15 787 J NOTHE CONTINUE 
TTA8 OC 00 T14AF OD3B 720 HVC MVC5¢1(1) ,Y6 1255 38 20 1B64 788 GOGOGO TBH SERFLG,X*20¢* WAS THE TIMEOUT RECEIVED? 
721 1259 F2 90 OF 789 JF NOTBE 
11AE SC 00 00 00 722 sVCS MVC) 8 690(,XR2) ,0(1,XR1) MOVE ID TO XAT FIELD 125C OF 00 1966 19AE 790 SLC C16(1),O8E REPEAT FOR 90 SEC 
11B2 8C 00 01 1889 723 SENQ1 SVC 1(1,xR2),ENO MOVE IN ENG 1262 CO 01 1220 791 BZ RECAGH 
1187 E2 02 02 724 LA 2(»XR2) ,XR2 GET CORRECT 1266 CO 87 12¢3 792 3 HDISP PRINT HO INTERRUPT AFTER OWE AIS 
11BA 34 02 0D3B 725 ST ¥6 ,XR2 TRANSITION ADDRESS 126A 0C 03 199F 16C5 793 NOTHE MVC DUMMYe¢12(&@) ,START*S MOVE SOH % XX PIELD 
726 1270 OC 01 19A3 16C7 794 MVC =—- DUNN #16 (2) SSTART+7 MOVE IN SSO AND SS1 
11BE CO 87 1£EA1 727 RENO B $SIO © TRANSMIT 1276 38 80 12a9 795 CKSW TBN SWITCH,¥*80¢ SHOOLD DATA 
11C2 1983 11¢3 728 DC AL2 (ASTART) (ID) 127k F2 90 1c 796 JF EBPOLL-8 BE MOVED TO 
11C4 OD3B 11c5 729 pc AL2(¥6) ENQ 127D 38 10 OAOF 797 TBN TRAUDT, X*10° SB¥ITCHED? 
11C6 19B5 11c7 730 pc AL2 {ASTOP) 1281 F2 90 OF 798 JF CKS3 
11C8 1957 Vicg (731 DC AL2 (ATABDR) 1284 0C 03 16CC 16C5 799 SVC START¢12 (4) ,START+S Save 18 
732 128A OC 01 16D0 16C7 800 HVC START+16 (2) ,START +7 CORRECT 
T1CA CO 87 ODA2 733 B CHECK GO CHECK FOR ACKO 1290 F2 87 06 801 J ENPOLE-8 ORDER 
TICE CO 67 11BE 734 B RENQ REPEAT IF IW ERROR 1293 0C 11 16D1 19A4 RO2 CKSS MVC START¢?7 (18) ,DUBAY+17 THE -STAPT- FIELD 
11D2 3C FF 1FDE 735 AVI ADDER, X*FF# 1289 3c 00 12A9 803 AVI SWITCH,6 RESET SWITCH 
11D6 CO 87 0000 736 ENDENQ B *-2 RETURN 129D 3C 4&0 1958 894 AVI SSSAVE-2,X°80* ALLOW TO RETRANSLATE 
737 *** END OF EXPANSION ** 12a1 CC 87 0000 805 ENPOLL B (s-8 
DATE O1MAR72 21APR72 24JUL72 1SSEP72 15PEB75 0730175 PROG ID 872-5 DATE O1MAR72 21APR72 24J0L72 15SEP72 15FEB75 07J0L75 PROG ID 872-5 
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PAGE 7 PAGE 7A 
8725 3270 REQUEST FOR TESTS (RFTS)--SECTICH 2-- 8725 3270 REQUEST FOR TESTS (RFIS)--SECTICH 2-<- 
ERR LOC OBJECT CODE ADDR STBT SOURCE STATESEMT ERR LOC GBJECT CODE ADDR STST SOUBCE STATEMENT 
BCE6 136E 19EF 136F 873 DC AL2 (SELECT=-11) CORRECT CODE 
12A5 8102 12A6 807 AREC pc XL2*8102¢ 1370 CO 87 10c1 874 B CLRTR CLEAB T-B8 FIELD 
12a7 8402 12A8 8C8 SACAL pC XL2*B402¢ 1374 Oc 08 16C8 19FP8 875 avc STABT+8 (9) ,SELECT-2 USE CORRECT SELECT SEQUENCE 
12A9 00 12A9 809 SWITCH DC XL 17°00* 876 
810 *** END OF EXPANSION ** 737A CO 87 TEA! 877 B $sto TRANSSIT 
811 1372 19583 137F 878 pbc AL2 (ASTART) SELECT 
811 1380 1989 1381 879 DC AL2 (START6) 
812 * 41382 1985 1383 880 Dc AL2 (ASIOP) 
813 * THIS SUBROUTINE IS USED TO SEE IF THE RFT KEY HAS BEER 1384 1987 13865 881 pc AL2 (ATAHDR) T-k 
814 ee PRESSED--IF IT HAS, WEXT ROUTINE IS STARTED 882 * 
12AA 815 CERSEN EQU * 1386 CO 87 10C1 883 XATRST B CLRTR CLEAR T-& FIELD 
12AA 34 08 143EC 816 ST ENDCEL43,ARR SAVE 1382 OC 04 16C& 18EC 884 AVC START¢4 (5) , BSTKBD*3 
12AE 34 01 13E8 817 st CER1¢3,XB1 REGISTERS 1390 CO 87 TEA! 885 B $sto TEAMNSAIT 
1282 34 02 13E8 818 st CER2¢3,XR2 1394 1983 1395 886 pc BL2 (ASTART) RESET 
12B6 3C 18 1986 819 AVI C16,24 SET FOR WAITING A TOTAL OF 90 SECONDS 1396 19BF 1397 687 pc AL2 (START5) KEYBOARD | 
12BA OF 00 1986 14AE 620 REPPL1 SLC C16(1) ,ONE 1398 1985 1399 888 DC AL2 (ASTOP) 
12C0 F2 01 OE 821 JZ REPP1 139k 1987 1398 889 pc AL2 (ATANDR) 
12C3 CO 87 O21A 822 NDISP B PRINT PRINT 139C 3C 01 12a9 890 AVI SWITCH, X*OT® 
12C7 46 1207 823 pc XL1*%4u6t NO INTERRUPT 1349 CO 87 10D9 891 B SEOT XST EOT TO ALLOW DATA ENTRY 
12c8 28 12C8 824 DC IL1*4qQ¢ AFTER ONE SIN- 13a4 CO 87 022A 892 B LOAD LOAD HEXT 
12C9 1981 12CA 825 Dc AL2 (§SG09) NEXT DISPLAY 1348 40 1348 893 DC XL1*°a0° SECTION (ABWORSAL TERMINATION) 
12CB 87A2 12CC 826 pc IL2*87a2° WILL BEGIN 894 8 
12CD CO 87 0216 827 B LINK GO TO NEXT ROUTINE 1349 OC O02 19A7 19AB 895 REPPOL MVC COUNTR(3) , WAITS wal? 
12D1 3A 80 1249 828 REPP1 SBN SWITCH,X*80°* SET FLAG FOR MNOVINSG POLL DATA V3AP OD FP 13AF 13AF 896 W4SEC CiC (256) ,* FrouR 
12D5 CO 87 1T1DA 829 B POLL DO THE POLL 1325 OD 3A 13B5 13B5 897 CLC ¥*(59),* SECOEDS 
830 * 13BB OF O02 1947 19AE 898 SLC COUNTR(3) ,ONE 
12D9 OD 02 16CB 18C1 831 CLC START¢11 (3) , HEADER SOH,%,8 13c1 CO 01 13AF 899 BE B&SEC 
12DF F2 01 2D 832 JNE CKKRFT 13C5 CO 87 123A 9c0 B REPPL1 
1V2E2 OC 01 I9EA 16D0 833 AVC SSSAVE (2) -START+16 SAVE SES 901 © 
12E8 38 80 1987 a34 TBN UDTOPT, ASCII 13C9 OD 00 16C9 18BA 902 CKKEOT CLC START¢S (1) , BOT WAS EOT 
I2EC F2 90 6 835 agP NXLTE 13CP CO 81 13A~A9 203 BE REPPOL RESPONSE? 
12EF CO 87 OFCB 836 B XLATE FORCE XLATE 904 ERROR RESPORSE 
12P3 19E8 12F4 837 pc AL2 (SSSAVE-2) TO EBCDIC %3D3 CO 87 O21~a 995 B PRINT PRIUT 
12F5 CO 87 O21E 838 WXLTE B UN PACK UNPACK 13D7 C2 13D7 906 pc XL1*°c2¢ IKCORRECT 
12F9 02 12F9 839 DC XL1*02° S&6S 13D8 12 13D8 9C7 pc IL1*18° RESPONSE 
12FA 19EA 12FB 840 pc AL2 (SSSAYE) FOR 132D9 1959 13Da 908 BC AL2 (§S606) TO THE POLL 
12FC 1918 12FD 841 DC AL2 (8SG03) PRINTING 13DB 8705 13DC 0-909 DC XL2°8705°* 
12FE CO 87 O21~A 842 B PRINT PRINT 13DD CO 87 1ICBA 910 B STEPNT 
1302 c2 1302 843 pc XL 1°C26 SENSE 917 
1303 18 1303 gue DC IL1*2u¢ AND 13E1 C2 01 0C00 912 CERI LA *-* XR1 RESTORE 
1304 1918 1305 845 pc AL 2 ("SG03) STaTus 13E5 C2 02 0000 913 CER2 LA e-* , XB2 REGISTERS 
1306 8704 1307 846 pc XL2°8704? 13E9 cO 87 0000 914 ENDCER B t-8 RETUER 
130R CO 87 ICBA 847 B $TRPUNT PRINT XBT AND RCV DATA G15 SFSeee SEEKERS SS SE EOEEEE ES £O84EE FES EEEEEESEEEEETEESEEESECEREEKEORESE 
130C F2 87 D2 848 J CER1 916 SEROSE EE EEKESEEEEEESESEESES OFEEEES ESE SEKAHEHESESSETERECEERE RE 
849 « 917 = MESSAGES FOR TEST 5 
¥30F OD 02 16CB 18BE 850 CKKRFT CLC START 12 (3) eT5STB I? RPT {SOH % 7/) 918 FERERSEEEKAEKESKKES SASHES KS OF KK EE SOECSTEE ESEE KES EKETE DOESELE 
1315 F2 01 14E 851 JNE CKKSTX PRESSED, GO TO NEXT ROUTINE 13ED 00 13ED 319 boc XL1°0C* PAD 
1318 38 10 OAOP 852 IBN TRAUDT,X*10® 13EE 920 ORDS EQU * 
1371C CO 90 0216 853 BF LINK 13EE 0227 13EF 921 DC XL2*0227° STX-ESC 
1320 cO 87 1118 8£4 RACK? B $ACK1 TRANSMIT ACK1 13F0 PS 13F0 922 pc XL1*P5° CMD-ERASE, WRITE 
1324 OD 00 71995 16BA 855 CLC DUMMY#¢2 (1), EOT IP SWITCHED 13F1 6P 13F1 923 pc XL1°6F¢* WCC-STABT PRINT/64 CHABS PER LIWE/ 
132A CO 81 0216 856 BE LINK NETWORK 924 * SOUND ALARS/RESTORE KEYBOARD 
1322 CO 87 1CBA 857 B STRPRT 13P2 1D60 13F3 925 Dc XL2* 1D60° SP/MORSAL INT/PROTECTED 
; 1332 cO 87 1320 85e B RACK1 13F4% C6D6L9KXOC3DZEGE2 1415 926 pc CL38*°FOR CLUSTERED PRINTERS DATA SHOULD® 
859 * 73FC £E3C5D9C5C440DT7D9 926 
1336 OD 0C 16C9 18B4 860 CKKSTX CLC START+9 (1) ,STX START OF 1404 CIDSE3ICSDIEZ40C4 926 
133C F2 61 BA 861 JNE  CKKEOT TEXT? 140C CITE3C1I40B2CBD6 EU 926 
133F OD 00 16CC 1883 862 CLC STABT¢ 12 (1) ,CNCL WAS CANCEL 1414 D3C4u 926 
1345 F2 81 OA 863 JE *e13 Ds IBRED? 1416 40E2E3CIDOE340D5 14832 927 pc CL29° START NEXT LINE HERZ -~----->* 
1348 OD 00 16CA 18E3 864 CLC START+¢10,CHCL TQ7TE CSE7E340D3C9D5C5 927 
2 134E CO 01 13A9 865 BNE REPPOL 1426 40C8C5D9C5406060 $27 
1352 38 10 OAOF 866 TBR TRAUDT,X*°10* SWITCHED T4ZE 606060606E 927 
% 1356 F2 90 OB 867 JF #414 NETWORK? 1433 C3C8C5C3D2C9D5C7 1458 928 DC CL3I8°CHECKIEG PROGRAMS TAB/ERASE UMPROT. TO * 
1359 CO 87 1118 868 B SACK1 RESPOND 143B 4YOLCIDIL6CTL9CIDS 928 
135D CO 87 1172 869 8 PPEKQ EXO 1443 4YOESC1C261C5D9C1 928 
1361 F2 87 22 870 J XMTRST GO RESET KEZBOARD T4BB E2CSUDESNSDIDODE 928 
1364 0C 03 1927 18CB Wy i BYC SELECT-3 (4) , ADBSEL-1 1453 E24B40E3D640 928 
136A CO 87 OFC8 872 B XLATE TRANSLATE TO 1459 CICKC4DIBICUESDT 1472 929 DC CL26* ADDR/DUP/PIELL MARK ORDERS® 
DATE O1MAR72 27APR72 2430L72 1S5SSEP72 1SFEB75 C7J5L75 PROG ID 872-5 DATE O1MAB72 2TAPR72 24J0L72 1SSEP72 1SPEB75S 0733475 PROG ID 872-5 
- BC NO. 818693 818395 577058 818397 572250 571781 PAGE 7 EC NO. 818693 818395 577058 818397 572250 571781 PAGE 7k 
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PAGE 8 PAGE BA 
8725 3270 REQUEST FOR TESTS (RFTS)--SECTION 2-- 8725 3270 REQUEST FOE TESTS (KETS)--SECTICH 2-- 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESENT ERR LOC OBJECT CODE ADDR STMT SGUECE STATEBEST 
1461 61C6C9CSD3ICU4ODS 929 74P8 Clue ieF79 $89 pc EL2°*c1ure 79 
1469 CiD9D24OD6D9CHCS 929 TQPR 7D40 14FB $90 pc XL2¢ipace SF-ATTE GHPROTECTED/EORRAL XIHTEUSITY 
1471 DIYE2 $29 : S94 
930 * TEPC &4142434445668748 150% 932 pe XL9° 4442824885 86476849! 
1473 11C3F0 1475 931 pc XL3*71C3F0¢ SBA 240 1504 &S $92 
1476 13 1476 932 ne XE7T*43¢ INSESBT CIRSOR 71505 53525354655565758 1505 $93 pc XLS €5752535655555758596 
1477 IDPB 1678 933 c XL2° iD¥FBS AUTCSKIP, PROTECTED, HIGH INTPRSITY 750D $9 993 
4479 3CCS8O0Pi 147C 934 pc XLS *3CCSHOFTé RA 320 (7*S) ISCE 6263646566676863 1515 996 pc KL8* 6263646566676869° 
935 © 15416 79719727376757677 15iP 9985 pc XE10°707172737875767778798 
147D 1DC8 147E 936 pe XL2* 1pce* UNPROTECTED, HIGH INTENSITY 451E 7879 395 
1U7F 30C650 1681 937 DC XL3"*3cc6sce RA GOO (A*S} . 996 & 
4482 C1 1882 938 pc CLitaé REPEATED CHABRACTER 1526 $97 HIDOR6 EQU #& 
939 * C072 998 L16 EQU -ORD6 
1483 1D60 1484 940 DC XL2*7D608 PROTECTED, NORKAL INTENSITY 999 « 
1485 3CC75P 1487 947 pC XL3°3CC75F8 RA &79 (BS) 1520 13 1520 1000 pe XE7°a78 SBA 
14688 C2 1488 942 pC cLie Be REPEATED CHARACTER 952% CIPT 1522 1001 pc XLZ°ctpre 419 
943 * 4523 1D60 1526 1002 DC ¥L2¢ 1D60# SP-ATTP PROYECTED/HOBSLEL LETERSITY 
1689 11 1489 S4e ac XL7¢ 178 SBA (1 IS TO PRECEDE PROGRAH TRB) 4003 # 
148A C&DT 148B 945 DC XLZ*cup7° 279 4525 CiC2C3C4CS5CE6CTCBR 152D 1004 DC XL9&€CIC2ZC2CHCSCECTCECSe 
W48C PI T48C 946 pc CLi¢i® 52D C9 1004 
188D GS TOD 947 pc XL1*05? PROGRAK TAZ 152E DtD2D3DSD5D6D7D8 1536 1005 pc EL9* DiD2ZD3D&PSDEDIDEDS* 
948 ® 1536 D9 4055 
148EB 11CS5E3 1490 949 pc XL3° 11C5E8# SBA 360 41537 E2E3E4R5SESEVTEBES 153E 1066 pc XLS * EQESESESEG EVESES®* 
14214 420650 1493 950 pc XL3*42C650¢ EUA 406 153P POFIF2P3F4ESF6F? 1548 41067 Dc XLIC* FOF IFZF3S PUPS F6FIFSFS? 
954 * 1587 PSFO 4007 
1494 41 14S4 982 Dc XL7*71° SBA 2008 * 
1895 C64KA 14896 953 dC XL2°*C64asé 3394 7569 724 1549 1008 pc YEG att SBA 
1497 101£1519 1492 954 oc XL4&°1C1E1519° DUP/PIELD HARK/BHEW¥ LIBE/EOS 4548 C25F 158B 1010 pc XL2"*C25F° 153 
955 ® 154c 1D60 154D 101% pc XL2° tDaGoe SP-ATTR UEPROTECTED/HORBAL INTENSITY 
149B 1% 149B 956 pc XL1°14¢ SBA 1012 # 
149C C3E6 145D 957 Dc IL2*C3E6¢ 230 1S5S8E 4OSO6061COLC EOE! 1555 1013 pc 1L8*80506067CCDOEOCET * 
149F IDEB 14SF 958 bc XL2*1DE8* SF-ATTR HIGH INT/PROTECTED 1014 ¢ 
1480 CIC4D960 i4a3 959 bc CL&*ADR~® SELECTION ADDRESS TO FOLLO# 4556 14 1556 10715 pe XLi° 11° SBA 
WAG 00000000 14A7 960 AS DC XL4°00000000' STORAGE AREA YOR SELECTION ADDR 41557 C3C7 1558 1016 pc XL2*cC3c7e 199 
961 * #559 1D650 455A 1017 Dc XL2°1D60 ® SP-ATTR PROTECTED/HORBAL INTENSITY 
74Aa8 1D60 WA 962 pc XL2*1D60* SP-ATTR WORHEAL IHT/PROTECTED 1078 ® 
T4RA 03 14RA 963 FORDS nC XL1*03¢ ETX 155B 4A 4SBUCGDS EGF 1560 1019 Dc XL6* HAS BACH DRES PE 
O0OS8D S6& ETEXTS EFQU *-ORDS LEEGTH OF ORDSS 1561 SASBSCSDSE5S® 1566 1020 pc XL6° SASBSC5SDSESF®e 
14A3 PFFP tWac 965 bc XL2°*FFFFé END OP MESSAGE 5 1567 1021 BORG EQuU * 
966 1567 6A2686C6D6 E6F 156C 1022 DC XL6* 6ASB6C6D6EGP* 
966 156D 7A7BIC7D7E7F 1572 1623 pc XL6* 7A7BICTIDIETE® 
SLs SHKEAKKSTEKKEKERSKKEKNRSSCARSE SAKSEEKEKKAKGERSTRESEKEEKERD 1028 * 
968 * MESSAGES FOR TEXT 6 #573 11 1572 1025 DC xLt* 11° SBA 
969 FHeSSe AEE EE ET SEEREREERE EERE TEE ARSERSEESESE RESES 1574 C36F 1575 1026 pc XL2°C36F* 239 
THAD 00 14AD 976 Dc XL1"00° PAD 1575 1D4c 1577 1027 pc XL2¢ 1D40¢ SP-ATTE UNPROTECTED/SORSAL IETESSITY 
WAE 971 ORD6 EQU ® 1028 * 
WAE 0227 WAF 972 Dc X1L2°02278 STX-ESC 1578 CACBCCCDCECF i57D 1029 pe XL6* CACBCCCDCECR® 
14BO PS 14B0 $73 pc XLi¢P5¢ CHD-ERASE, WRITE 157E DADBDCDDDEDF 1583 1030 pc XL6* LADBDCDDDEDF® 
974 * UNIVERSAL 3270 TEST PATTERN (RFT MESSAGE) 1584 EREBECEDEEEF 1589 4031 pc XL6* EREBECEDEEEFS 
1451 oF 14B1 975 Ye XL1¢4Fe BCC SOUND ALARA/RESTORE FEYBOARD/ 158A PAPBFCFEDFE iS8E 1032 pc XL5* PAPBFCPDFE* 
976 © START PRINT/132 CHARS PER LIHE 1033 * 
T4B2 8182838485868758 I4BP 977 Dc XL14*° 8182838485868788898A8C8DSESFE 156P 11 158F 1034 DC XL1°4198 SBa 
T4BA SOIBARCBEDBESF 977 1590 C4D?7 1591 1035 DC XL2*cupve 279 
18CG 9091929394959697 tucD 978 pc XL1U "909 192939495 96979899929 D9ESF® 4592 1D66 1593 1036 pc XL2* 1D60® SP-ATTR PROTECTED/NORMAL INTENSITY 
14C8 S9B99SA9D9E9P 978 1594 DS61D340C3C8C5C3 159C 1937 pc CL9°*N/L CBECK® 
979 * 159C D2 1037 
V4CE 11 WQCE 980 Dc XL1*°1998 SBA 159D 158515B515 15a1 1038 pc XL5* 1585 15B515¢ 
1UCP 4OET 14DG «981 Dc XL2*40E7® 39 1039 «© 
14D1 1D60 14D2 982 pc XL2*1D60* SF-ATT.. PROTECTED/NORMAL INTENSITY 1502 17 15a2 1040 pc xL1°418 SBA 
983 * 153 C540 15a8 1041 pe xL2*°cS5aoe 320 
THD3 AZAJAGASAGATASA9 14DF 984 DC XL13*A2A3A4 ASAGATAGRORAACADZEAF® 15a5 CSD6D440C3C8C5C3 15AD 1042 pc CL9* FON CHECK® 
14DB AAACADAEAF 984 15AD D2 1042 = 
18E0 BABBBCSDBEBPS808B I4EC 985 DC XL13* BABBBCBDBEBFS08B9BSCRZOATAB® 1SAE B919 ISAF 1043 DC XL2*B9 19° END OF HRESSAGE (ALT.CODES) 
1428 SBOCACATAB 985 1044 * 
TUED BOBIB2B3B475B6B7 14F6 986 DC XL10*BOB1B2B3E475BKB7B879* 15B0 71 15B0 70485 pc a ; te 
14F5 BESTS 1 046 Dc XL2*C68P = 
987 = ies Ge tee NG DC XL2? 1D4&0*® “. “ATTE UMPROTECTED/SORMAL INTERSITY 
VaP7 11 14PF7 988 pc xL1¢°14° SBA 1048 * 
DATE OTMAR72 21AF R72 24JU0L72 I5SEP72 ISfEBI5 O7JUL75 PROG ID 872-5 DATE O7HAR72 246. ?R72 2uJUL72 45SEP72 ISPEB?TS O7FIUL75 PROG ID eee 
Ec NO. 8718693 818335 577058 .818397 572250 871781 PAGE 8 EC NO. 818693 818395 577058 818397 572250 571781 PAGE 
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8725 3270 REQUEST FOR TESTS (RF1S)--SECTICH 2-- | 8725 3270 REQUEST FOR TZST (RFIS)--SECTICN 2-- 
ERR LOC OBJECT CODE ADDR STAT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATESENT 
1585 13 15BS 1049 pe XL1* 158 INSERT CURSOR 1682 E28OD7LT9C9NS£3 1160 
15B6 11 15B6 1050 pe XLV°418 SBA 1689 19 16889 1101 DC XL1°19¢ END OF HESSAGE 
45B7 C7D6 15B8 1051 pc XL2°C7D6° 470 1102 * 
15B9 1DE8 155k 1052 Dc XL2°1DE8* SF-ATTR HIGH IHT/ PROTECTED 168A 15 168A 1103 pc XL1°159 VEU LINE 
ISEB C1C4D960 ISBE 1053 DC CL4Y*ADR-* SELECTION ADDR TO FOLLOW 168B FP2DSCU4OCSDED4YO 16AC 1104 DC CL34*2ND FOM LINE KOT OF PRINTER OUTPUT* 
15BF 60000000 15C2 1054 A6 Dc XL4°000000008 STORAGE AREA FOR SELECTION ADDR 1693 DICIDSC540D5D6E3 1704 
1055 # 169B 40D6D540D709C9D5 1104 
15c3 1D40 15C4 1056 Dc XL2*1D40° SF-ATTR NORMAL INT/UNPPROTECTED 16A3 E3CSDS4ODG6EGE3D7 1104 
15c5 11 15SCE 1057 pc XLU9918 SBA 16AB ESE3 17048 
15CS C4C7 15C7 1058 pc XL2*C&CcT* 263 16AD 79 16AD 1105 DC XL4#19°¢ END OF SESSAGE 
15C8 FP 15C8 1059 DC XL1¢FF¢ INSERT PROBLES CHARACTER 1106 * 
15c9 03 15C9 1060 EORD6 oC XL1*03* ETX 16AE 11 16AE 1107 DC XL1¢17¢ SBA 
011C 1061 ETEXT6 ECU *-ORD6 1T6AF C7D6 16BC 1108 DC XL2°C7D6* 870 
OOAA 1062 126 EQU *-MNIDOTE6 16B1 1DE8 16BZ 1109 DC XL2*1DE8* SF-ATTR HIGH INT/PROTECTPD 
1SCA FFFF 1SCB 1063 Dc XL2‘PFFF* END OF MESSAGE 6& 1110 * 
1064 16B3 Ci1c4Dp960 16B6 1111 Dc CL4tADR-* STORAGE AREA POR SELECTION ADDR 
1064 16B7 00000000 16BA 1172 A? DC XL&*00000000° STORAGE 2REA FOR SELECTION ADDR 
1065 SHKSEEAKEKKEAKKEKESES SETH CLA SAKAAEAKEKRAKER KEK ARERR SEERREEKERE 917113 2 
1066 * MESSAGES FOR TEST 7 16BB 7D40 16BC 7114 Dc XL2*1D40¢ SP-ATTR NORMAL INT/UNPROTECTED 
1067 REKAKKAKRARKSEEKRKKEEERKE KEES SRHEKKEREREKEAKERSHEESEREKAKS ERE VT6BD 03 GED 1115 EORD? pc XL1*O03¢ ErxX 
tS5cc 00 15CC 1068 Dc IL 1*00* PAD 0OF1 1116 ETEXT7? EQU *-ORD7 LENGTH OF ORDERS FOR TEST 7 
15CD 1069 CRD7 EQU * 16BE FPFF 16BF 1117 pc XL2‘°FFFF® END CF MESSATR 7 
15CD 0227 I5CE 1070 pe XL2*0227° STX-ESC VLG SESH eee TEREERERAESTESRELEE ERE EEASEEST HERSERSLERESES 
15CF FS 15CF 1071 pc XL1°F5¢ CHD, ERASE-WRITE 1119 * MESSAGES FOR TEST 7 IF AR ASCII TERMIWAL 
15DC WF 15D0 1072 pc XL7* are WCC-BSTRE KYBRD/SND ALRS/STRT PRHF 4120 ESSERE SERERSAEKE SES SHSCSARKESESESEEASSS HE ESEK ESERERESEHRARSE 
‘15D1 D5C5SE640D3C9D5C5 15E7 1073 Dc CL23*WEW LINE FUSCTIOR CHECK® 16CO 1121 START EQU) * 
15D9 GOC6ESDSC3E3C9DE 1073 16C0 00 16CcC 1122 pc XL1*00¢ 
15B1 D540C3C8C5C3D2 1073 16C1 1123 ASCICD EQU) ® 
1074 2 16C1 0218 16CZ 1124 pc XLZ*021B* STX-ESC 
15E8 15 1SE8 1075 pc XL1°15# HEY LINE 16C3 35 16C3 1125 pc XL1°358 CMD-ERASE, WRITE 
15E9 DSCSE64O0D3C9D5C5 15F9 1076 DC CLI7V*BHEW LINE FONCTION® 1126 * UBIVERSAL 3270 TEST PATTERH (RFT AESSAGE} 
15F1 “OC6ESL5C3E3C9DE 1076 16C4 21 16C4& 1127 DC XL1*21° WCC SOUND ALARA/RESTORE KEYBOARD/ 
15F9 DS 1076 1128 * START PRINT/132 CHAES PER LIEBE 
1077 * 16C5 8041424344454647 16D4 1129 DC XL16°808 1824 38GU5U68 7TEBUINAUBUCKDUEN FE 
1S¥A 15 I5SPa 1078 DC XL7°15¢ BE® LINE 167D 4BU94ANBUCEDY EGP 1129 
15FB DSCSE640D3C9D5C5 1602 1079 pc CL8*NEW LINE 1130 ® 
1080 * 1605 11 16DS 113% pc XL1°178 SBA 
1603 15 1603 1081 eS XL1°15¢ NEW LINE 16D6 2058 16D7 1132 pc XL2*2056¢ 32. 
1604 DSC5E6 1606 1082 pc CL3*NEWS 16D8 1D2D 16D9 1133 DC XL2°1p2p* SF-ATTR PEOTECTED/WORHAL IBTERSITY 
1083 * 1134 ® 
1607 15 1607 1084 pc XL1*15¢ WES LINE 16DA 5051525354555657 16£9 1135 pc XL16 *50515253545556575859 5k SBSCSDSESF® 
1608 DSCSE640D3C9D5C5 160F 1085 Dc CL8*NEY LIRES 16£2 58595A5BSCSDSE5F 1135 
1066 * 1136 * 
1610 15 1610 1087 pc XL1°45¢ HEW LIRE 16EA 11 162A 1137 pc xL1¢418¢ SBA 
1611 DSCSE640D3C9DSC5 1621 1088 DC CLI7*NEW LIBE FONCTIOB® 16EB 4121 16EC 1138 Dc XL2*°6121¢ 79 
1619 YOC6ESD5C3E3C9D6 1638 16ED 1D20 I6EE %139 pc XL2*1D208 SP-ATTBR UMNPROTECTED/HORMAL INTERSITY 
1621 DS 1088 1140 * 
1089 * 16EF 606162636%656667 16FE 1141 pc XL 16° 60616263646 566676869626 B6C6D6EG F* 
1622 15 1622 1090 Dc xL1°15? HEW LINE 16F7 68696A6B6C6D6E6F 1141 
1623 DSC5SE640D3C9DSC5 1639 1091 Dc CL23"NEW LINE FUNCTION CHECK? 1142 * 
162B 4OC6E4D5C3E3C9D6 1091 16PP 11 1GFP 1183 pc XL1°718 SBA 
1633 DS40C3C8C5C3D2 1091 1700 4137 1701 1144 DC 1L2°8137¢ 119 
1092 * 1702 1D2D 1703 1145 pc XL2°1D2p* SF-ATTER PROTECTED/NORHAL IHTENSITY 
163A 15 163A 1093 pc XL1°458 NEW LIKE 1146 *® 
163B 1D4C 163C 1094 pc XL2°1D4c® NON DISPLAY,HON PRINT, WON DETECTABLE 1704 7071727374757677 1713 1147 Dc XL16°707172737475 76777879 7A 7BICTIDIETE® 
163D E3C8C9E2Z40C4CIE3 1665 1095 pc CL4S1°THIS DATA KOT VISIBLE/EOM AND N/L IGHORED® 170C 7BISTATBICTIDIETF 4147 
1645 CI4ODSD6EZ40E5C9 1095 1148 * 
164D E2C9C2D3C561C5D6 1095 1714 11 1714 1149 DC XL1°918 SBR 
1655 D440c1D5C440D561 1095 1715 &25E 1716 1150 Dc XL2*42SE* 159 
165D D340CS8C7D5D6D9C5 1095 1717 1D20 1738 1151 pc XL2*1D20# SF-ATTR UNPROTECTED/HORMAL INTENSITY 
1665 ca 1095 12152 * 
1096 * 1719 3031323334353637 1728 1153 Dc XL 16 * 3031932333435 363738393A353C3D3E3F* 
1666 1519 1667 1097 Dc XL2* 15196 NEW LINE £EOM (IGH3ORED) 1721 38393A3B3C3D3E3F 1153 
1668 %DU0 1669 1098 pc XL2°1D40® SP/NORMAL IHT/ UNPROTECTED 1154 @ 
1099 * 1729 11 1729 1155 pc XLt* tie SBA 
1668 CSDSC460DEC6E60D4 1688 1100 pc CL31*EHD-OF-AESSAGE-TERNINATES PRINT® 172A 4347 172B 1156 Dc XL2*8347* 199 
1672 CSE2E2C1C IC5S60E3 1100 172C 1D2D 172D 1157 pc XL 2* iD2p* ‘*“-ATTB PROTECTED/NORHAL XBNTEUSITY 
167A CSD9DUCSDSCIE3CS 1100 1158 * 
DATE O1MAR72 2TAPR72 2430L72 15SEP72 1SFEB75 O7JUL75 PROG ID 872-5 DATE OTMABTZ 21APR72 24JUL72 15SEP72 1SPEBI5 O7JUL75 PRoG ID 872-5 
FC NO. 9818693 818395 577058 818397 572250 571781 PAGE 9 EC WO. 818693 818395 577058 818397 572250 571784 PAGE OB 
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8725 3270 REQUEST FOR TESTS (RFTS)--SECTICH 2=- 8725 3276 REQUEST FOR TESTS (EFIS})--SECTICE 2-<- 
ERR LOC OBJECT CODE ADDE STST SOURCE STATESENT ERR LOC OSJECT CODE ADDS STBT SOURCE STATEREET 
VFIZE 202122232482526027 173D 1759 be XL 16 * 2021222324 25262728292R 2B2C2DZE2FE V7FC 6620 WEB 12742 bc XL 2280208 SPAacE 
1736 28292A2B2C2D2E2F 17159 TF7PE FO30 VWFE 213 be XL2* PO3G8 9 
1166 # 1800 FI3? 1801 41244 DC ZEL2°*F431* q 
173E 11 T7T3E 1161 oc XLG° 9 SBA 1802 F232 4893 91215 DC EL2°F232¢ 2 
173F 423P 1780 1162 pc XLZ2°U33P° 239 1804 £333 1805 1216 BC XE2*F333¢ 3 
1744 1520 1742 1163 DC XL2* 1p26% SP-ATTR CNPROTECTED/HORBAL INTERSITY 1606 PuU3e 1607 1247 pc XLZ° Pe zee 8 
1164 % 7808 F535 1809 12468 pc 4325 P5359 s 
1743 4E2P4C2043484548 74C 1165 pc XLIC°UE2PUC2ZOR 348 US4BRR 208 HEY LIEBE CHAR TO POLLO 180k P636 WOR 121¢ pe EL2°F6 36% & 
174B 4&B20 9165 480C F737 48Ob 4220 dC ZLQ°E737° 7 
1166 © Y8GE FS38 WOOF 1221 BC XL2° F836? 8 
T74D OACAQCAOADA 1751 4167 DC XL5*OAROROROROA® 7870 FS3S 184% 4222 2c XE 2° P2398 3 
1168 «© Va12 Ci1ki 18%73 1223 pe RL2°*ctate A 
1752 11 1752 41169 pc XLV 44¢é SBA TetT4 C242 WS 1224 BC EL2*°C2425 B 
4753 4u5o0 1754 1170 pc ML2°8850° 273 3816 CBAZ 18%? 1225 pc XL2°C343@ c 
1755 tD2D 1756 4171 < XL2*17D2D¢ SP-60 1816 C4Ug 1819 1226 pc XL 2° CH GSE B 
1172 « 781K C545 18%B 1227 DC XL2°C548°@ zg 
1757 GSUP4D20434845uU3 1760 1173 Dc ZL10* 45RPUD2ZOUZUBN54U3ZGR208 1BiC Cé46 iD 1228 pc XL2* C6468 PF 
175F 4B20 1173 T81E C7? 181F 1229 DC KL2°C7aTe S 
176% 19 1761 41748 DC XL1°19¢ 4820 CBGB 1824 42306 c EL2°ce sat B 
W175 & 1822 c9Ka 1823 1234 DC XL2°CORQE zx 
1762 11 1762 1776 pc XL1° 41° SBE 1828 DIBA 1825 1232 DC XL2¢DUGRE Jd 
1763 4621 176& 1177 Dc XL2°46218 399 1626 D2&B I8Z7F 41233 pc EL2°D28B* K 
1765 1D20 1766 1178 BC XL2*1D20° SF-&0 4628 pD3aC 1823 41238 Dc ZL2?D34ce i 
1179 2 182k DasD 1828 1235 pc XL2*D&ape & 
1767 13 1767 418C DC XL1°138 INSERT CURSOR 182C DS4E 182D 1236 pc XL2*DSSE® g 
1181 * 162E D64P 782P 1237 DC KL2*D64F* eo 
1768 17 41768 1182 pc XLUPT1& SBA 7830 D750 1831 4238 pc KL2°bD750¢ > 
1769 47&5 176A 1183 BC XL2°8745° &70 4832 Desi 1833 1239 pc XL2*DS51¢ g 
176B 1D59 176C 1184 pc XL2°1D59° SF-ES8 7838 D952 1835 1240 DC 1% 2°DS52¢ 8 
1185 1836 E253 1837 1241 Dc ZL2*E253¢ Ss 
176D 4144522D 1770 1186 DC YL4°4i6ys22D8 EDR=- 41638 E5354 1839 1242 pc EL2* E3SHe z 
17771 00090000 1774 1187 AaASC pc XL4*°000000008 WOLLS 83a E55 183B 1243 Dc XL2°E&55°* a 
1775 1D2pD 1776 1188 DC XL2*1D2D* SP-60 183C £556 183D 1248 Dc KL2°E556¢ v 
1777 63 1777 1189 EASCI oC XL1°Q3° ETY 183P 2657 483F 1245 pc XL2*¥657¢ u 
COB7 1190 LENASC EQD *-ASCICD LENGTH OF TABLE 7840 £758 18481 1246 pc XL 2° E758° x 
1778 FPFF 1779 1191 pc XL2* FFFF® END OF TABLE 1842 E659 1883 1247 Dc geet ; 
177A P3F2F7FONO0LICSDS 179A 1192 BSGO1 DC CL33*3270 REQUFST FOR TESTS, SECTION 2¢ 7848 E9S5a 1845 1248 pc XL 
1782 EWCSE2ZE340C6D6D9 1192 . {846 1212 4887 1249 DC XL2°12428 . DC2 - EUA ERASE UMPROTECTED TO ADDB 
178A GOESCSE2ZE3E26BK0 1192 1848 0509 1889 1250 pc ¥E2"0509° &T ~ PGS TAB 
1792 E2CSC3 E3CS9DED5S40 1192 184, 3c14 184B 1251 oc XL2*3C 188 pca® - RA 
179A F2 1192 184c 1010 184&D 1252 DC XE2° 10708 DLE 
179B DSD64OE2ZC5D3CSC3 17BA 1193 BSGOF DC CL32*NO SELECT OR POLL ADDR AVAILABLE® 188E 0600 1uF 1253 pc XL2*00008 BULL 
17A3 EX4O0DE6ND940LC7DED3 1193 1850 0101 1851 1258 bc XL2°*O Ste SO8 
17AB D340CICUCNDINOCI 1193 1852 3704 1853 1255 pc XL2°3708¢* Eo 
17B3 E5C1C9D3C1C2D3C5 1193 1856 7P22 185£ 1256 DC X¥L2*7P22° QUOTE (GENERAL POLL) 
17BB ESC@CSE2Z80L4ESE2 17E0 4194 BSGOS DC CL38°THES HUST BE ERTERED BEPORE CONTINUING® 1856 SA5B 1857 1257 DC YL2° GASB® CENT 
17C3 E340C2C54 0C5SD5E3 1194 1858 &B2E 1859 1258 pc XYL2*4B2E* PERIOD 
17CB C5SD9C5C440C2C5C6 1194 185A 4C3C 4858 1259 DC XL2*4C3c* LESS *3AB 
17D3 D6D9CS540C3L6D5E3 1194 ¥85C 4D28 185D 1250 DC XL2*&D28°8 LEFT PARES 
T7DB CIDSE4C9D5C? 1194 V85E &E2B 185F 1261 pc XL2° #E2B° PLUS 
1751 I7EC 1195 DS CLi2 3860 4F2i 1861 41262 pc XL2*4P21° es 
17ED I17ED 1196 STOP DS CL1 1862 5026 1863 1263 pbc XL2* 50268 ABFERSAND 
1197 1864 S5ASD 1865 1264 DC XL2°SR5D* EXCLAMATION MARK 
1197 1866 5B24 1867 1265 DC XL2*552a¢ DOLLAR 
1198 FeS SSE eREREEEEKERREAEKERREREREERAAEAEK KE SEER AE EKS TERS SEEREEREREEECHERSEE 1868 SC2A 1869 1266 DC XL2°5C2a* ASTERISK 
1199 * 1864 5D29 186B 1267 DC XL2*°5p29¢ RIGHT PARE® 
, 1200 * TABLE FCR TRANSLATING LEGAL GRAPHICS BETWEEN EBCDIC AND USASCIE 186C SE3B 186D 1268 DC XL2*SE3B° SEMI-COLOB 
1201 * 186E SFS5SE 186F 1269 pc XL 2* SFSE* ~ 
I7EE 1202 EBCTBL EQU) * 1870 602D 1874 1270 DBC XL2°602D* DASH 
I7EF 1203 ASCTBL EQU EBCTBL¢i 1872 612F 1873 1271 pc XL 2° 612F* Suber 
1204 = EBCDIC, ASCII CRARACTER 187% 6&5C 1875 1272 pc XL2°6A5C* 
I7EE 0202 WEF 1205 pc XL2*02025 Stx 1876 6B2C 1877 1273 pc XLz* 6B2c€* COSSA 
17FO OFOF 1771 1206 DC XL2°OFOF® PAD 1878 6C25 1879 12748 Dc XL2*6C25* PERCEET 
17F2 2718 I7PF3 1207 pc XL2°2718°* ESC iB7K 6D5P - 1878 1275 pc XL2*6D5f* UNDERSCCRE 
17P4 0303 17F5 1208 DC XL2*0303! ETX 187C 6E3E 187D 1276 pc XL2*6E3E* oreeern sat 
47PF6 1171 17F7 1209 DC XL2* 41178 SBA 1872 6F3P I87F 1277 DC XL2°*6P3F* CUESTION HARK 
I7F8 1313 17F9 1210 pc XL2*1313° DC3 - IC (INSERT CURSOR) 1880 7A3z 1881 1278 DC ae 7k" as 
T7FA TD1D 17FB 1211 pe XL2*1D1D5 START FLD (SP) 1882 7823 1883 1279 pc KL2*7B23 ¥O 
DATE O1MARI2 Z21AP2a72 28 IJUL72 15SEP72 SSFEB75 O7FIBL7TS PROG iD B72-5: DATE OTHAR72 2tAPR72 28I0L72 ISSEPT2 ISPESB?VS O07 I0L75 eice ¥pD ae 
EC FO. 818693 818395 577058 818397 572250 571781 PACE 70 Fo HO. 818693 818395 $77058 818337 572250 
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8725 3270 REQUEST POR TESTS (RFIS)-~SECTICN 2-- 8725 3270 REQUEST FOR TESTS (RFIS)--SECTION 2-- 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERB LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1884 7Cc40 1885 1280 Dc XL2*7C40¢ AT 1348 
1886 7227 1887 1281 BC XL2*7p27* APOSTROPHE 1822 0227 18D3 1349 EBWRTCD DC XL2°02278 STX-ESC 
1888 7E3D 1889 1282 pc XL2*7E3D* EQUAL 1aDse PS 18D& 1350 pc XLi¢FS5? CMD, EWRT 
188A 2617 188B 1283 pc XL2* 26178 ETB t8p5 c2 18D5 1351 pc XL1¢*C2¢ ucc, 
188C 3216 188D 1284 DC XL2*3216° SYR 18D6 03 18D6 1352 Dc XL1*03° ETX 
188E 150A 188F 1285 pc XL2*150a¢ NL - LP (NEW LIWB) 1363 
1890 1919 1891 1286 bc 1L2*19198 EM - EON (END OF MESSAGE 18D7 0227 18D8 1358 pcD’O DC XxXL2*02278 STX-ESC 
1892 14C1C 1893 1287 Dc XL2* 1c 1c# IFS = DUP 18D9 F9 18D9 1355 DC sx XL1¢ F9® CaD,DWRT 
1894 1TE1E 1895 1288 DC XL2°1E1E* FA (FIELD HARK) 18DA 40 18DA 1356 DC = EL1*40* wcc 
1896 1IF1F 1897 1289 pc XL2*1F1P# ITB 18DB 03 18DB 1357 DC —«_- XL1#.938 ETX 
1898 2D05 1899 1290 pc XL2*2D05* ENQ 135a 
189A 3D15 189B 1291 De XL2°3p15# WAK 18DC 0227 18DD 1359 DREAD 90C XL2*G227¢ STX-ESC 
189C 3P1A 189D 1292 pc XL2°3F1A¢ SUB 18DE 7A 18DE 1360 Dc XL1°7aA¢ CBD, DRDS 
189E FFFF 189F 1293 Dc XL2*FFFF* END OF TABLE 18DPF 03 18DF 1361 pc XL1°03° ETX 
18A0 1294 TBLEND FOU * 18£0 1362 DREADL EQu) *# 
1295 # 18£0 1363 DATEBD EQU) * 
1296 * SPECIAL CHARACTERS TO BE TRANSLATED 1820 FFFF 18E1 1364 pc LL2°FFFP® END OF TABLE 
1297 # 1365 * 
18a0 70 18A0 1298 ESPCAL DC XL 1°70 ACK O EBCDIC 1366 * COMBOH COMSANDS 
18A1 61 1844 1299 DC XL1°61° ACK 1 * 1367 * 
18A2 Tc 18A2 1300 DC XL1¢7c¢ RVI * 18E2 00 18B2 1368 Dc XL1*008 CONTSOL BYTE 
18A3 6B 18A3 1301 pc XL1"6B* WACK * 1823 1369 StsL EQU- * BEGINNING OF TABLE 
18A4 30 18A4 1302 pc XL.1* 308 ACK O ASCII 18E3 6E 18B3 1370 CNCL DC XL1°6E* AID FOR CANCEL 
1825 31 18A5 1303 pc XL1*31¢ ACK 1 *# 18E4 00000000 18E7 1371 SELADR DC XL4& "008 TEMP STORAGE FOR SELADDR 
18A6 3c 18A6 1308 pc XL1" 3c? RVI * 18E8 0227 18E9 1372 RSTKBD DC XL2*0227# STXK-ESC 
18A7 3B 18A7 1305 pc XL12°3B¢ WACK * 1BEA P1 18EA 1373 pc XL1°F1¢ CAD, WRITE 
18A8 FF 1848 1306 pc XL1° PP END OP TABLE 16EB 4P 18EB 1374 Dc XL1¢ape WCC-RESTORE KYBRD/SOUMD ALARN/START 
1307 *escen00% 1375 * PRIST 
1308 * FLAG * IBEC 03 IEC 1376 DC XL1°03¢ ETX 
1309 ¢uxeenes 18ED 00000000 18P0 1377 SAVPHT DC XL4*008 
1310 * PROGRAM FLAGS 18F1 C4¥C9C1D3 18F4 1378 DIAL oDc CLU*DIAL® 
16a9 00 18A9 1311 FLAG pC XL1°00* 16°5 FFFF 18F6 1379 pc XL2*FPPP® EXD 
0080 1312 PLAGO EQU x* 808 CONVERTING ASCII TO EBCDIC 1380 REE RECEKE SCE AEEEERES SEE HACKS SEEEES EEE ESE CEES EEEEEE HECEREREREEKS EEE EERERE 
0040 1313 FLAG1 EQU  xX*KBQ8 SUBTRACT 4 138% @ 
0020 1314 FLAG2 EQU  x*208 AUZO CALL 1382 * BESSEGES (OUTPUT TO A PRINTER) 
6010 1315 FLAG3 £QU  x*108 * 7383 * 
0008 1316 FLAGS z£QU  x*08* LC ERROR 18F7 D3ICID5SCS4OCSD9DI 1900 138% mSGO2 DC CL10*LIHE ERROR® 
0004 1317 FLAGS EQU x*Qus THREE CHAR COMPARE 18PF DED9 1388 
0002 1318 FLAG6 EQU  x*02° ONE CHAR COMPARE 1591 EB2F3ICTEZZ4E2G0C1 1914 1385 DC CL20°STATUS AND SENSE IS * 
0001 1319 FLAG? EQU  x*01* FIRST PASS FLAG 1909 DSC4ROE2ZCSD5E2C5 1385 
1320 * 1911 BOC9E240 1385 
1321 #0 1915 EVEVETE? 1918 1386 mSGO3 DC CLG *xxxx* 
1322 * CONSTANTS (IN EBCDIC, WILL BE TRANSLATED WHEN RUSWING ASCII) 1919 CSP9C1E2C561E6D9 1929 1387 MSGO4 DC CL17* ERASE/@BITE ERROR* 
1323 = 1921 CIE3ICSHOC5D9DIDE 1387 
1T8AA 00 18AA 1324 pc XL1*00* 1929 D9 1387 
18AB 1325 DATCON BOG * 192A CSC9E2ZD7D3C1E840 1931 1388 pc CL8*DISPLAY ° 
18AB 1070 18AC 1326 ACKO pc XL2*1070° ACK 0 1932 £7 1932 1389 DISPRO DC CLi¢ x 
18AD 1061 18AE 1327 ACK1 DC XL2*1061° ACK 1 1943 4OCSDSDIDED9I6NDI 1946 1320 Dc CL20* ERROB-RETRY BUMBER® 
18AF 107C 18B0 1328 RVI pc XL2*107¢C" REVERSE INTERRUPT 1938 CSE3D9E84OLSEaDs 1390 
18B1 106B 18B2 1329 WACK pC XL2*106B° WACK 1943 c2c5D940 1390 
18B3 01 1883 1330 SoH pc XL1"01¢ START OF HEADING 1947 ET 1947 1391 BSGOS DC CL1°x¢ 
18B4 02 18B4 1331 STX pc XL1*02¢ START OF TEXT 1348 CSD5C3D6D9D9C5C3 1959 3392 mSGO6 DC CL18*IHCORRECT RESPOBSE® 
18B5 03 18B5 1332 ETX pc XL1"03* END OF YEXT 1950 E340D9C5E207D6D5 1392 
18B6 10 18B6 1333 DLE Dc XL1# 10¢ DATA LI#K ESCAPE 1958 E2C5 1392 
18B7 70 18B7 1334 pc XL1°708 PAD 195A DSD640CSD5E3C5DS 1981 1393 HSGO9 DC CL40*HO INTERRUPT-NEXT TEST PATTERN INITILTED® 
18BB 26 1858 1335 ETB pc XL1°26¢ 1962 DOEGDTE360D5C5E7 1393 
18B9 2D 18B9 1336 ENQ Dc XL1*2p* 196K E340 E3CSEZE340D7 1393 
18BA 37 18EA 1337 EOT pc XL1° 378 1972 CIEZE2C5D9D540C9 1393 
18BB 3D 18BR 1338 NAK pc XL1°3D¢ 197A DSC9SE3CSCIE3CS5CU 1393 
1339 $394 
18BC 016C61 18BE 1340 TSTR pC XL3"016C615 SOH, %, / 1394 
18BF 016CD9 18C1 1347 HEADER DC XL3*016CD9° SOH, %, B 1395 * CORSTARTS 
18C2 020000 18CH 13482 STxXDC DC XL3*020000! STX, PIXED ADDRESS 1396 * 
18c5 0000 18C6 1343 SSHERE DC XL2*00008 S&S0, S&S1 1982 1397 XLTSW EQU * CURRENT, BES 
718C7 03 18C7 1348 SASEND DC XL1*03¢ ETE 1982 0000 1983 1398 DC XL2*°00* VALUES FOR TRANSLATE 
1345 198% FPYP 1985 1399 HEXFP 5BC XL2*PFFF* 
48CB8 0000000025 18CC 1346 ADRSEL DC XL5*000000002D* DATA FOR ADDRESSING 1986 00 1986 1400 C16 Dc XL 1°00" 
18CD 000000002D 18D1 1347 POLSEL DC XL5"000000002D* DATA FOR POLLING 1987 00 1987 1401 UDTOPT DC XL1*°00° -4PE OF TERMINAL (FROM UDT TABLE) 
DATE O1MAR72 271APRI2 243UL72 15SEP72 15 FEB75 0730L75 PROG ID 872-5 DATE O1MAR72 2 1APR72 24JUL72 1S5SEP72 ISFEBVS 0730175 PROG ID 872-5 
EC WO. 818693 818395 577058 818397 572250 571781 PAGE 11 EC NO. 818693 818395 577058 818397 572250 571761 PAGE EP 


IBM MAINTENANCE DIAGNOSTIC PROGBAH PART NO. 2598496 IBM MAIATEWANCE DIAGHWOSTIC PROGRAE PART WU. 2588896 


PAGE 12 PAGE T2a 
8725 3270 REQUEST FOR TESTS (RFTS)--SECTION 2-- 8725 3270 BEQUEST POR TESTS (RFTS)--SECTION 2-- 
EBR LOC OBJECT CODE ADDR STMT SOURCE STATEHERT ERR LOC OBJECT CODE ADDER STMT SOURCE STATEHEST 
1402 » BIT 0 ON INDICATES ASCII TERMINAL 1467 * 
1403 # BIT 1 ON INDICATES 1920 CHARACTER BUFFER 1468 © BEGIW #ACRO 
1988 9000 1989 1404 SAVEND DC XL2°00# con : eiaeivereds 
e 
coer aon agen nace er . see pses 41474 SEKKKATCSVE SKE KE SCKESECKKETKKK TK BEVEECKESVSVSKESES SSHKEHEKSEKESCHKKEK EEE KEKE ECKASLEHE 
198E 0000 198F 1407 SAVXR2 DC xXL2"008 W472 * ROUTINE TO TERSIWATE ON-LISE TEST AND DISABLE BSCA 
1990 FFFC 1991 1408 NEGS DC XL2°*FFFC® vce : CALL eee Sines 
teaser Bae Sete aaa ECG ee 1975 SeeeEKES ESSERE EEREEEEEEEREESEESEROEERS SEEK SSEERESKEESES EEEKEERES EEEESEOE 
1993 0000000000000000 19A4 1411 pc XL18*°00* 1476 
199B 0000000000090000 1911 19FB F3 80 80 1477 $DISCT SIO x*80',z°80* 
19A3 0000 1411 1478 weeroN 
1925 000000 19A7 9412 COUNTR DC XL3°60°* 19FE CO 87 022A 1479 B LOAD BED S 
1948 00 19A8 1413 COUNT DC XL1*008 1A02 &0 1A02 1480 DC XL7¢40* ASEORNAL TERRIBATION 
e 8 14814 
sone SRonod i. quae caer ee er soan nears LQB2 SHRKHEKS HERSEK SLSEKSASSARASHTSELSRSSLKS STSS SPERKAKE KE KEKE KSEEES ES FESS CERSE 
19AP 00 19AF 1416 LCCHK1 DC XL1*00° LINE CORTROL CHECK CHARACTER WOES o* ~ ITETERRUPT ROUTIBE ~ 
0040 1417 CKEOT EQUD xXx*#KO# CHECK FOR EOT i484 * AT BEGINING OF THE PROGRAB 
0020 1818 CKSTXA EQU  x*20!# CHECK FOR STK,CU ADDB,DVC ADDR bea : es, rate atta 
0010 1419 CKETB EQU x*108 CHECK FOR ETB . : 
0008 1420 CKETx gag x'08? CHECK FOR ETX 1487 * SIO X*03*,x°80°  EXABLE AWD RESET 3 ATTERUPT 
0006 1421 CKACK2 EQU x'oue CHECK FOR ACKO TO COSMAND TEBR SHHESREKKE SKE SS SRESCKSESHKEKSS LELKSETARI SA LKS SSHKSERGKEKSCESSE SRLS ESKEESE SK KKSERSEN 
0002 1422 CKACK1 EQU  x*02® CRECK FOR ACK1 : 1489 
0001 1423 CKACKO EQU) x*018 CHECK POR ACKO TO SELECTIOE 1A03 34 07 1A29 1490 $INT ST $Y1¢3,x81 
19B0 00 19B0 1424 LCCHK2 pC XL1*00? LINE CONTROL CHECK CHABACTER 2 1A07 2 oe nee bea = era sce.” 
0010 1425 CKENQ EQU x*108 CHECK FOR ERQ 1A0B 34 04 TAZA ° 
0008 1826 CKNAK EQU x*08* CHECK FOR BAK 1A0F 35 04 1A3F 1893 iE sores sees ZEEO CONDITION REG FOR INT ROUTI 
0004 1427 CKWACK EQU X*OHS CHECK FOR WACK 1A13 3c 09 TaA3B 1494 BVI NTID,2Z 
0002 1428 CKRVI EQN x*02°* CHECK FOR RVI Ta17 C1 63 1A22 14895 $uT12 TIO $£¥1,x*s3* TEST FOR ITB Bea eae chug veces 
000% 1625 CKSTX EQU x*01° CHECK FOR STX 1A7B CO 6&7 1440 iss B gee CHECK DIAG AND STATS 
19B1 00 19B1 1430 POLLSE DC XL1* 00° FORCE POLL FOR SENSE AWD STATUS 1A1F F2 87 64 18 J 
0040 1431 CHEOT EQU  CKECT 1A22 3C 8D 1A3B 1498 $$r1 BYI SINTID,X*SD? ITB INTERRUPT FLAG 8&1 
0004 1432 ONWACK EQD CKWACK TA26 C2 01 0000 1499 $yi LA S-#,XR1 
: 0002 1433 ONRVI Z£EOU CKRYI WALA C2 02 0000 soon SY2 La eas eea 
19B2 16C0 19833 1434 ASTART DC AL2 (START) WA2E 35 04 1A3A 5 L ¥3, 
1984 17ED 19BS 1435 ASTOP DC AL2(STOP) 1032 P3 80 03 1502 SRES&T SIO x*"03*,x*°80* RESET Int AND EWABLE INT 
19B6 8202 19B7 1436 ATANDR DC XL2*8202° T AND &, INT ENABLED 1835 CO 87 1203 1503 B SIT . 
19B8 16C9 19B9 1437 START6 DC AL2(STAERT¢9) 1439 0000 3A 1504 $x3 DC xL.2°0 3 
19BA 16C2 19BB 1438 START2 DC AL2(START+2) 143B 00 1A3B 1565 SINTID DC XE7°00 
19BC 16C4 19BD 1439 STARTS DC AL2(START#4) 1—R3C 1203 1A3D 1506 $INTa DC AL2 (SINT) 
19BE 15¢5 19BP 1440 STARTS DC AL2(START+S) 1A3E 0000 1a3F 1507 $0 bc XL2°0 
19CO0 19F0 19C1 1441 ASELCT DC AL2(SELECT-10) 
19C2 16C0 19C3 1442 ASTRT DC AL2(START) 
19C4 177D 19C5 16443 ENDS DC AL2(START¢ETEXTS) 
19C6 17DC 19C7 1444 END6 DC AL2(STABT+¢ETEXTS) 
19C8 1777 19C9 1445 END6A DC AL2(START*¢LENASC) 
19CA 1731 19CB 1486 END7 DC AL2(START+ETEXT7) 
19CC 16C1 19CD 1467 AMEZSG8 DC AL2(&SCICD) 
19CE 1946 19CF 1448 ADUMS DC AL2(DUENY+419) 
19D0 1993 19D1 1449 ADUS1 DC AL2(DUSMSY) 
19D2 1995 19D3 1450 ADUM2 DC  AL2(DUMMNY+2) 
19D4 1994 19D5 1851 ADUM3 DC AL2{(DUMAY+?) 
19D6 199Cc 19D7 1452 ADUS9 DC AL2 (DUMNY+*9) 


19D8 4040404040404040 19DF 1453 BLANK DC 8XL1*40°* 
19£Z0 0000000009000000 1927 1454 ZERO DC XL8°O0°* 


T9EB 40 I9E8 1455 DBC XL1°40°5 FORCE EBCDIC 
19E9 0000 T19EA 1456 SSSAVE DC XL2*00° STATUS AND SENSE FIELD 
19EB FPPF I9EC 1457 Be XL2°FFFF* 
19ED 0004 19EE 1458 FOUR pc XL2*0004¢ 
19EF 00 SEF 1459 pc XxLi1*00° 
19F0 370F323200000000 19PA 1460 SELECT DC XL11*379F3232000000002DFFFF® 
19F8 2DFFPFF 1460 ‘ 
1461 * 
1462 * EQUATES 
1463 


0080 1464 ASCII EQU x*80° 
0040 1465 FOREBC EQU x*40# 
0020 1466 FORASC EQU z°20¢ 


. : 72-5 
DATE O1MAR72 21APR72 © 283UL72 15SEP72  1SPEB"5 0730L75 PROG ID 872-5 DATE O1MAR72 214APR72 2830172 15SEP72 #‘1SPEBT7S oyun? aap a . 4128 
EC NO. 818693 818395 577058 818397 572250 571781 PAGE 12 EC 5G. 618693 818395 577058 818397 572250 
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IBA MAINTENANCE DIAGNOSTIC PROGRAS 


8725 


ERR LOC OBJECT CODE 


1A40 
TA4YY 
1a48 
TANC 
1A50 
1451 
1A52 
TA54 


1a58 
TASC 
TASD 
VASE 
TA60 
TAGY 


TA68 
TAE6C 


1A70 
TA74 
TA77 
1278 
TATE 
TA52 
1A83 
TABS 
1A86 
JASA 


TABE 
TA92 
7A95 
1A99 
TASA 
TA9B 
TAQD 


TAA 
TAA5 
TAAS 
TAAC 
TAAL 
TARE 
TABO 


DATE 
EC kO. 


3270 REQUEST FOR TESTS (RFIS)--SECTION 2-- 


34 
3c 
c1 
co 
86 
OE 


08 
00 
81 
87 


1B77 


c1 


co 
86 
13 


84 


87 


TBRA 


co 


30 
30 


39 
F2 
3D 
P2 
co 
86 


86 
87 


83 
80 


80 
10 
FF 
81 
87 


1894 


3c 
39 
co 


86 
11 


20 
00 


4Q 
10 
87 


IBA2 


3a 


39 
F2 
co 
86 
19 


10 


20 
10 
87 


1BEB 


3a 


40 


1A67 
TB64 
TA54 
O2TA 


1A60 
O21A 


1468 
0000 


< B66 
1B68 


1B65 
7 
1B69 
08 
O21A 


TB64 
1TB69 


1B65 


0c 
O21A 


TB64 
1B65 


oc 
O2TA 


1B64 


O1MAR72 


818693 


ADDR STANT 


1A50 
TAS 14 
1A53 


TASC 
ASD 
1A5F 


1A82 
1383 
TABS 


1399 
TA9A 
TA9C 


TAAC 
TAAD 
IAAF 


27APRT72 


1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1821 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1842 
1543 
1544 
1545 
1546 
15a7 
1548 
1549 
1550 
1581 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
13576 


SOURCE STATERERT 


PART NO. 
PAGE 


2588496 
33 


RERERR REESE CEES AEE REN KERE EERE ERS ORR E EERE EKER EARS RERTEE EE OREES 
* SUBROUTINE * 


* 


* 
2 
gs 


FERRER EERE TER EERE EE EEE EEE EEEE ORES EERE EEE EREE ARES EERE EE EEEREE 
NO TIME OUT MSEEAGE 


* 
* 


+ 


e*neee nt # 


$TIO 


$v1 


$3108 


$B105 
$B101 


$B120 


ST1XX 


$11 


$I2 


24J0L72 
577058 


$TIO 
Ce RE RESET EE RE EE 


B $II0 


SNOTIM = FP 


& 


* SUBROUTINE CALLED BY B $TIO * 


USES TIO TO CHECK CONDITIONS*® 


* PRINTS OOT ERROR IF CONDITS * 


* NOT AS EXPECTED. 


* 


* ALSO CHECKS STATUS AND DIAG * 


ERROR RETURN CODES 


SERPLG = 80 


ISSEP72 
818397 


HARDWARE ERROR 
40 ADAPTER CHECK 
20 TISEOUT 

10 BCC CHECK 


08 ABORTIVE DISCONNECT 


O04 DISCONNECT TIMEOUT 


02 DATA SET READY DROPPED 


OT INVALID ASCII 


$B101¢3,ARR 
SERFLG,x*0* 
$B108,x°818 
PRINT 

XL1* 86" 
IL1¢14¢ 

AL2 (SIOR1) 
$B105,X"848 


PRINT 
XL1°66* 
IL1*19¢ 

AL2 (SIOR4) 
$3120, xX" 808 
tee 


$SI,X*83°* 
SDI,x* 608 


SSI-1,X*°80° 
$11 
SNOTIM,X*FP* 
ST1XX 

PRINT 
XL1°86° 
ILi*o7* 

AL2 ($S0) 
SERFLG,X*20°* 
SNOTIA,X*00® 


SSI-1,X"408 
$12 

PRINT 
XL1°86° 
IL1*178 

AL2 ($51) 
SERFLG,X*10# 


$SI-1,xX*20° 
$13 

PRINT 

XL 1°86* 
IL1*2S°* 

AL2 ($82) 
SERPLG,X*40* 


1S FEB75 
572250 


O7VJUL75 
571781 


ZERO ERROR FLAG 
TEST FOR OP-END INTERRUPT 
ERROR PRINT 


OP-END ERPOR 
TEST INTERRUPT REQUEST PE 


ERROR PRINT 


INTERRUPT REQUES1 PENDING 


* 
= 
* 
«x 
* 
x 
* 


NDING 


ERROR 


TEST FOR UNIT CHECK/NOT READY 


RETURN TO INTERRUPT ROUTI 


SENSE STATUS INFORMATION 


WE 


SENSE DIAGNOSTIC INFORMATION 


TIMEOUT 

TEST IF NO TISEOUT WANTED 
ERP"R PRINT 

*TIMEOoT® 

TIMEOUT OCCURRED 
CRC/LRC/VRC CHECK 

£RROR PRINT 

*CRC/LRC/VEC CHECK® 

CRC CHECK OCCURRED 


ADAPTER CHECK ON TRANSMIT 


ERROR PRINT 


“ADAPTER CHECK ON TRANSAIT® 


ADAPTER CHECK OCCURRED 


PROG ID 
PAGE 


872-5 


aa 
w 


aiceaienn oe nai te Saarinen teal news 5 ek 


ee a men es 
_ i Oct CTIA Ce EN 
a ee a eee 


*, 
# 
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8725 


ERR LOC 


TABS 
TABS 
TABB 
1ABF 
1ACO 
1aci 
1AC3 


1AC7 
TACB 
TACE 
JAD2 
1AD3 
TAD4 


12D6 
TADA 
TADE 
TAE1 
TAE5 
TAE6 
1AE7 


IAES 
JAED 
IAF 
JAPU 
IAPs 
TAP9 
TAFA 


AFC 
1B00 
1B04 
1B07 
1BOB 
>BOC 
1B0D 
1BOF 
1B13 
1B17 
1BiA 
UBTE 
IBIF 
1B20 
1B22 


1B 26 
IB2A 
1B2D 
$B31 
1B32 
1B33 
1835 
1B39 
1B3D 
1B40 
1B44 
1B45 
1B46 
1B&8 
1BaC 
1B59 
1B54 
1B58 
1B59 
TBSA 
1B5C 


~ DATE 


Ec w0. 


3270 BEQUEST FOR TESTS (RFIS)--SECTICH 2-- 


OBJECT CODE 


39 10 
F2 10 
cO 87 
86 

16 
1BD3 
3A 40 


39 08 
F2 10 
co 87 
86 

oD 
1BEO 


3a 01 
39 04 
F2 10 
co 87 
86 

13 
1BF3 


3a 08 
39 02 
r2 10 
cO 87 
86 

12 
1c05 


3A 04 
38 02 
F2 16 
co 67 
86 

9E 
1¢13 
3a 02 
39 08 
P2 10 
cO 87 
86 

OF 
1022 
3A 80 


39 O04 
F2 10 
co 87 
86 

12 
103% 
3A 80 
39 02 
F2 10 
co 87 
86 

17 
IC4&B 
3A 80 
39 01 
co 40 
co 87 


01mAR7 
813693 


1B65 
oc 
O2TA 


1B64a 


1B65 
oc 
O2TA 


1B64 
1B65 
oc 

O21A 


1B64 
1B65 
oc 

O2TA 


TB64 
1B66 


O21A 


1B64 
1B68 
oc 

O21a 


1B64& 
1B68 


O2QTA 


1B64 
1368 
oc 

O27A 


1B64 
1368 
TA64 
GO24Aa 


1B64 


2 


ADDE 


TABF 
1ACO 
WAC2 


TADZ 
TAD3 
TADS 


TAES 
TAE6 
IAES 


TAPE 
TAPS 
IAFB 


1BOB 
TBCC 
IBOE 


1B1E 
1B1F 
1B2 1 


1B31 
1B32 
IB34 


1B44 
1885 
1Ba? 


1B58 
1B59 
1B58B 


2TAPR72 


STat 


1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1893 
1594 
1595 
1596 
1597 
1596 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1015 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1621 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 


SOURCE STATEMENT 


$13 


SI4 


$15 


$16 


$17 


DS$1 


DS2 


cC$3 


cS$4 


28JUL72 
£77058 


TBF 
JT 


SB 
TBP 
JT 


pc 
Dc 


SBE 


SBE 
TSF 
BT 
B 
bec 
Dc 
pc 
SBR 


ISSEP72 
81837 


$SI-1,X°10° 
$ra 

PRINT 

XL 1°86" 
IL1*28¢ 

AL 2 ($S 3) 
SERFLG,X*80* 


S$SI-1,X°08* 
$15 

PRINT 
XL1*86° 
IL1°13¢* 

AL2 (3S4) 


SERFLG,X*°O1* 
S$SI-19,X°04* 
$16 

PRIST 
XL1°86°* 

IL 1* 19° 

AL2 ($85) 


SZ2EFLG,x*° 63° 
$SI~1,X°02* 
$17 

PRIST 

XL 1°86 ° 

IL1* 16° 

AL2 (356) 


SERFLG,1* 04° 
$SI,X*02° 
D$1 

PRINT 
XL1°86° 

IL 1° 448 

AL2 (SSH6) 
SZRPLG,X*O2* 
$pI,x*08* 
D$2 

PRINT 
XL1°@6* 

IL 1°15? 

AL2 (S044) 
SERPLG,X*80? 


SDI,x* 04° 
ps3 

PRINT 

XL 1° 86° 
IL1©18° 

AL2 (S$DH5) 
SERFLG,X° 20° 
SDI,x°02° 
DS4 

PRINT 

XL 1°86! 
IL1*23° 

AL2 (#DE6) 
SERFiG,X* 80° 
$OI,x*018 
$3101 

PRINT 

XL 1°85 * 
XL7°16¢ 

AL2 ($D27) 
SERFLG,X*80° 


1S PEB75 
572250 


PART KO. 
PAGE 


ADAPTER CHECK OW RECEIVE 
ERROR PRIBT 

*ADAPTER CHECK ON RECEIVE 
ADAPTER CHECK OCCURRED 
<HVALID ASCII 


ERROR PRINT 
*INVALID ASCII® 


ABORTIVE DISCONNECT 


ZRROR PRINT 
*ABORTIVE DISCONNECT® 


DISCONNECT TIMEOUT 


ERROR PRINT 
*DISCONMECT TISEOUT® 


DATA SET READY 
ERBOR PRINT 


DATA SET READY STATUS BIT 
BLOCK CYCLE STEAL REQUEST 
ERROR PRIaT 

"BLOCK CSR ® 

HARDWARE ERROR 

LSR OR S-REG CHECK 

ERROR PRINT 

*LSBR OR S~REG CHECK® 
HARDWARE ERROR 
OVERRUN/UNDERPLOW 

ERROR P&IET 
*OVZRRUN/UNDERFPLOG 
HARDSARZ ERROR 

D3I P CHECK 


RETURE TO XBTERRUPT ROUTI 
ERROR PRINT 


“DBI P CHECK® 
HARDWARE ERROR 


PROG ID 
PAGE 


2588496 
¥3a 


872-5 
13a 
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i 
8725 3270 REQUEST FOR TESTS (RFTS)--SECTION 2-< 6725 3270 REQUEST POR TESTS (REIS}--SECTIGH 2-- 
E8R LOC OBJECT CODE ADDR STMT SOURCE STATESERT ERR LOC OBCECT CODE ADDR STHT SOURCE STATEMENT 
¥B60 CO 87 TAG64 1645 B $B17014 RETUBH TO INTERRUPT RODTINE / 1665 SCELSESSSRSECE CHEERS SE SHKO TERE A EERSSE SORES SES SESH SEE SEEKS KRERHE SASESETSSSOE SS 
1B64 00 1B64 1646 $ERPLG DC XL7*0* 1666 * SUBROUTINE TO DBLAY FOR 90 SECORDS 
1865 0000 1B66 164? $SI DC XL2¢08 1667 * B SDELAY 
1Bé7 0000 1B68 1648 $BI pc XL2°6? JEGE SHSeSSKSKSHLHSETKSTSME SESE SESE SCKKAKESKKSSEEKK SEK SCR THES SESETKSSTHE SHERESKKECSSESR 
1863 60 1369 1649 $NOTIM DC XL1°66* ic5¢ 34 08 1¢97 1669 SDELEY ST DSLAY3¢3,AREB 
1B6A D6D760CSD5C440C9I 1837 1650 $IORi DC CLI4*OP-ERD INT ERRé 1c60 34 014 1¢693 1670 ST $DL14¢3,2R1 
1B72 DSE34CC5D9D9 1650 1C64 OC O02 I1C9A 1C9D 1671 AVC $TIH,$000 (3) 
1276 CODSEZ4OD9C5D840 1B8A 1651 SIORS DC CLI9*XET BEQ PENDING ERR® 1C6A GE O02 1C9K 1C9E 1672 DSLAY1 ALC STIMN,SO#E(3} INCBEHENT TIME COUSTER 
1B80 D?C5D5C4C9D5C740 1651 1€70 OD 02 1C9A 1CB9 1673 CLC $TI8,$90(3) 
1B88 CSD9D9 1651 1€76 F2 8&8 OB 1674 38 $?TH 30 
1EBB E3C9OD4C5SDEE4E3 1B94 16£2 $s0 pC CLO7*TINEOUT® 1C79 39 F3 1A3B 1675 TBP SINTID,X*P3° S2E IF IMTERRUPT CCCURRED 
1592 C3D9C361D3D9C361 1BA2 1653 $51 DC CLI7T°CFC/LRC/VRBC CHECK® 1c7D F2 $0 OC 1676 JP DSLAY2 
TESA E5D9C340C3C8C5C3 16 £3 1€80 CO 8? 1C6A 1677 B DSLAY1 
IBA2 D2 1653 1€84 CO 87 O21A 1678 $PTH30 B PRINT 
TBA3 CIC&CID7TE3ICSD940 IBBB 1654 $52 pC CL25*ADAPTER CHECK CH TRANSAIT* 1C88 86 ic86 1679 DC XL1°86° 
TEAB C3C8C5C3D240D6D5 1654 1¢89 18 1c89 1680 pc EL 1% 248 
1BB3 4OE3LSCIDSE2D&cg 1654 1C8A 1CB6 1C8B 1681 pc AL2 (SNREPL) BO BESPOMSE AFTER 930 SECONDS 
1BBB E3 1654 1C8C 3B F3 1A385 1682 D$LAY2 SBF SINTID,x*F3° 
IBBC C1IC4UC1ID7E3C5D940 1BD3 1655 $53 pe CL24*ADAPTER CHECK ON RECBIVE® 1090 C2 01 0000 1683 S$DL% LA s-%,XR1 
TBCY C3CBC5SC3ID24ODEDS 1655 1c94 cO 87 0000 1684 DSLAY3 B +--+ 
TBCC &OD9C5C3C5C9ESCS 1655 1¢98 000000 1C9k 1685 STIH DC XL3*0° 
TBD4 CODSE5CID3IC9ICHU4O 1BEO 1656 $54 pc CLIZ*INVALID ASCit® 1C9B 000600 1¢9D 1666 $000 onc XL3°O& 
TBDC CTE2C3C9C9 1656 1C9E 01 1C9E 1687 S$ONE DC zUTeo1e 
1BE1 CIC2D6D9E3C9ESCS 1BF3 1657 $S5 pc CLIS*ABORTIVE DISCOBRECT® ICSP DSD640DSCSE2ZD7IDE 1CB6 1688 SHREPL DC CL2G*HO BESPOBSE APTER 90 SEC® 
1BE9 4OCUC9E2C3 D6D5D5 1657 1CA7 DSE2C540C1C6E3C5 1688 
1BF1 CSC3E3 1657 ICAF DOSOPIPOSOE2C5C3 1688 
1BF& C&C9E2C3D605D5C5 1€05 1658 $56 pc CLIG* DISCONNECT TISEOUT® 1CB7 180006 1CBS 1689 $90 pc XL3* 1800008 
TBFC C3E340E3C9D4C5D6 1658 
100% ESE3 1658 
1006 CUCTEICINOE2ZCSEZ 1€13 1659 $SH6 DC CLIG*DATA SET READY® 
ICCE S4OD9CSCICUES 1659 
1C1% C2D3D6C3D240C3E2 1€22 1660 SDH& DC CL15*BLOCK CSE CHECK® 
icic DI4OC3CBC5C3D2 1660 
1C23 D3EZD94ODEDS40E2 1€34 1661 $DH5 DC CLi8*LSR OR S-BEG CHECK® 
1C2B 60D9C5C740C3C8C5 1661 
1€33 ¢C3D2 1661 
1C35 D6ESCSDIDIEYDS61 IC4B 1662 $DH6 DC CL23*OVERRUN/UNDERFLOW CHECK® 
1C3L E4YDSC&CSDSCED3D6 1662 
1C4S E640C3C8C5C3D2 1662 
TC&C CHC2ZCI“ODTICIDSCS 1C5B 1663 S$DA7 DC CL16*DBI PARITY CHECK* 
1C54 £3£840C3C8&C5C3D2 1663 
: 
\ 
i 
“a 872-5 
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ISM MAINTEWANCE DIAGNOSTIC PROGEHAB 


8725 


ERB LOC OBJECT CODE 


ICBA 
ICBE 
1cC2 
1CC6 
ICCA 
1CCE 
yCD4 
ICDA 
ICEO 


1CE3 
ICE7 
1CE8 
ICES 
ICEB 


1CEF 


1CF3 
iCF9 
ICPF 
1D93 
1D09 
DOF 
1D13 
1D16 
iDic 
1D20 
1D24 
TD2Ak 
1DB30 
1D34 
ID3A 


* 1D40 


EC 


1DGs 
TDS5 
ID46 
1D&8 
TDUE 
1D51 
1D57 
IDSA 
1D60 
TD64 
1D68 
1D6C 
1D6D 
1L6F 
1071 
1D77 


ID7D 
1D81 
1D82 
1D83 


1D85 
1D8B 
1D91 


1D95 


' DATE 


HO. 


34 
34 
co 
38 
co 
0c 
OE 
OD 
F2 


co 
01 
07 


08 
01 
87 
40 
10 
01 
01 
01 
01 


87 


TE22 


3c 
co 


0c 
OF 
35 
oc 
OF 
3D 
F2 
OD 
co 
3c 
0c 
OF 
35 
oc 
OF 
co 
01 
1A 


00 
87 


01 
01 
01 
91 
01 
03 
01 
Ot 
81 
00 
01 
01 
01 
01 
01 
87 


VE3C 


OD 
F2 
OD 
F2 
oc 
36 
34 
co 
00 


01 
04 
01 
34 
00 
01 
01 
87 


0000 
TE9A 


oc 
oF 


co 
01 
00 


00 
00 


87 


TE9A 


oc 
OF 
co 


00 
01 
67 


Oc 00 


TEIS 
1E17 
0212 
020A 
TEs 
TEAO 
TEAO 
1EA0 
10 


O21z 


TF75 
1E07 


1F7B 
1F7B 
1F75 
1F73 
1F73 
1F75 
2a 

TEAO 
ICE3 
TF75 
1F7D 
1P7D 
1F7D 
1P773 
1773 
O21A 


‘VEB9C 
1F73 
1D4B 


1D6C 


O1MAR72 
618693 


ADDB 

1F74 

1C9E 

1F79 
1CE7 
1CE8 
ICE 

1779 

1C9E 

1EA0 

1279 

1977 

1P77 

1C9E 

1Za0 

1777 
1D44 
1D4S 
1DS7 

1c9D 

1£9E 

1F73 
1D6C 
1D6E 
1D70 

1p6c 

1D82 
1D8% 
1D82 
1D84 

1D6C 

1E9C 

1E92 

21APR72 

818395 


STAT 


1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 


SOURCE 


e a 
SEECAE KATA SKS CHKES HSE EHES EEE CHE SHSEAERES OOO OKTHETHS SHEERS SEEEEZE CEE EEE 


* 
* 
2 
* 


2 


SERERESETESECS SCAG S SRS SOSSEROKAESEKE SSS ORS EEEOTESEEETESR ERE REREETSEREESE 


STEPHT 


3270 REQUEST FOR TESTS (BPTS)<--SECTION 2-- 


STATERENT 


PABT KO. 


ROUTINE TO PRINT DATA TRANSHITTED AND RECEIVED 


B STRENT 


THIS ROUTIHE SHOULD OBLY BE CALLED ATTER $SICG 


SS#11 ON BYPASS PRINT 
st SE*3, ABR 


1699 St SE1¢3,XR1 
1700 B TEST 

1701 TBN SBYTE2Z,SSH174 
1702 BT SE 

1703 SPRING AVC S$WRK,S$SSTOP (2) 
1708 ALC SWEK,SONE(2) 
1705 CLC SRK, SASTRT (2) 
1706 JHE SREC 

1707 

1708 $oRY 8B PHINT 

1709 Dc XL1°018 

1710 pc IL1°07° 

1711 pc AL2 (SHDATA) 
1712 SVX $COD,x*0* 
1713 

1718 B SENDSB 

1715 

1716 $REC AVC =©$STRT, SASTRT (2) 
1717 SLC SSTRT, SOBE(2) 
1718 L SSTRT, XR1 
1719 BVC } 3=. SY, SWRK (2) 
1720 SLC S1,SASTRT (2) 
4721 CLI $COD, X03 
1722 JBE $GGG 

1723 CLC $WRK,$TRAW(2) 
1728 BE SORY 

1725 avI ScOD,x*0* 
1726 AVC $H,S$TRAH (2) 
1727 SLC $H,SONE{2) 
1728 L $H,XB1 

1729 HVC 8=«- SY, SRK (2) 
1730 SLC SY, STRAB (2) 
1731 $GGG iB PRINT 

1732 pc XL1¢018 

1733 pc IL 1° 268 

1736 DC AL2 (SRDATA) 
1735 $LopP CLC $¥,$000 (2) 
1736 JHH SENDSB 

1737 $LX1. 0 CLC) $¥,,$83.2(2) 
1738 JH S$LX2 

1739 AVC = $L1, S¥ (1) 
1740 a $Y,XB1 

17461 st SA1,XR1 
1742 $01 B ONPACK 

1743 $L1 Dc XL1¢0® 

1744 $:a1 pc XL2*0° 

1785 Dc AL2(STRBF) 
1746 MVC }8=- $LGH, $L1(1) 
1747 ALC S$LGH,$1G8(1) 
1748 

1749 B PRINT 

1750 pc XL1*01® 

1751 $LGs pc XL1°08 

1752 Dc AL2 (STRBPF) 
1753 

17&y SVC =. $122, $1.1(1) 
1755 SLC $Y¥,$1Z2(2) 
1756 B SLOP 

1757 

1758 $Lx2 ayc $11, $832 (1) 
26I3UL72 WSSEP72 15 PEB7S 
577058 818397 §72250 


0730L75 
571781 


SAVE RETURE ADDRESS 


SEE IF AWY DATA RECEIVED 
PEINT ERROB 

HO DATA RECEIVED 

ZEBO T¢R INDICATOR 

EXIT SUBROOTINE 

GET ADDRESS-1 OF BUFFER 
SAVE CUBRENT 

GET NUMBER OF BYTES TO PRIET 
TEST IF T¢R OPERATION 
TEST IF ABY DATA RECEIVED 
ZERO FLAG 


GET TRANSITION ADDRESS -1 


GET WO. BYTES RECEIVED 
HEADING PRINT 


DATA T AND & was 
TEST IP ALL BYTES PRINTED 
TEST IF 32 BYTES TO BE PRINTED 


PUT LENGTH OF DATA I” 
GET RH ADDRESS OF DATA 


PUT DATA ITO PRINTABLE FORA 


GET PRINT count 


DECRESEST PRINT COUsT 


PUT COUNT OF 32 In 


PROG 1D 


2588496 
PAGE 18 


872-5 
PAGE 15 


oy ee 


IBA RAINTESAWCE DIAGNOSTIC PBOGRAR 


6725 
ERR LOC 


1D9B 
1D9F 
1DA3 


IDA? 
TDAB 
TDAP 
IDB3 
1DB7 
iDBB 
DBF 
pcs 
1DCB 
tpD1 


TDD4 
IDDB 
1DD9 
1IDDA 
IDpc 


1DDF 
IDE5 
IDES 
IDEP 
IDPS 
TDPB 
1DPF 
1E00 
1E01 
1E03 


1E07 
1E0B 
* VE0C 
1£10 
TET 
1E18 


TEAC 
1E23 
1E2B 
1E33 
1E3B 
1E3D 
TEa5 
TESC 
TES& 
1E55 
1E63 
TE6B 
1E73 
1E7B 
1E83 
1E8B 
1E93 
1E9B 
TE9D 
1E9F 


” DATE 
- BC wo. 


3270 REQUEST POR TESTS (RFTS)--SECTICH 2-- 


PAST 30. 
PAGE 


2566896 
Sa 


OBJECT CODE ADDR STMT SOURCE STATESEST 
36 O01 TE9E 1759 A $¥32,zR1 
3% 01 1D6E 1760 st SA1,xR1 GET RH ADDRESS OF DATA 
CO 87 1568 176% B $01 GO TO PRIST DATa 
1762 SCHESSES SS SLES SSEKSE LES SSSCLS TS USSHSS OS OST TSIESKSTIESH OESHESSOEHTH OSHS SES SAREE 
1763 * 
1764 ROUTIEE TO PRINT DATA TRABSSITTED s 
1765 * B S$TPIT 
1766 © 
1767 ¢ THIS ROUTINE SROULD CELZ BE CALLED APTER $SIO0 
1768 @ SSH17 O8 BYPASS PRINT 
1769 PESASS SIH SKIK SS SKKS OT SS SESS ESS SH SSSESS CHE ROSE SEE FOE SHEKE AAGESEBOSEEEE 
34 08 1£1B 1770 STPHT ST S$E¢3, ARB SAVE RETURE ADDRESS 
34 01 1217 1771 st $£1¢3,XB1 
cO 87 0212 1732 5 TEST 
33 40 920a 1793 TBE SBYTE2,SSUt1 
cO 10 1518 1778 BT SE 
3C 03 1F75 1775 AVI SCOD,xX°03* FLAG FOR T¢R OPERATION 
OC 01 1EA0 1771 1776 $¥3 gvC SWRK,SSTOP (2) 
OF 07 1EA0 1CSE 1777 ALC SUBK,SONE (2) 
OD 01 1EA0 1P79 1778 CLC SERK,XASTRT (2) SEE IP ANY DATA TRANSAITTED 
F2 01 OB 1779 JHE STIL 
1780 
cO 87 O21~A 1781 B PRIST PRIBT ERROR 
01 IDDS 1782 bc XL1°01° 
i IDD9 1783 DC IL4*15* 
1E45 IDDB 1784 BC AL2 (SETRAB) #O DATA TRABSHITTED 
P2 87 28 1785 J SZuDSB 
1786 
OC 01 1F7B 1779 1787 STIL aYCc SSTET, SASTRI (2) GET ADDBESS-1 OF BU PFER 
OP 01 3F7B icSEz 1788 Sic SSTET, SCHE(2) 
35 01 1F7B 1789 L SSTET, 1R1 
OC 01 1F73 1777 1790 BYC SY, STBAS (2) SAVE TRANSITION 
OF 01 1F73 1F7S 1791 $LCB SLC $Y, SASTBT (2) GET BUSBEB OF BYTES TO PRINT 
cO 87 O21A 1792 SDTA B PRIEST HEADIBG PRI#T 
01 DPF 1793 pc XL1°O1° 
OF 1E00 17948 pe Ini15¢8 
TESA TEO2 1795 pc AL2 (STDATA) TRASSSITTED DATA BAS 
cO 87 1D48 1796 B SLOP 
1797 
cO 87 O24A 1798 SEEDSB B PRIUT SPACE 6 LIUES 
26 TEOB 1799 ac XL1°26* 
3D 03 1775 1800 CLI SCOD,xX*03* CHECK IP RECEIVE PORTION YET TO 
cO 81 1ICCE 1801 BE SPRIIG 
C2 01 0000 1802 SEI LA o-2,IR1 ErYIT 
co 87 0000 1803 SE 8 e-8 Exit 
1808 
DSD6S0CK&C1E3C1 1222 1805 SHDATA DC CL7°WO DATA® 
EICSCIDSE2ZDUCSE3 123C 1806 SRDATA DC CLZ6‘TEABSSITTED & BECEIVED waS* 
£3C5C48405040D9C5 1806 
C3CSC9IESCSCSROEG 1806 
CTE2 - 1806 
DSD640E3D9C1DSE2 1E4B 16C7 SETRAW DC CLIS*HO TRABSAISSIOB® 
DUCSE2E2C9 D6D5 1807 
EILICIDSE2ZD4CSE3 1E5SR 18C8 STDATA DC CLIS*TRANSMITTED wWAS® 
E3CSC44NOE6C1E2 1806 
40450404040804080 1298 1809 STRBY DC Cr6es® *¢ 
60 40408080404040 1809 
4080404040404080 18C9 
6$0404504080G08040 1809 
4080405040408040 1809 
80490450408040404K0 1809 
408050408 0404080 1809 
§0404080808080480 1809 
0000 TE9C 1810 $LZzz pc XL2*O° 
0020 TE9E 1871 $532 pc IL2*32° 
0000 TEAO 18192 SuBK bc XL2*°0°* 
O1MAR72 21APBR72 24JUL72 ISSEP72 15 PEB75 07JUL75 PROG ID 872-5 
818693 818395 577058 818397 572250 $71781 PAGE 15a 








IBN MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 2588896 IBS BAIRTENANCE DIAGNOSTIC PFOGRAE PART NO. 2588896 
PAGE 16 PAGE 164 
8725 3270 REQUEST FOR TESTS (RFTS)--SECTION 2-<- €725 3270 REQUEST FOR TESTS {RFTS)--SECTICH 2-- 
ERR LOC OBJECT CODE ADDE STHT SOUBCE STATEBERT ERR LOC OBJECT CODE ADER STHT SOURCE STATEMEST 
FALu SSTKSERSSEKKKK ECE SH SESHH ALS SS SEGHSSCERELSER RE SSESKKEESEKSER SEAT RECE REE EEKEES IBRJ Se*Keseeeaes 
1815 = SIO SUBROUTINE 188& # EQUATES KESSCSKECE SASS HASH SRS SHES SE SSKES HES RGKSTHE SES CESTKEEREREEEEESEOE s 
1816 + B SSIC 1865 Seeueeceeee 
1817 * Do AL2¢ ) ADDRESS CONTAIKRS STARTING ADDRESS 1866 
1818 * DC AL2¢€ } ADDRESS CONTAINS TRAHSITION ADDRESS 00014 1887 xR1 FOU =x*Qis 
1819 * DC AL2¢ } KDDRESS COSTAINS STOP ADDRESS 000Z 1888 xR2 EQU = x®O28 
1820 * DC AL2€ j ADDRESS CONTAINS SIO XY ESTRUCTIONS C008 1889 ARB EQU x*O8® 
1827 * EXAMPLE 8202 0071C 1890 IAB EQU x*10¢ 
1822 * APTER EXEC SSTOP CONTAIHS ADDRESS POIRT TO TAE LAST 0004 1894 PSR EQU = EF GaP 
1823 # CHAR RECEIVED 0020 1692 PIXAR EQUD  x*20° 
1824 % STBAN CONTAINS TBARSITION ADDRESS 0040 1693 P2XYAR EQU xtage 
1825 * NOTE $NOTIN = X*PF® TRESS NO TIME OUT AESSAGE 0080 1894 TARG EQU x*geg® 
826 FERSSAASHTE KATHE HSAKTAAALE SECA SRSSRKKKASEKESH SE SSS SESE EKEKEAESKEBEE o06cea "635 XAR4i Bou x*coe 
1EA1 34 O€ TEAC 1827 $SiO st S$OAD¢3, ARR 00aC0 1896 IAR2 EQU  x®aAQ® 
TEAS 34 02 TF6B 1828 St $D2S1¢43,kR2 0096 18697 IAR3 EGU xF 90? 
1EA9 C2 02 0000 1829 $0AD LA %-*,YR2 CO68 1898 IARY EQu x*B8EF 
VEAD 2C OF 1F3B 01 1830 NYC $104+3,4(2,XR2) 0222 18939 HALT ZQ9 X® 2228 
VEB2 2¢ 01 1F3F 03 1834 BYC $162¢3,3(2,XB2) 02412 1900 TEST EQU £*212¢ 
TEB7 2C 01 1F43 05 4832 SY¥C $103¢3,5(2,X22} 0216 1901 LIBK EQU x*216® 
{EBC 2C 01 1EC6 07 1833 AYC SETSIO#5 7 (2,48 2} O24 1962 PRIKT EQD R°2tRe 
1ECT OC 01 1F46 0000 1834 SETSIO HVC SIOALL¢2,*#-*% (2) SETUP PROPER SIO O21E 1903 UNPACK EQU xX°24E® 
1EC7 38 20 0205 1835 TBN SBYTE3,SSHiA 6226 1908 PACK EQU x°2268 
1ECB F2 90 38 18 36 oF SY6 0228 1905 LOAD £QU  x*22,—° 
VECE 3A 08 1A18 1837 SBN $NT12¢1,x°088 0208 1906 SBYTEO eQU x*208* 
1ED2 3A 08 19FC 1836 SBE $DISCT¢1,x5°08° 020A 1907 SBYTEZ EQU xR*20;~8 
TED6 3A 08 1A33 1839 SBN SRESET¢1,2°08* O20B 1908 SBYTE3 EQU x*20B¢ 
1EDA 3A 08 1A49 1840 SBN S$¥iet,x*0Be O20C 1959 SBYTE& FOU x*20C# 
TEDE 3A O08 1a55 IB4i SBN EB10G44,x°08* 0004 41916 SsSB07 EQU Z*ote 
1EE2 3k 08 1A61 1842 SBN $B105*1,x°066 C086 1911 SSH10 EQU x°805 
1EE6 32 08 7A69 1843 SBR $8B%20¢%1,x*"O6® 0080 1912 Sswtt EQo x*eo® 
1EEA 3A 08 1F39 1844 SBN $101¢1,x°08° 0020 1913 Ss#12 EQU x*298 
VEEE 3a O08 1P3D 14S SBR £IO2e4,x*OR* C010 41974 SS813 EQG x* 70° 
JEF2 3A 08 1F44 1646 SBN $103¢1,x*08¢ 0008 1915 SsH1&% EQU x*08* 
TEF6 3A 08 TF&5 1847 SBR SITOALL#1,x5°08* 0004 1916 SSH15 EOD x*oue 
1EPA 38 08 1P5B 1848 SBE SUSY#1,2°68® 0002 1917 SSsBe16 EOC E°O2° 
1EFE 38 08 1F5F 1849 SBH S6S¥¢e5,x*08* 0001 1918 SSH#17 EQU x#O?° 
1F02 3a 06 17.6D 1856 SBN $B120¢5,x*08* 0080 1919 SS¥18 EQU x*308 
WFO06 2C 01 IF1A 03 1854 S¥6 MYC = $X #55, 3 (2, XB2) SAVE THE GO40 1920 SsH19 EQU xE*8OF 
VFOB 2c 01 1720 03 1852 HYC $245,3(2,XR2) TEANSITION, 0020 1921 SSH1R EQE x°208 
1F10 2c 01 1F26 01 1853 M¥C = $945,1(2,X82} STOP, AED 0046 1922 SSWiB EQU x°108 
iF15 Oc 01 tP77 0000 1854 $x BYC TRAR(2} ,#-% STARTIKG 0008 1923 SSWiC EQU x£*08* 
1P1B OC 01 4F71 0000 1855 $z AYC $STOP{2),#-*% ADDRESSES 0004 1924 SS¥1D EQU x£°GK® 
VFO1 Oc O04 1F79 0000 1856 $Q AYC SASTET (2} , #-* 0002 1925 SSH1E Z00 x* O26 
1F27 OF O1 1F71 1C9E 1257 SLC $STOP,$ONE(2) 9001 1926 SSB¥iF EQU xeOote 
1F2D E2 02 C8 1858 LA 8{,XR2) -XR2 IBCRESENT RETURH ADDRESS 0080 1927 Ssg20 EQD x*80! 
1F30 34 02 1F6F #859 ST SETOUT#3 ,XR2 STORE RETUEN ADDRESS 
1F34 35 02 1F71 1860 L SSTOP,XB2 
1F38 31 && 0000 1661 $101 EO 89 Ree XO BEE LOAD CURRERT 
VP3C 31 82 00600 1862 $102 LIO wee, x5 82° LOAD TRANSITION 
TF4O 317 81 0000 1863 $103 LIO %=-*,x*8t? LOAD STOP 
TF4u F3 00 00 1864 S$IOALL SIO %-#, 4-4 ISSUE START I/O - 
1F47 CO 87 1c5C 1865 B SDELAY a 
1F&3 OD 01 1F79 1F71 1866 CLC SASTRT,SSTOP 
1F51 F2 01 06 1867 JNEB $uUS¥ * 
1F5&8 BD 37 00 7868 CLI 6(,X82) ,xX*°37¢ z 
1F57 F2 81 OF 1869 JE $DS1 
IF5A C1 62 1F5A 1870 SUSY TIO SuSY,X*82¢ LOOP ON BUSY ; : 
1F5E 30 84 1F71 1871 SYS $STOP,XK*'84u® SENSE THE CURREST ADDRESS REG £ 
1F62 OF 07 1771 1C9E 1872 SLC S$STOP, SORE (2) WHICH CONTAINS THE ENDING ADDRES 
TF68 C2 02 0000 1873 $Ds1 LA wok, XR2 “ 
1F6C CO 87 OCOD 1874 $ETOUT B tame BRANCH BACK TO EAINLINE é 
1F70 0000 1771 1875 $stTOP DC XL2*08 
1F72 0000 1F73 1876 $y pc XL2*O€ 
1PF7& 0000 1F75 1877 $cor oc 4L2¢ O98 § 
1F76 0000 1777 1878 STRAR DC XL2*0* 
IF7E 0000 iF79 4879 SASTRT DC EL2*O# 
1F7A 0000 1P7B 1880 SSTBT DC RL2°0* | 
TF7c 0000 3PF7D 1887 Sa Dc ZL 2°06 ° 
DETE OTSAR7T2 2?7RPR72 28 JUL72 ISSEPT2 USPEBIS OF JELFIS PROG ID 872-5 DATE OLBAR72Z 2TAGRT2 248 IJUL72 TSSEP72 ISFEB?5S O7J0L75 PROG ID oars 
BC #80. 8416693 818395 577CS8 618397 572259 571794 PAGE +6 EC BRO. 818693 818395 577058 818337 572256 571781 PAGE 63 
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3270 REQUEST FOR TESTS 


ERR LOC OBJECT CODE 


DATE 
- EC NQ. 


OG 
00 
00 
60 


60 
00 


OTMART2 
818693 


ADDR 


FCF 


TFDO 
IFDE 
TFDC 
TFOD 
VEDE 
iFDF 
TFEG 
IFEF 


IPF3 
IFFT 
iFFF 


FFFF 


21APR72 


818395 


PART HO. . 2588496 


PAGE 7 
(RPIS)--SECTION 2=- 
STMT SOURCE STATEMENT 
1929 *** END OF EXPANSION ** 
1930 * 
1937 * END OF KACROS 
1932 * ORG 
1933 ORG X° 1FCF& 
19348 
1935 pe ZL7°O0® REQUIRED PAD CHARACTER 
1936 
1937 BUADIG DC XL7&G0® NOMBER OF DIGITS IN TEL BUBBEB 
1938 TELNUM DS CLi1 TELEPHOHE NUMBER 
1939 CALHAD DC XL1°OQ0? FLAG POR CALL SADE 
1940 HAXCAL OC ZL7°00 § RETRY FLAG 
i947 ADDER DC XL1®&O0® 
1942 be XL7°Q0* PRD 
1943 NUMID dC ZL1°00° NUHBER OF CHARACTERS IN THE ID 
1944 ID DS CL15 ID 
1945 
1946 REPSEL DS CL4Y SELECTING ADDRESS 
1947 RP@POL DS CL& POLLING ADDRESS 
1948 SAVADE DS CL8 
1949 **¢ END OF EXPANSION *# 
1950 END 
24IUL72 ISSEP72 IS PEB75 0790L75 PROG ID 872-5 
577058 818397 572250 571781 PAGE 17 
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SYMBOL 


$$Y¥1 
SACK 1 
SASTRT 
SA1 

$B 701 
E£B1I04% 
$8105 
SB 126 
$ced 
SDELAY 
SDHY 
$DH5 
SDHE6 
$DH7 
SDI 
$Disct 
$D1L1 
$DS1 
$DTA 
SF 
SENOSB 
SEOT 
SERFLG 


SETOUT 
SETSIO 
$E1 
$GGG 
$H 
SINT 
SINTO 
$IeTID 
SITOALL 
$IOR1 
SIORG 
$101 
$102 
$103 
$11 
$12 
$13 
$14 
$15 
$T6 
$17 
SLCH 
SLGH 
$LOP 
$LXx1 
SLX2 
SLZZ 
$L1 
SNDATA 
SNOTIN 
SNREPL 
SNTRAN 
SNT12 
$N32 
SOAD 
SONE 
SORY 
SPRING 
SPT" 30 
$Q 
SRDATA 
SREC 


DATE 
~ EC NO. 


3270 REQUEST 


” 


we oe De ae oe ee oe be pe De fe be oe fe Bt Be ie De fe fe DY 


Dee be fe be De pe De De ee De be De De De De fe ie oe De De me De De De oD be pe be be oe De be oy ope De be et be De ep 


LEN TaLUE 
00& 1A22 
Coe 1718 
C02 1F79 
002 D6E 
004 A64 
008 1A54 
004 1a60 
O08 4:68 
O02 F775 
004 1c5c 
015 1022 
018 1034 
623 i1C4uB 
076 C55 
0C2 1368 
003 i19FB 
004 1C96 
004 1F68 
004 ‘tIDFB 
004 TES 
008 1E07 
004 10D9 
007 186s 
008 IFé6éC 
006 1EC1 
004 IETS 
004 1DaQ 
002 IF7D 
004 1003 
002 1A3D 
061 1A38 
003 P44 
014 1877 
019 1BBA 
094 1P38 
004 1F3Cc 
00% trad 
O04 ‘1ABE 
004 tTAA1 
004 1AB4 
004 1AC7 
004 1ADA 
004 tTAED 
004 1800 
006 DFS 
001 1D82 
006 1D48 
006 D514 
006 1D95 
002 1£E9C 
001 1bD6C 
007 1522 
60% 1369 
024 1CB6 
015 t1E4B 
004 1A17 
002 1TESE 
004 ‘1EAQ 
001 1C9E 
004 1CE3 
006 1CCE 
004 1C84 
006 1F21 
025 1E3c 
006 1CF3 
O1MABR72 
818693 


POR TESTS (RFTS)--SECTIOR 2-- 


DEFN 


1498 
0666 
1879 
1784 
1545 
1538 
15448 
1507 
1877 
1669 
1660 
1661 
1662 
1663 
1646 
Va77 
1683 
1873 
1792 
1803 
1798 
0642 
1646 


1874 
1834 
1802 
1731 
1881 
1490 
1506 
1505 
1864 
1650 
1651 
1861 
1862 
1863 
1561 
1569 
1577 
1585 
1593 
1601 
1609 
1791 
1751 
1735 
1737 
1758 
1810 
1743 
1805 
1649 
1688 
1807 
1495 
1811 
1829 
1687 
1708 
1703 
1678 
1856 
1806 
1716 


21APR72 
818395 


BEFERENCES 

1495 

0516 0854 

1705 %7%6 

1741* 17608 

1531" 1639 

1533 1841 

1538 842% 

144 1643% 

Wi2* 1724 

1865 

1621 

1629 

1636 

1643 

1548* 1616 

017% 0653 

16708 

1828* 1869 

1698* 1762 

1744 = =1736 

0067 0071 

0284 0788 

1630* 16378 

18598 

18338 

1699 1771% 

1722 

1726* 1727* 

1503 1506 

0227 

W9I4e 1H988 

W334 1E47% 

1537 

1543 

1830® 18448 

1831* 1845% 

1832" 18868 

1551 

1562 

1570 

1578 

1586 

1594 

1602 

1746" 1747 

1756 1796 

1738 

1754 1755 

1739* 1746 

11 

0276 0646* 

1681 

1788 

18378 

1737 «61788 

1827 

1672 1704 

1724 

1801 

1674 

1853 

1734 

1706 
24JUL72 
577058 


1W725e W758 


1624 1631 
18338 


1770" #1774 
1785 

07120 0123 
1532 15538% 
1644% 


1728 
1675 1682% 
W747 
1754 1758 


0667* 0768% 


1759 
1717) 1727 


ISSEP72 
818397 


PRET WO. 2538896 
PAGE 7a 


CROSS~ REFERENCE 

0868 

1720 1778 1787 179% 1856 1866 
1645 

1650 


1800 


1636 


0159 0162 O767 0891 
1567* 1575% 1583% 1592* 1600% 1608¢ 1615* 1622¢ 


1552 15539 


1777) «©1788 «©1857 1872 


1S PEB7S 07J0L75 PEOG ID 872-5 
572250 5717814 PAGE 17a 
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PAGE 18a 
8725 3270 REQUEST FOR TESTS (RFTS)--SECTICH 2-- 8725 3270 REQUEST FOR TESTS (RFTS)--SECTION 2-- 
CROSS- REFERENCE | CROSS- REPEREWCE 

SYSBOL T LEN VALUE DEFN FEPERENCES SYMBOL T LEN VaLUE DEFN HEF ERENCES 
$RESET A 003 1832 1502 1839" AS A604 14a7 0960 004S5* 00N9« 
$SH6 A OM 1013 1659 1614 AG A008 15¢2 1054 COBssS* COBs* 
$SI A 002 1366 1647 1547* 1550 1561 1569 1577 1585 15923 1601 1609 a7 A 00% 16BA 17112 0137% 01408 
$SIO a2 004 1TEA1 1827 0056 0109 9148 0277 0320 0334 ©6455 0687 0671 0727 O758 U771 BLANK A O01 Y9DF 1453 0192 

0782 C877 08B5 BSCUDT A 003 OR0C 0019 
$STOP aA O02 1F71 1875 0385* 0421 1703 1776 1855" 1857* 1860 1866 1871% 1872% CALMAD A 00% FDC 1939 0240 0628638 
SSTRT A 002 IF7B 1886 1716* 17178 4718 1787 1788% 1789 CERSPN A OCT 42AA 0815 0064 0117 0156 
$50 A 007 1391 1652 1557 CER1 2&8 008 143£1 0912 0817* C84e 
£S1 A017 1BA2 1653 1566 CERZ aA 008 13E5 0913 0818% 
$S2 A025 1BBB 1654 1574 CHECK A 008 ODA2 0357 006% 0714 0153 0325 0339 0733 
$33 A 024 18D3 1655 1582 CKACKO C 507 0007 1423 0232 0363 
$S& A 013 1BEO 1656 1590 CKACKT C001 0002 1422 0330 0369 
$S5 A 019 1BF3 1657 1598 CKACK2 C 001 0008 1421 0053 0107 6185 0375 
$S6 A018 1C05 1658 1606 CKRENO C001 6010 1425 
$TDATA A 015 ESA 1808 1795 CKEOT C004 00480 1417 03841 1631 
$TIM A003 1C9A 1685 1671* 1672 1673 CKETB C001 0010 1419 0418 
$TIO A 008 1040 1531 1496 CKETX C 00% 0008 1820 0413 
STPNT A OO4 DAF 1770 CKF A CO& ODCE 0369 0364 
$STRAN R 002 1F77 1878 0395 0873 1723 1726 1730 1790 1859# CKG A 004% ODEO 0375 0370 
STRBF A 064 ESA 1869 1745 1752 CKH A 004 ODF2 0381 0376 
STRPRT A OO0& CBA 1698 0438 O865 O485 0847 0857 0910 CKE A 004 OFOA 0388 0382 
$T1L 2 006 ‘IDDF 1787 1779 CRKEOT & 006 13C9 0902 OR61 
$T1XX A 004 1486 1558 1553 CKKRFT A 006 7430F 0850 0832 
SUSY A004 1F5A 1870 1848% 1849% 1867 1870 CKKSTX A 006 1336 0560 0851 
sui A008 1D68 17482 1761 CKNAK C 60% 0003 14826 
$v1 A008 1848 1533 1840% CKP A 008 OEFSS 0473 (0389 0403 0608 
$v3 A006 DBP 1776 CKR kh 064 OF63 04818 O#iK 
$WRK a 002 ERO 1812 1703* 1708* 1705 1779 14723 1729 776" 47778 1778 CKRVI C 001 0002 1828 1433 
$x A006 1F15 1854 1851% CKS 8 604 OFAB 0528 0419 0423 O864 6495 
$Y A 002 1F73 1876 17479% 1720* 2729% 1730% 1735 1737 1739 4740 17558 17906 17978 CKSS aA 006 17293 0802 0796 
$y A004 1A26 14699 1890® 7497 CXSTX C OO%t O0CO% 1829 
$x2 A004 1A2A 1500 1agt* CKSTXA C 007 0020 1818 0388 
$¥3 A G02 4A3A 17504 1492% 1501 CKSe 2&8 004 1276 6795 C763 
$Y6 A 005 1FG6 1851 1836 CKWACK C 004 (004 1427 1432 
$Z A 006 4F1B 1855 1852% CLCETA A 904 1053 0594 0590 
$0 A002 %A3P 1507 1893 CLETR & 008 10C7 0638 0052 0692 0744 0317 033% O840 0786 oO87a 0883 
$000 aA 003 %C9D 1686 1671 735 : CNCL & 001 1823 1370 C862 0864 
£90 A 003 1CB9 1689 1673 COUNT a 001 1908 1413 O050% 0089 O141* 0683 06972 0692 
AASC 28 008 177% 1187 COUNTR A GO3 4987 4442 CUEE* O869*% O895" OBSHs 
ABORT A 072 OD06 0365 6291 C16 A001 1986 17400 C769* 0790% G819% 089208 
ACAL aA 002 0D39 0310 0278 DSLAY? A2 006 106A 1672 1677 
ACKO A002 %8kC 1326 C365 0377 0663 0787 D$LAY2 A 008 %c8C 1682 1676 
ACK? a 002 18AE 1327 0371 0670 DSLAY3 A 004 1098 1684 1669% 
ADDER A 001 1PDE 1941 C396 0709* 0735 Ds? A 008 1313 1616 1670 
ADROK 2&8 001 OBEA 0209 019% 0193 DS2 A004 1326 1624 1697 
ADRSEL &2 0605 8CC 14346 C210 6218 0314 0848 087% BS3 A 008 4339 1631 1625 
ADUM? 2 002 19D1 1449 0688 0672 0759 0772 DS4 A 00% Bec 1638 1632 
ADUN2 A 002 19D3 14506 £673 DATCOB A 001 18A4B 1325 0245 
ADUB3 A 002 19D5 1451 0649 C650 DATEND A OOF 4820 1363 
ADUM8 A 002 19CF 1448 C674 0764 O77% pcp’0 A CO2 18D8 1354 
ADUMNS & 002 19D7 1452 0760 DIAL A OOK 8F4 1378 0046 0085 0097 0137 
AMESGS A 002 i9CD 1467 DISPNO & CO 1932 1389 GO57* 0090* 01428 
AREC A O02 1286 0807 0775 DLE A O0Ct 1886 1333 
ARR Cc 001 0008 1889 C169 0357 0543 0636 0642 0666 6682 0690 C706 6748 0816 7531 DOREC & 001 4210 0765 0752 

1669 4698 1770 1827 DREAD aA 002 178DD 1359 
ASCICD 4 601 16C1 1123 1190 146487 DEEADE A 00% 18£0 1362 
ASCII Cc 001 0080 1464 0093 057% 0557 0560 0573 0599 0834 DUMSY A 001 1993 17410 0517 0573 0643* 0644 G688s O625% 0668*% 0669 0669" 6670 078392 0750 
ASCTBL 2 001 Y7EF 1203 0566 €750* 0756% 0778 07934 O7F79a« 0802 0855 1448 1869 1850 185% 1852 
ASELCT & 002 19C1 1444 ESACK 2 008 113C 0676 0666% 
ASTO 8 =6.8 00% CECS 04652 0447 0872 ESD A 00% OD3C 0312 0301 
ASIO? & CC2 OEDG 0457 0852 ESEOT A 00% 7314 0658 682% 
ASTART A 002 1933 1434 6255 032% 0335 0456 0728 0783 0878 0886 EASCI A 001 1777 + «#1789 0177 
ASTOP A 002 1985 7435 0059 0112 0751 0323 0337 0458 0730 0785 0880 0888 EBCTBL A 007 47EE 1202 €577 «1203 
ASTRT & 002 19¢3 1842 0057 0770 0149 ECHECK A 004 OFCKH 0535 O357% 05348 
ATANDR A 002 %9B7 1436 0060 0113 6152 6324 06338 0459 0651 06675 0731 0762 06786 C881 ECLRBTE A 004 10D5 0638 06348 

C889 EXDCER A 008% 13E9 09144 C816* 
DATE O7BAR72 21APR72 28JUL72 15SEP72 1SPEB?5 O7JUL75 PROG ID 872-5 DATE O1MAR72 21RPR72 28J0L72 I5SEP72 ISPEB?S O73UL7S PROG ID 872-5 
EC HO. 818693 818395 577058 818397 572250 571781 PAGE 18 - EC HO. 818693 818395 577058 818397 572250 571781 PAGE 36a 


ae 


eeseeenee00d2e e082 eoeonvneaedeneeeeea00e206e6020080802680808 80 © 
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8725 3270 REQUEST FOR TESTS (RFTS)--SECTICN 2-- 8725 3270 REQUEST FOR TESTS (RFTS)--SECTION 2-- 


CROSS-REFSHENCE CROSS~ REPERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYBSBOL T LEN VALUE DEPP REPEGBENCES 
EXDENQ A O0C% 11D6 0736 C7068 LOOPE1 A004 OA6B 0069 0062 0065 
ENDPT2 A CO4 116E 0695 0682* 0690* 0693 0694" LOOPEF2 A 004 OB05S 0121 0115 0118 
FNDSET A 004 ODSE 0352 0169* 0344 LOOPF3 A004 OB6C 0160 0154 0157 
ENDXL A 004 10BD 0631 0543" 0546 6547*% LooP1t A004 0A39 0052 0066 0070 
ENDS A 002 19C5 1443 0058 LOOP2 A 00% OAA2 0092 0119 0122 
END6 A002 1907 12844 C083 0111 LOOP3 aA 004 GB3A 0144 0158 0161 
END6A A 002 19C9 1445 C095 L16 © 001 0072 0998 0108 01049 
END? A002 19CB 7446 0150 L26 C 001 OCAA 1062 0105 
ENPOLL A 0C& 1241 0805 0748* 0796 0801 MAXCAL A 001 FDD 1940 0274* 0286% 
ENQ A 001 1889 1336 0444 ©6723 0778 MIDOR6 A001 1520 0987 0104 1062 
EORD5 A O01 14AaR 0963 0055 MLMOX A006 0C92 0265 0263* 0268 
EORD6 A 001 15¢C9 1060 0105 MODIFY 4 002 OAEB 0111 0084* 0096s 
EORD7 A001 6BD 1115 0147 MOR6 a 001 1567 1021 0097* 0100* 0101 0177 
EOT A001 18BA 1337 0383 0496 0645 0855 0902 ASGOi A 033 179A 1192 0181 
ESPCAL A 001 1880 1298 0602 0605 NSG92 A010 1900 1384 0483 
ETB A 001 18B8 1335 0420 ™SGO3 A004 1918 1386 0522 0526 0881 0845 
‘ETEXTS C 001 OOBD 09648 0055 0055* 1443 MSGO4 a 017 1929 1387 0348 
ETEXT6 C 001 O11C 1061 0105* 1494 SSGOS A 001 1947 1391 0683* 0687 
ETEXT7 C 001 OOF1 1116 0147 O147* 1446 MSGO6 A018 1959 1392 0908 
ETX A 001 18BS 1332 0415 MSGO7 A 032 17BA 1193 0199 
EWRTCD A 002 18D3 1349 0332 SSGO8 A 038 1750 1194 0204 
FLAG A001 18489 1311 0172 «=0174* 0231* 0343* 0362* 0384* 0391*% 0399 04804 0426* 0835 04798 8SGO09 A 040 1981 1393 C825 
0497* 0498 6532 0552* 0567* 0589 0606* 0616 MTWO a 002 ODDS 0306 0252 
FLAGO C 001 0086 1312 0567 0589 MVCS AOOG T1AB 0722 0720% 
FLAG1 c 001 0040 1313 06906 0616 , NAK A001 118BB 1338 
FLAG2 C001 ©020 1314 NDISP A 004 12C3 0822 0792 
PLAG3 C 001 0010 1315 0343 0435 NEGS A002 1991 1408 0620 
PLAGS C001 0008 1316 0362 04879 0532 NOACAL A001 OCED 6299 0239 0241 0243 0285 
FLAGS C001 0008 1317 0362 0391 0399 NOPRT A004 OBCE 9196 
PLAG6 C001 0002 1318 C362 0388 0804 0426 0497 0498 NOS#CH A 006 OEFB2 0448 0442 
PLAG7? C 001 0001 14319 0172 0174 NOTPR A001 0C17 0222 0173 
FONE A 001 1992 1409 C691 YOTHE A006 126A 0793 €787 C789 
FORASC C 001 0020 1466 0555 NTLRGE A 016 0D37 0309 6297 
FOREBC C 001 0060 14865 0553 WUJMDIG A 001 FDO 1937 0262 0244 0247 0288 0263 0272 0310 
FOUR A002 ‘I9EE 1458 0534 0694 NUMID A 001 PEO 1943 0195* 0398 0713 0716 0717 0718 
GOGOGO A 004 1255 0788 0779 NXLTE A 00% 12P5 0838 C835 
GOON A 004 OADD 0107 0102 ONE A G03 19AF 1415 0264 0286 0385 0469 0719 0790 0820 0898 
GO2 A006 OAD1 01048 c094 i ONEOT C 001 CON0 1831 C372 €378 0392 0490 
HALT C001 0222 1899 0205 ONRVI C001 0902 1433 0366 0486 
HEADER A 003 18C1 1341 0511 €831 ONWACK C 007 CO0S 1432 C366 0890 
HEXFF A 002 1985 1399 0253 0471 0582 0591 0625 ORD5 aA 0014 13EE 0920 0045 09646 
IAR C 001 0010 1890 ORD6 A001 8aAE 0971 C998 1061 
TARO C€C 001 0080 1894 ORD? a 001 15cD 1069 0136 1116 
IAR1 C 001 00cO 1895 PACK C001 0226 1904 
IAR2 C001 OO0AO0 1896 0227* ; PuUM aA 011 0D13 0307 0254* 0255 0262 0262 0265¢ 
IAR3 C001 0090 1897 POLL A001 IDA 0747 0509 C829 
IAKG €¢ 001 0088 1898 POLLSW A 001 1981 1430 0359* 0366* 0372* 0378 0392% 0486 0850 c6a9u 
ID A015 1FEF 1944 C715 POLSEL A 005 18D1 1347 6211* 0213 0753 
ILNUM A004 OCE1 0294 0245 PPENQ A008 1172 0706 0302 0869 
INCNT A 006 1152 0691 C689 PPROGT A 00& OB9C 0178 0176 
KEPCREK A 006 OBC? 0192 0207 PRER AO0& OF96 0518 0515 
LCCAK1 A 004 19AF 1816 0053* 0107* 0145* 0232 0330* 0363 0369 0375 0381 0388 0413 0418 PRINT C001 021A 1902 0178 0196 0201 0267 O28& 0294 0345 0880 0523 068% 0822 0842 
LCCHK2 A 001 1980 1424 C905 1534 1549 1558 1563 1571 1579 1587 1595 1603 1611 1618 
LCCOMP A 004 OEFID 0395 0367 0373 0379 0386 : 1626 1633 1640 1678 1708 1731 41789 «+1781 «#1792 «1798 
TCOMP1 A 00% OE7B 0426 0402 0407 04810 PRINT2 A 001 1140 0681 C069 0121 0160 
LCOMP2 A 008 OF3D 0490 0487 PRINT3 A 004 1157 0690 
LCOMP3 A 00% OFSB 0494 0491 PSR Cc 001 00048 1891 1492 14693% 1501# 
LCOMPL A 00% OFS5A 0898 0489 0493 PIIAR C 001 0020 1892 
LCOBPS A CO1 OFAB 0527 0501 0504 0512 P2IAR C 001 0080 1893 
LCOMP6 A 00% OEGF 0421 0416 RACK1 A 004 1320 0854 0858 
LCOMP7 A 001 OF72 0507 0502 RECAGN A 004 1220 0771 0791 
LENASC C 001 0037 1190 0101 0101% 1445 REERSE A 004 CD66 0330 0303 
LINK COOt 0216 1901 C656 0827 0853 0856 RENQ A OO& 11BE 0727 07348 
LOAD C0017 022A 1905 C892 14879 ; REPPL1 A 006 12BA 0820 0900 
LOOPON A 004 4C31 0222 0292 0298 REPPOL A 006 1349 0895 0865 0903 
LOOP ¢Z A004 0Cc59 0250 C256 REPP1 A GO4& 12D1 0828 C821 
DATE O1MAR72 21APR72 24J0L72 15SEP72 15PEB75 07J0L75 PROG ID 872-5 DATE 01HAR72 2TAPR72 28 JUL72 15SEP72 15 PEB75 0730175 PROG ID 872-5 
- EC NO. 818693 816395 577058 818397 572250 571781 PAGE 19 - EC NO. 818693 818395 577058 818397 572250 571781 PACE 19a 
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PAGE - 20 PAGE 20a 
8725 3270 REQUEST FOR TESTS (RFTS}~-SRCTICN 2-~ 8725 3270 REQUEST FOR TESTS (RPTS)--SECTICH 2-- 
CROSS- REPERENCE CROSS- REFERENCR 
SYMBOL T LEN VALUE DEFN REFERENCES SYHBOL T LEN VALUE DEPN REFEBENCES 
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bay * A HALY LS GIVEN. A RLSELA HALT WILL weTak THE FUSCTIOB. * 
690 & s 
891 * s 
BYZz SORENEREESEEERTHTESES ED EEEEORD ELEC ESEESFESEE SESS ESE SES ESEESESESESS ESO SS 
1334 643 DISKIU EGU * 
1333 C2 014 1333 B94 LB D1SK10,X4k1 
1333 895 USING DISA1O,%41 
1337 74 U8 16 B30 st vISKX9(, Xx 1) ,AKE srOke ABR ADDEESS INTO DISKX@ *GC® 
133A 75 02 16 697 L DIsKXa(,XK 2) -LHzZ LAOL ARR VALUE INTO XK2 *5Ce 
133d oC QO 13 00 39d MVC DSKFC1 (7,451) ,0(,XR2) MOVE (be AD/WRITE) FUN Bb bIIS *GC# 
1341 CU B87 13F3 69y B DISK33 bhaaCd 10 3340 StCf1Gs FOR TeST *GCs 
1340 960 DSKFCI EQU #41 
1345 P3 OV 00 901 9102 S10 0,0 KLAD Oi WRITE DAA 
1344 0000 1349 902 DISKxa DC ALzZ (*-*) SAVc CALLEKS AXE VALUE 
903 
904 eRe REROEHSEESEREESOESERES SEOEE ESOS SER ESESOFESESSESETE SES SLES SS SESS ES SS 
9u5 *& DISK FPLAG IN SLEA 
9Uo ® Blf U = O HEAD O UPPLRK SULPACE 
yu7 * = 1 BEAD 4 LUWes SURPACE 
908 * bli 1- 6 NOT US£D 
yoy * BIT 7 = 0 SELECT DIRLCTION TOWARD DiCbEBSING CYL @ 
910 * = 1 SELLCT DincCliGN 1U0WAKD IBCHEASING CYL @ 
911 % DiSK FLAG FOR ALL O1H2B OPLEAIIOSS 
91z * BIT 0 - 5 HOLD THE BINARY ZLPAESSNTALIOS8 OF THL SECTOR 
913 * iD SUMBsk 
914 BIl 6,7 NOt UScb ** MUST BL GO F® 
915 eee eEe Cee SOOESH EES SESESSESERES SS EEESE SEFSTESESESTETED TES SSS ESSE SSSI OOS 
134A 0000 1348 910 SATUS DC XLzZ*u® 
134C 917 DSKDRV EQU * 
134C Abd 1w34c | 9 1B DC XL T° Aue DA & M 511 FOR DISK 
134D 00 154D 939 DSKPLG DC »>L AFF FLAG OESCHESTEESESERESHESSESTSSD 
134E OU 134b 920 DSKCYL pc XL1°0O* CYLINDiE *® DISK CUMDKOL FIELD s 
134F OU 434F ¥213 DSKSEC DC XL1°O°® SEC TFOH * * 
1350 00 21350 922 DSKNUM pc XL1°0* $ 10 MOVL F949 SESS SESE SE SSSSSES 
1351 134D 1352 923 DCR pc AL2 (DSKFLG) DISK CONTHOL ADD&&SS abG POR RD/URT 
1353 2623 1354 924% DbUPFa Lc ALz (DBUF) STAKT ADDEESS OF DATA BUFFLK 
1354 925 DAR LoU *-1 
926 * 
4355 927 HLITBL EQU * HALT CODE WULUBKS DEVICE ADDK. 
1355 F2 1355 9298 ie XL3°P2* 2 AO 
1356 FI 1350 929 DC XxLV°FRTe t ad 
1357 F4 1357 «930 DC XL7°F4* 4 50 
1350 F3 1358 931 DLC XL1°F3°* 3 Bs 
1359 4OCECID3E34G60CoO 138A 932 LC CL50* gaLI -PA- X=3-4, VOL X IS NUL GEADY Ob cHsUR OW VE 
1361 E76080E77LF 1O0F4 932 
1369 OBA0ESDOD3I4UETSO 932 
1371 COLZ4OD5SD6E340D9 932 
1379 CSCICHLBUIDEDINO 93z 
1301 CSDYDSLED94OLD6DS 932 
1389 405 932 
1388 D6D340b7 13%2 933 DSKMSG LC CLOS*OL x® 
1388 Y¥34 BMSG3b ECD s-4 , 
138F 404000606040P3F3 213282 935 BSG3 DC CL20% --- 3380 --— 8 
1397 F42U806000604040 935 
139F 40404040 935 
43AZ2 936 HSG4B EQU +-1 
13283 4OUOKOROP3F3P4FO 13CA 937 bc CL4o® $340 shROR HISTORY a8D OTHLK ERKOS DS 
: Fave Ib Pri-2 
DATE 29a0G75 O7BOV75 OSMAK7O PROG 1D PF7-z DALE 29AUG75 O7NOVIS OAMRETO PAGE 168 
EC BO. 827804 #27805 571871 PAGE 10 2c NO. 827804 827805 271877 
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Ibb MAINTENAACEL DIAGNOSTIC PROGKEAS kaki BO. 424024 UM dN MAINTENANCE DIAGNUSIIC PhuvRAB PakT BO. S2k5cal 
Fauk 41 PauL tla 


FF72 DISK cRROK RECOHVING ANALYSIS PROGKAS FP72Z DISK ERROR KECOKVING ASALYSIS PHOGKAB 


LNk LOC OSJLCI CUDE ADDA DENY SUUKCK SIATLE CN 


Ehk LOC OS8JzeCT CODE ADDK SIMT SOURCE STATLHLNI 
DEL F848 FF8 E98 EEOS EEE EEKET TEESE EEE SERS EEKREEETEEESER EE STERESER SOC 8 WUC 996 USING TABLES, Xb2 
phe SeSSH TITLe ®& DISK 4¥PE 3340 i/O nOUDINE SESS eSeeSts *GC* W472 CZ Os 140C ¥97 LA SAbLea, And LOAD siG 4 GIiH AUDAESS OP 2AbLE 
G43 FSSOSSEOESEETHOESEOEETEOEEETES SESESEOSDEHEETRETE NE RSERESESESEESE eGce 1476 78 20 O03 498 1BR AUBCiS (,X81) ,X*808 WY COLe PUK SPINDLE 12 
¥uG 41479 P2 90 03 999 JF CKPIXD JURE IP KeG 21S OK 
944 W7C be OZ O4 1000 La 4(,X%n2) Ade BULP 10 POINT 20 SELCKD HALF 
944 WTP 78 us’ U3 1004 CKFIAD TSN TOBCHN (,XR 1) -X Ou ® © COOL FOR FPAXALD DELYL? 
Guu W382 F2 10 63 Wud J3 BKGDRV JUSP AF FoR P14 Ok £2 
Que Tiod £2 UZ Ve Wu3 La 26X82) »XR2 DUR IF FOR REMOVABLE 
13F3 0C 09 1708 1725 945 DISK33 MVC DDCFE(10) ,DDCF8B INLILAL DDCP FILLD sGC? 104 
13F9 30 CD 14345 946 SKS STATUS,X*cD® Besbi HISTORY GHIT CHECK 31795 GCs 100% 
13FD C4 Ce 15aF 947 TiO DARE,X*Co# SOT KLEADY/UNIT CUtch bahOn Test SGC 100% 
1401 3C OO 1oFE 948 BVI LDCP,%*00 ® CLEAn FLAG BYTL SGCe lus #e* ®eseeeeeesesessestesesese evs ees eee evness *¢s 
949 Wuo ® Resvlsiem 2 SOw PulassS TO Tdt TAbiLc citaXY COUKESPUNLIMG TO THE s 
949 lou? * BEVUSSTED S448 DELVE. * 
949 luus * ® sees eseeveeeaneeeesceanseesanvee sees ease veeugs2e 
$50 SPTESOHES TEESE OEE SESE RS HERSESS OESSESESEESSEEOTSE95E8995E90904549999295% WwOY 
953 teeeesse = SO5-ROULINE 10 CONYEAT Seeseessceseceseseess = Jats 2C 00 149L U1 VuIW BeWDY HVC 8 CYsibi(3),1¢,Xk2) Sbh1 BOWL LRSTRUCTION“ TO vICe UP STRAT 
9GozZ teeeeees 5944 ALDEESS LNTO 3340 ADDAESS FERTH THEE ESEHESE REED 103% * CiLIiNwczés OF SIMUL) aca 
GDS SRERREEEEES SESE ESSESEERTEEEERS 954 58SES FETE E8O6OSE609ESO9EEDESOR TERE W4sD 08 90 G4 OU Wte HZZ IGBYb(,kK1),0(,%62) BOVL Ile inc 2OML SCF OPLEATION CODE 
Goyu & s 1891 Sd OB OO 410%3 4568 O(,Xn2) > * une FORK 3540 DbiVe < UK 42 
955 #8 INPUT: DSKDRV -—-> 10b0b * 1494 7A Gy O4 10446 SBR IGOBOS (,421) ,-X* U5* ASSUBE 3340 DaLlVE 2 Ok & 
956 * DSKCYL --> IObBCAR—-<z s 1497 F2 Ww O3 10145 JT CviCcia ©O STARS Adk CONViHSION 
957 *4 DSKSEC --> JUBCHN-3 a 149A 78 Os O4 10%6 SSF SOB BE (X53) gad PUE® COKHKL¢CY BA BAD AdSUBP1 LON 
35u 8 OUAPUT: DDCF #InLD CYLINULELR, HEAL, KLCORD NUBbLE FUn 33486 SYSTLA *® 449d 7C 00 OG 1037 CVICTH AVI LOBL Hb 3 (, 283) 0 MOVE IS Sisn1 UF SIBULATION AREA 
959 © s W9E 1098 CYSTEL EVD Bong 
Sou eR tHe teeeeee sees esses evneseneseseesnes ewe F4A0 7D Ow 01 3039 CLi LOBCHH-2(,XR1) ,L°U4* CULCK POR 5894 CYL U,1,¢2, GR I 
YoU * AHE FOLLOWING ANEA 1S S21 ASIDE FOR USE &S CONSIARIS LN THE 5489 © 18AS FZ BZ 26 1020 JL CKCYLO iF LOw 6O CatCK PORK CYL O 
9o2 * CONVESSION ROUTINE. e W4ab 7D CB O01 Wet CLL LOsChs—-2(,Xh2) ,X*CB® CHcCk FOR CILIgnbib «2037 
Jos Feet eseeeseeseseserssesevuevesseenvesusecsa ee & & 8 14aA9 CU Oz 148A 1022 BNL ERRMSo CY¥LiINDEs 203 OR GRLATZR 1S INVALID 
904 WAD SF 00 01 1408 1023 SLC JOBCHN—2(3,XH13) ,SVUNLEN SUbiLB MUSSER OF 44 TRACKS 
1405 £2 87 57 G05 J GPCS W2a ¢ POSSIBLE Om FLbST 3340 CYLIBDchk 
WOt 20 1405 966 BLXZO DC XL 1*208 s WB2 P2 82 29 tuzs J8 ADDBAK JUMP IF 4&8 CYLIND£R 1S ON PARSE 
Woy UN WU9 407 POUR pec XL1*O04® s 1026 ¢ SIMULALED 3346 CYLIDDEb 
THOR 14 VWUA Yoo ZOKTEN DC XL1°24¢ * 14b5 7b UU O41 3027 CKZLEO CLI TOBCHR-2(,ab1) pR2U0® SEE Le CYLINDLE WaNt ZEhkO 
W405 17 T8406 Yod SVNTEN DC XL1°278 W4b8 FZ BT 4B 1026 Jk UPCYLE Ll? Zrbu COKRViHSiON OF CYL Is 
140C 970 TABLES EQD s 10293 @ ALMUSi LOAE. 
140C COAY WUD 971 pe XL2°CvA9t TASLE cetad FOn A PV KLQULLT 14BB 4¥ OV OU VASA IW50 ALC LOnCHN-3(5,X%n1),0N%e aby Ubt 10 3340 CYLIBDER 
TRUE COb3 WOr 9372 DC XL2*COb3* SABLE £NiHY FOR A ot wEQUES? TACO af OO O01 140A 1031 SLC TOBCHBR-2 (3,483) ,FORTEN SUSILACT BUBBEH OF 44 CILINDLRS 
7430 C&AYd 14110 973 pc XLz*C wage PASLE cAThY FGo A FZ KEQGUEST Wws2 % POSSIELE OS BEX 3340 CYLIBLEK 
Wiz C853 1413 974 DC XLZ*CoBs* TABLE cNTHY PUK A KZ KEGUEST WCS P2 Be 1b 1033 Jn S0Ds4k JULY 2? B2SULI ace] BiGaTI Ve 
1414 00 1414 975 HeADWA DC XL7*008 WOKK ABLA 16C8 CO 87 1485 40348 8 CKZERO LOOP BACK AND CHECK AGAIS 
3815 970 STAHEN EQU * 1035 
WI5 00000000 W1o YT LOBCHN DE XL4*GuF BUPP2R ARLA FOR SUB-ROUTINE 1635 
Ta19 00 1419 97_o IUBUB DL XL 1°0O* bUFFPLE WOKK AkLa 14cc 7D 900 OF W036 CKCYLO CLI LOBCHN—-2(,181) .X*°00* IS TH. KEVUEST POR CYLINDER ZERO? 
979 WCP cO O41 TH4IA wis onbn ra BASS ig 801 Pus ZieU, LokOs 
9uu FERESEOEETESESS £04 09554 O89 EES OE EEOES SERENE 6ESSTEEEOEEDL EOE EEEESEOEEE W4b3 Fe &7 OD 31038 J CvIsik GO TO CONVEas SLOIOR 10 AEC URD 
WIA CO B87 O21A Gol EnRHSG B PRINT FRIN: 2HA1 HOULLiNE UNABLE TO CONVEKT 193% 
WIE bo? WIE 962 Dt AL1*o57# THE 3444 ADDKESS INTO A 334U ADDKESS Ws 
WiF 33 WIF Sa3 bc IL3*598 14D6 4E 00 OU Oa8BE 1040 UPCYLN ALC JOBCBS—3(0,2453) ,Ont UPDATE TO Nxai 3340 CYLINDt «sw 
TH20 W5E 4421 964 DC ALZ (LKRBSL) bb Fz &7 OS 1041 J CVTSTa 60 CUOs¥zeki SZCTOB 10 beCOarv 
Wee CO &7F 0222 985 b HALi 1042 
Weo FFOF Wet Gao BC XLZ*FFOE® WWDE 4E OO O01 TH0A Tuas abLbbAK ALC LOBCEN—2(0,XH7) ,POSIEN ALD SACK PUULTECN Write wc SULT 
1428 CO 87 02146 987 5 ELNK sce 1044 8 60.3 SLadSe 
W2C ESVSCICZDSCSAOLS 145% 963 =ERRESL DC CLOV*UMNABLE 10 CONVES1 5444 ADLEESS INTO A 3340 abDDAESS.?# tO4S 
7834 D6O4UC3D0D5.5C5D9 938 1aL3 3C OT Iau 1U86 CVISTH BVI BEADWA,1°0O3* LblifLaLEIZL Wok AKER W12d 2 YF 
WSC £INOPSPUPHPEEOCI Sun W4E7 FD OV Oz 1047 chi LODCHb— 3,49) XK OU® bheyc:i rus a 2486 SELTUOR 2220? 
T444 CHCHLYCSEZE2ZROCOD 9ua Wsk F2 389 21 WAS Jr LoX4iT COsVenSluns Is DCai 
TAC D5zi35D0400C 140F 3F3 9ba T&LD Fs 6&9 02 wag ibn TOSCEN- 16,4581) 2% ou*® IhsaChn 2 OF 34448 ao. ULSIZD2 
1458 FaPrusuc C4Cabecs 9ub& WFO Pz 90 05 1U5u JF BULP JU LP lndch 2 w&@S wt(Uchsiip 
TUSC £22245 938 WF3 AF UO Oz 14U5 W511 SLC LOBCSN—BEB X03) pdeEkelU MAKe 184CK « ALL 4 COKTILlLUUS 
9u3 1052 
say WFs TD FC OZ 1053 SUMP CLI LObC uA D(,aK1) £9FCO DID SEL TO BUMS GUO BI1NUS? 
WSF 990 SPCS £OU s 1673 CO 68 147A Ww54 bY BgESS6 Eo’On LY Stelivuk IS AlRUS 
Wis ¥91 USING STAKTN,XAI TPF OF GU 1494 OCABL 9055 ALC HEADUA (1) ,OHKL 4.. Ue TU aclCukb KIFLS 
VASP ce OF 140145 992 La STAKIN, XA 1505 SF Ou O02 aug 1050 SLC IGhCHS—-3(3,Xn1),POUK Ditbemebs Sclabs COUNT 
1463 OC C1 14197 134P 993 avc ZOBCHK-1(2) ,UsSKsec 15ua CO Ud aPs 1057 BNZ BURP LOOP BACK LIP BUT ZLKO 
1469 4 OU O08 134C¢ 994 s¥C LU5U5b (4,Xh3) ,USK UHV SAVE Tok 5448 YQ CODE 1U58 
Wor 5C 00 U3 0a 995 EVC TOSCHE (13,X53) , 1Osyb (, X49) SAVE Hb 5844 | CODE 156 
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IuS BALINPTENANCk DIAGNOSTIC PhOusas PAKT NOs 4246201/1bH MAINTENASCL DIAGNOSTIC PeOGRAA PART 40. 4288241 
Faob V2 Pavk 32a 
FE72 DESK LRROK sLCOKDING sNA&LYSIS PROGRAM ‘FF72 DISK EKROw KECORDING ANALYSIS PROGHAM 
ERx LOC ObJLCT CUDE ADDR SihE SOUKCE SI ATEMENT £RR LOC ObJLCY CUDE ADD SIMY SOURCE SIATEBERT 
ISVE &C UO U2 1414 VOSS EXLD BPC | LU bCEN-2(3,X01) HEADWA HOVE BECORLD COUKT 10 105 ISCD OC 13 10A0 10FO WUE UKEKA BVC PD39(20),PD4S8 ® nOVEL AFTES KeAD DIAG CHD *GCcs 
1513 OC 00 TeFD 141d 306u SVC DDCF42(1),20bCaN-5 MOVE CYCLIND£R AURSER 1199 
1599 OC 00 OFF 1416 T0bt HV] = DDCP44 (1), lUnCna-z HOVE HEAD NUMBLG } VWI 
15IF OC 00 3W7UU 4417 162 s#C DDC F4¢5(4) ,LOBCHE-1 BOVi selORl NUMBLE 15D3 CO 87 O21k ¥4120 PRIKE ob PRINT @ PRINT SHAT UNIT *G6C* 
Wo3 *# ee teteeeeese eee eresea ese asee se see ene es teen te 15D7 37 1SD7 1121 be xALTea7e @ wmOr BLADY / USIT CHECK OCCURRED Cs 
Woks * EXD OF 5448 TO 3340 SIMULATAO8 CONVELSION ROULING s 315D8 3a Spe 1122 DC ALI (PD31-Fb 30) * OEIVE *Gce 
10605 ®s @e eee ees evevtee ese ereaeteevnteeeenaneeesns 15DY¥ 1040 ya 1123 DC AL2(PD31) * is *6c* 
1006 , ¥5LDB sC 4U 10A0 3124 BV1l PL33,x*a0* * Place @ & Cs 
166 i WSDP OC 12 169F 1oA0 3225 BVC PD31-1(29),PD319 ® BLANK PbD31 WORK AhLA *6Ce 
Woo SES 30 CD 1383 Wo SNS STATUS,X*CD*® SLUSX S¥aTUS bITZS 0,1 *Gcs 
15z5 UC 00 1578 13406 tuo? BVC BKDERT¢1(2) ,USKFCT BOVc DISK FUNCTION BREAD/WaIYE INTO SIO*GCS. WSE9 CU 87 O2tz 1127 B UNPACK * UbPACK *6Cc* 
1526 VE UG 1578 14715 1065 ALC RDWRT€1(%) ,-DKV¥s2 LNSLHT DRIVe NOMBoh INTO slo *GC®: ISED 02 WSED 1128 DO XLIPOZ* + STA1US *G6C9 
4537 61 CA 1531 Tuoy T1O *,xX*Cat AVTACHKENT BUSY (Walt) *GCe Wik 1348 SEF W129 DC AbLz (STATUS) * BYTES *oce 
1535 31 CE toF2 1074 LIO LDCF,X*CE® LOav DDCR €1¥H AUDKESS OF DDLF FCS. DFO 1049 ISP 1130 bc AL2 (STA107) s U,1 *GCe 
1539 39 CC 16F4 1071 LIO LDDP,X*CC*® LicD DDDK @1TH ADDRESS OF DDDF aCe! 1SF2 CO 67 O2TA 1331 B PRInt * PRINT *cce 
153D F3 C8 00 1072 S10 u,xX*cH* SLLk COMMAND ERIMARKY TRACK #6 % ToP6 2 SF 1132 DC XLI°B2° * STATUS SEC e 
1540 C1 C9 1540 1073 TIO *,X*Cy# SeeK BUSY (WALT) *GLe USP7 ta ISP7 1133 DC ALV(SiATOT-STAIST) * BYTES *6ce 
1584 C1 CA 1544 1074 TIO *,x*Cat ALIACHMENT BUSY (WALT) *cce! ISF8 1649 WSFy¥ 1134 DC AL2 (STATOT} s 0,1 *Gce 
1b4s C1 CB 15C4 1075 TIO DKER9,X*CB NOL aZADY / UNIT CHLCh aFIbEk SciK CMD *5C% VOFA C1 CA IFA VI35 T1G *,x*Cae ATTACHNEBT BUSY (WAIT) *6c* 
154C OC OY 1738 1704 1076 MVC oDCZ (10) ,DDCF:i Ce ISPE 31 CC 10FA 1130 LIO LSNS,X*CC*® LOAD DDDa WIIh ADDKESS OF DS¥S *GC* 
155z OC OF 31797 373A 1077 EVC DDCZ-1(2) ,DDZL aCe! 160Z F3 CY 07 1137 S1O 7,x*C9* aD DIAG 5YTES *GCs 
3555 31 CL 10Fo 1078 LIO LDCX,X*Cbh* LOAD DDCN #118 ADDRESS OF DDCX (DDCF) SGC* 16005 C1 CA 1005 1138 T1O *,x*Ca® AXTACHNEMT BUSY (WALT) ccs 
155C 31 CC loFs 107% LILO LDF, x*cc*e LUAD BUDR WITK ADDSESS OF DDDF Ce Iov9 CI C8 15CD 11939 TLO DKEBA,X*C&* BOT READY / UKLT CHcChk APTER READ DIAG CBD *GC# 
1500 P3 CY Ut WUsu $1033 SIO x*01",x*°C9* &D HA & KY LVEh CUMMAND *sce: WUD CO 67 O21E 1140 Bb UNPACK * UNPACK *6cs 
1503 C1 CA 1563 1061 TIO *,X*Ca* AITaCUBEKT BUSY (WAIT) *Gce WOIt Ww 1617 1941 DC ILd*z4e * koaD DIAG *Gc* 
15607 CI CB 15H2 Wws2 TLIO DKSRZ,X*CB*® NOL KEADY/UMNIT CHECK 22? *6Cs Yoiz 173F 1613 1142 DC ALZ (DSNSE) * BYiLS sce 
Oss } 1o14 176F WIS Was DC AL2(PSNS) * 0-23 oC 
1083 Y16 CO 67 C2 W144 B&B EKLINT ® peInNi HEADING POb *6C% 
150B 38 0 1705 1084 T88 DDDF,X*02* CHECK FOK DEFLCIIVE PRIMARY THACK FEC, Wola 3 Tota 1145 DC xLt*s3* ° kKEAD DIAG *6C* 
150P F2 10 1A 1085 JT PRIDLF JUSP TO ALILRNAIS TACK GCs) lols ID Tels 1140 DC ALI(RDDGE-EDDES) =F BITES *GC¢ 
1086 YoIC 1665 WoO1D 1147 DC &LZ (RDDGE) * 0-23 eGC* 
10%0 lott CO &7 uzta 1148 B PRIAT * PRKIBT *6C* 
1572 Iwo? LIO03S3 £QU * esc) Wozz vz 3622 79149 DC XL2°82* s HLAD DIAG *GCs 
1572 31 CE toF2 1086 L10 LDCF,X*Ce*® LUsAD DUCK WITH ADDEESS OF DLCP *6Cs 16023 30 lo©23 1750 pc OILD*9 488 * BITES *6C* 
157 31 CC VOFb 1089 LILO LBUF,A*CC® LoaAD DDDK WITH ADDRESS OF DbDF *GC* 1624 176F Yoz> 1151 DC AL2(PSNS) * 0-23 *6Ce 
157a F3 CY UO Wy0 RLVWEKT SIU 0,x*Cy¥* KD/W#i1 KEY DAIA (C9/CA) *6Cc#) = lozu CO 87 0222 Vaz &B HALT cece 
57D C1 CA 157D 1091 TLUO *,xX*CAe AITACHHENT BUSY (8 ALT) *GCc* 162A FFUF ¥6Zb 1153 pC XL2°*FFOF®* *G6C® 
1581 C1 C8 15hB tuvz 41LO DKEaS,x*C&* NOt READY/UNLE CHECK %oCe Te2C CU 87 G26 1154 & LINK 
1585 35 vz 1349 W49> Lb DISKXa,Xk2 SLT-UP Ane Fuk KETUAR TO CALLER *6cs} 1355 . 
1889 EO us? 01 1034 B 1(eXk2) KETURH TO CALLZR *G6C® 4455 
10495 162F 1156 STATST EEUU #14 *GC® 
158C 1090 PHIDEF ECU ® *GC*! 1630 SOE2ZE3C VEZE4E24O 1649 1157 SIATOT DC CL26° STATUS BYTES O,1 ARE XXIX* *sCe 
IS6bC 3C 04 1705 10397 hv DDDF,x*0* Se.i-UP FLAG bYit FOR alinaNate *GCe Wo3b CZEEEZCSL240F068 1157 
7590 3sC OF lo? 1095 MMVI DDCP,xX*ul® SLi-UP FLAG BYTE FUR ALGEbNaAlc *G6C% W640 FIVUCIDSCS4OETE? 1157 
1594 CI CR 1594 tusy ii0 *,x*cae AITACHMENT BUSk (WAIT) FGC8! WRB c7e7 1197 
1998 31 Ch tora 1100 LIO LDDP,X*CE*® LUAD DUCR WATH ADUSESS OF DDUF *GCe 1649 1153 RDDGS LOU e-1 *G6CF 
15S9c #3 CB GOO 11019 SIO 0,X*Cb&F SLEK COMMAND ON ALTLRNATS Ce WO4A SODICSCICHHOCKCD obo 3759 BUDGE DEL CLZ9* HEAD DIAG SIATUS BYitS AE * *GC® 
159F C1 C9 159F WZ TLO *,xX*Cy* SEEK pbUSY 722 (WAIT) *6Ce 1652 CIC7THOEZEICIESES 13459 
1543 C1 CA 1543 IW TLO *,x*Ca® ALLTACHMENT BUSY (Halt) *oC# 165k E240C2rB8ESCSEZHU 1159 
1$a7 CI Ce 15Ca 1104 T1O DKER9,X*Cb* NOx ReADY Y UNIT CHECK APILE Stok CBD *ece looz C1D9C54040 T1598 
1545 Cu 87 150uU 1105 6 $1033 GO TU BD HA & RU ALTLaNAT 4 *G6C®, 1660 7200 PD30 ECU *-14 *ece 
Wu. 1667 SOCUC9E2ZD240C4LY 1074 1101 be CL3%* DISK DELVE 2° oC 
. TW. looF CYESCS4O4O FZ 1101 
ISAF Fz s7 21 247 Dhak J PRT * PRINT NOT READY / UNIY CHECK *5C* 1675 SODSLOE34UD9C5CI IebC 11602 DC CLZ@° NOT HEADY / UNIT CHECK *& %Ce 
Ts lo7LD C&E8406 THC ERDSC9 IWoz 
Ws 1685 £340C sC8C5C3D240 M02 
15B2 OC 13 TokO 1084 Vives DKERZ YC FD31(2u),FD35 ® MOVE AFTER Reab HA & AU *S5Ce I6BL 404404040 404040 Toau 11463 PL31 bc CL20° . *6ce 
1550 F2 87 18 1180 Js PRTAK * NOX sLADY / UBIT CHiCK *GC* 1695 4040404040404080 11603 
1114 169) 40408040 1263 
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PSoL 
re "P72 «DISK 2AROK RECOKLING AbaLISIs PROGHAN 
PF7Z D4SK EkKOA KECOKVING ANALYSIS PROGHAM | 
Tes BK LUC OBJECT CODE ALDH STAKE SUUSLE STATEMELBT 
Buk LOL OBJECT CODE ADDK Sida SOURCE SYATENSYI 
eGls VEZUF SCSSSSSeASSSSSSSSSSSS TOSS TSSEHS TSE SS HTSHSHSHOCSTST HFSS SESHSESESESEEVSEEEESE SE 
TODD HUCTCOLSCSD94UL9 TOFU VI0o7 PDYS DC CL20* AFLLN KeAL DIAw CBbE eae ° 
Tob COCIL44OC4HCYCIL7T 1107 els HUUTINE 3 = PxINT 3340 USAGe. AND cRRUOH SUDBANY TASLL e 
YouD 4¥OC3D4C4 11407 Teva * : 
ee TLeEQi, SOFSHSSSSSESSSTSSTSSSESSESHESHSSTS SOHSKSSSSISKSSLSESLSSSESSSSSSSESVEL OVS SSSSSHSED 
ties : 2 (bbc ;hbSS LLFI-NOST bDYTE OF DUC #5C8 ie tor® 
IKI IoFb YoPZ 1109 LUCK AL2 (DDCP) AbbabSS LLFI-MOST bY: euce Tonge wattle Becerés 
Tor3 1705 toP4 417370 LDDF aC ALZ (DDUF) AUDnobSS LEFI-MuSs LYLE OF DDD : cee eto 2 
tor5 170F WoFo 1277 LUCA DE ALZ (LUC 2) ALLAbSS LEPT-nusT bith OF Luc (DUC F) See Sg aribs 996421558 vias DE x11°03° ROUTING RURBER 
1oF7 2625 Yore 1972 LBUF DC Ree Ee) Coens eae ae ecc® 1771 ou W771 Vezu bc = XL 7" u08 HOUTINE FLAvS 
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cer ane W374 SeeeesereeeeeveesteeHLAuU/MHITEL KoY-DALAS SO eeeeenescasesaeseesansaeesegcs 1772 WOE 1773 Le LC AL2 ($b 1N4) 
1175 * DDCF ®© - * CC * 4H Oe ph fF RL ® DL ® ow & DISK DERIVE *oC* ENG Be eles eee cee sa ee tae NOE a eee a Seat ie tte 
117 SESE SSSESSHERKS SE SAAS SKESSEERTEKE SEPA SSHETSTHISH EVES SS COBTHOL FIelLD s5Ce% Vick ~ HUULING IhliUAL1ZATION 
lor 1177 DICK EGU ® | ces 125 8 Z 
ToFb Ov YoFb 1175 De EO eee ra ee vece 1774 3C 00 ZIbe lzzo MV1  91ND,O Keon] ALL PEOGHAS LaDICtOas 
IFC 0000 WOFD 1179 DC XLz*0U CYLINDER fa ss 1227 * 
ToFk vuod lorry 1180 bc XL<*O008# HEALD SUDKLSS 4 i oe 1778 CO &? WDzpD 1éa¥ ¥kS B SBLGIN FEhFObK CGBBUN LBLILALIiZATIC& 
1700 00 1700 1181 DC XL1*O°* sECORD " v 1 . lezy 
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1740 000 V711 4192 aegis See tepes . re 1794 4C 23 23 ZOCZ 124 HVC = -:35 (36, $281) , S804N BUILD 
LA eas ee aye Re ae. ce rs euce 1799 HC 15 39 20RE 1242 RVC | -57(22,$Xb1) , 28068 41Tbes 
W714 uy W714 1194 i a ee eccs 179E 4C 00 39 Z14by 1243 ROG -57(1, $281) »SDRVID LIBEL 
1745 v0 1715 1195 DO XL4°U8 KbY LLNGTH K k sc os 
171b V400 1717 1140 be XLa* 08 BALA LENGIH o L BOS ae eke e ae See b eenate pugue 
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BIIC BOOVUUGUOUNOUUNI 3725 Azus DUCFB DC XLIW*UVVOUOVLOOULUUVOUVGIVOUO® © INITIAL VALUc FOK DDCF *oC* Wie ioa wit eee et ee oe ee a a er 
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V/26 1704 1727 1203 AKECS DC ALZ(ULLPe5) * ALDSESS FOK ALTEANAT£ KLCORD # USED.*GC* eae PRINT SUMBAEY JABLE GEALIDG Likbs 
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wha LOC OBJEC CODL ADDR Sim? SUUBCL SYALEBELAD kik LOC UBJECT CODE ADDK s¥AY SOUKLCL STATAMENT 
W7Fo CU 87 U21A 1279 8 €PRINT PRINY SeCORD Isa7 & 
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TBSD CO 67 O2t~a ¥3u9 8 $PaINI PRINT FOUXTH 4377 €-—- wo + + + + + + + + oe ee en 
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1335 * 13b3 & 
bboy CU &? U2ZTA T3to B SPRINT PRinN1 LASA LINe Isk1 3D 00 z21C4 tsa CLI $REC,0 BEasie IF 
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PF72 DISK LBRO KECORDING ANALYSIS PROGHAL FF72 «DISK LRHOM RECOKDING ANALYSIS PROGHAB 
*% ERR LOC USJECT CODE ADDH SiMa SOURCL SIATLBENI LKR LOC O8JEC1 CUDE AVDR S4L2 SOURCE STATCMLNE 
1435 2 1403 2 
1929 OC 00 246F 2194 14140 AVC >PTn (1) dF ink POLed £0 OLviST LOw cmaby Ibs 36 BO LIbe T4o4 $6553 IbN $kEC*17,351T0 CBECKLD LOGGED SHS bYIL 3 
1417 * 19DD P2 90 03 1435 JP $A554 @RANCH IF MOT PEEMANENT ERBGCH 
19zF OD OO 216F 2195 W4Ib SBS5D1 CLE SPIR (1) SPURL bEANCH IF 480 © 
1935 P2 81 23 1499 Jb $R5e Whit VULUME Ib W9ku kz UZ Oo 4437 La 0 (,3XHKZ) -d>XH2 ADVANCE POLRALE TO ®PELEM® COSNTECR 
, 1420 ¢ Vang © 
1930 CO &7 1IDDS 1421 b $10 RiLAL LUG cN4AY W9E3 so 30 OO 21AL Woy ShSEH AZ O(4,$XKZ) ,$D1(1) INCSLSLN4 ERROR COUST Ch 
, Wee 8 Yaso © 
193° 4D 05 Ob 21Co 1423 CLC = 13 (d, 3X01) ,dKsCey BhAgdC lf VOLUME Wro 0% Ov cIBF 21k6 W493 Sn5ED ALC $P2H(1),3P1 ADVANCE LOG ENTRY POLLSTER 
19491 CO 81 1ABb taza be $x5P WaS PatVIOUSLY PhOLLSSED W492 @ 
Wes * 1926 34 BY 218F 1493 CLI $eTad,191 bhasCH IP KOT 
1945 OL UU 21uP 214Ad Iseo ALC =3P12(12),221 ADVAbCE LUG EhTKY POINTER IF2 F2 82 O04 1498 JL 32556 Yc END OF LOG AREA 
427 * 14y5 & 
Wy4b 3D BY 218F 1426 CLI $PTH, 141 BbhaNCh L¥ NOT 49F5 3C 00 216F 34906 ‘Vl 46 $P TR,O WiaP SACK 10 PIKST LOG LATRY 
14F CO 62 19uFP 1429 bh $a5D1 Y£% “ND UF LOG Abba 1497 8 
1430 * Wo¥9 OD OO ZIBF 2iS4 Ways S$hoto CLC S$PTH (1),$PTRF BRaNCS IF ALL i06 
1953 3C OU 21BP 1431 Kv¥l  PTs,O WKAP BACK TU FauST LUG ENUEY WSFF ¥2 814 19 3499 Jn $#5i7 sbiklns dave. Boom CHECKED 
1957 CO 87 192F W3Z b $25D1 GU 10 CHLCK Nndk LOG ENUBY ISu0 * 
pose WA02 CO 8? IDDS 15u4 B $10 Breed NEXT LUG bwstV 
Was SO ern em an ee ee a ec A te a es en ete ean eso ese W502 s 
a4s5 8 COMPILE AL Pull SUMMARY DATS LINg WBVUe 3b 00 21C1 3503 CLI $8eC,V BRANCH IPF 
1436 * WAOA CO 814 49E8 1504 BE $RSES UNUSED ENTRY 
14958 7C Fu o4 1437 HSL oONVi =-100(,9x82),C 808 IbiTIALIZE 1305 ¢ 
195b 5C U3 63 04 1436 HVC = -99 (4, X81) , 100 (, 3451) ALL SUMBAKY TAOL 4D US UD 21CO 15u0 CLC 13 (6,3X21) ,SREC#S BRASCH IP ceTuY CONTAINS 
1962 SC 04 59 ©4 1439 HVC = bY (>, 2X81) , 100 (, $281) Likk COUNTERS 1413 CO 01 1928 1507 BNE 38525 A DIPFEBLST VOLULE ID 
1966 >C 93 50 os 1440 BVC bu (4,2XH1) , IU (,3X81) TO ZEKUS 3500 * 
196K 5C 03 WA 50 1442 SVC —-794 (4, 9241) ,60 (,3201) 4A17 CO BF 1992 tsuy b $85e1 60 19 UPDAT£ SUMMAgY COUMTiERS 
196b 2C 03 44 30 Baus HVC ob (4,521) 60 (,3Xh1) Ww * 
1972 SC 09 3D 50 T4403 BYC  =69.(10,3453) ,00 (,5281) Thin 1532 SK5E7 EQU *® 
1370 SC to 30 4A T444 HVC) | 4b (23,3181) ,74 (x81) T2tb 3C OF 2428 W5tz MVl 8 TABIBL, 15 SELUP TASLe POR OUIPUT 
197s SC 63 15 50 Baus AVC £3. (4,3X1) ,bU(,4X 01) Wate OC 914 23BB 23h1 3913 AVC) JABLDX (2) ,ZEXO 
1445 * WazS 3C O04 23b9 1544 BVI CHYLNG,X*04® Srks CUUBI iS © HEX BYIzS LOKG 
197£ Cu 87 IWDS 1447 B $10 KEAD LuG ENTRY WAcd OC OF 2587 25a1 35125 BYS CsTOFS (2) ,ZLEO 
Tyb2 3C 00 219E Wake M¥VI 0 - $BDCNT,O CLEAK TA2P 34 014 YAoA Isto S: SSAVn143,XH1 SAVe 481 
1966 OC O04 219D 219E 1449 HVC =o $K DCNT-1(5) , aHLCNI HEAL AKL Stok 1433 38 O2 IR0E 3517 S71 2SAVRZO3,4R2 SAWE X1R2 
WBC OC 03 ZIAZ 219% 1450 SVC 8 =—-SSKCNT (4) ,SBDCET USAGE COUNTL&S 7437 UC U3 2026 214az Bd5Is BVC) 8 =«s- DB UP *3(4) gSSKCNT PUs SLEK COGhT INTO bUFFER 
1451 * WA3b CO 6&7 112 1519 y BEADEC PO Tht shxX 20 Us SUBROUILES 
199Z VE OS 219E 21CC WSz2 $05z4 ALC SHUCHT (6) , SEC OF UPLATS READ AND 1a41 uv O8 1568 Obseb WDeV AVC SAVSEK (5) , PEI BUPS 11 DI¥VIDi SiEKR COUMS bY 14000 
tyy¥6 Ob 03 2442 21DO 1453 aLC = $SKCNT (4) , £20475 SLEA USAGE COUNTESS 1521 
WWW> s 1a47 3C Oo 2359 W522 EVI «6 CBILNG, X*Ub® READ COUNT IS 6 Hek 5YTLS LOSE 
1992 36 OF 21D8 1455 SbF = $RLC+#23,x*0F® CibLAaR BSG BITS 1 SNS BYTE 7 TANK UC O14 2355 23A1 1523 HVC 8 =6tablbd (2) gZbbO 
145. * 3a57 OC 01 24337 23A1 Ioze sV¥C CNIOPS(z),ZEb0 
WAZ D2 02 15 1457 La 27 (,3XR1), 3X82 POINT GO "PHY OF COUNTER 1357 OC O05 2028 2195 3525 B¥VC =6LoUP4S (0) , SRLCET BrAD COUNT 1S BOW CONVERILD 10 DEC 
1456 * 4A5D CO &7 112 1526 5 HL&DEC 
W9AS 32D 10 21Ds 1459 CLl = $RbC4+23,x* W8 CHECK LOGGKD SeNS= BYTE 7 TA61 uC O4% IBUD UsSE 1527 RVC 8 =6©SAVHD(5) ,PRTLUPSS DIVIDE BEAD COUNT bY 1600000 
W9A9 F2 62 37 Tou JL 2RSEW bhaAsCH If SNS FORMat OU 1528 
TYAC F2 84 10 1461 JH $hSEZ BHANCH IP mOT SNS FPURMA?T 7 1A67 C2 01 BGO 1829 SOAVEI La o—*,XE2 KLS10RL X83 
1402 * Wop C2 02 0000 155U SSAVax LA e-8 ,Xhz KESIOKi Xhe 
19s¥ D2 02 2A 1803 La U2 (54401) pSXaz FOINT To "EYULP CK® COUNTED VAEF SC O04 59 1805 1531 MVC = BD: (5, XK 1) FSAVSEK PUL Tde Stek COUMS IN BSG SUFFER 
laou * Wa74 4C 04 04 1BUOD 15.34 SVC =. 100 (5,X43) ,SAVED | PUL Tab BEAL COUN IN BSG SUFFLE 
WBZ 33 04 211 1465 TBN $bL0410,s81T7 BKANCH IP O12 1379 Jv 40 59 Ib33 CLI 69 (,X01),X°u0® IF 1hexke 1S A BLABK 
19B6 F2 90 20 14b6 JF $R5é3 Sook CHLCK 4s7C P2 61 U3 1534 JXE 90 in doi SEEK COUT, 
1467 * WA7F 7C FO 59 153> NVI 69,401) ,X*FO® ZUT 6 ZEBO 1ibKe 
W¥byY De Oc 37 146b LA 35 (,$XK1),4X%a2 POINT 30 "SEEK CK® COUNZLR Toso ® 
WHC F2 67 WA 14u9 a £k54b3 GO rO INCkohesT COUMI EA TabL TD 4O 64 1557 CLi =100(,X81),X*40° CkCK Ide seab FlilLv PCR DLAWKS ALSO 
1470 * Wad5 P2 01 03 S58 Jhb %46 
WHF DZ Oz 4h WTI SRSEZ LA 66 (,$X4h 1), SXaz POINT 10 ®CUORR DAIA Ch® CUOUNTEA 1a88 7C Pu 6a 1939 EVI 100(,Xk1),x*70" 
W72 2 154u © 
19C2 3b 5u 218 1475 CLI = $8EC4#23,x*50° CisCk LOGscD SLNSi BYTL 7 1341 8 
190 F2 ut 1a W774 JE SHSEY BRASCH IF SSS FOKNA: 5 I5az 8 
19C9 F2 84 1C 1475 JH $R5ES SnANCH IF osS FORMAT © 1n43 8 NOTL THAD the FIRS 15 LOCAGLUSS OF PRTDUP FItEST CONTALS DECIMAL 
1a7o * T5ae 2 VAiUL POR Tedb Sock COUNT AND 1ich 1c WILL COBMLRIM THE wc2D 
WCC D2 .2 ID 1477 La 29 (43X81), $XHZ PULBT 40 "csUULlP CK® COUNTER 1545 *® VALUL<“-THUS THE BVA IBSTRUCIlOBS BAY Be UScbL POm lit bAvivec. 
1474 * loin * 
WCF SD 40 21Ds 1479 CLL $8eC4¢23,x* 408 CHiLA LOGEL SaaS BYTc 7 147 ® 
I9D3 F2 07 03 1480 JN $543 BRANCH IF NOT SBS FORERAT 4 Whby CU 6&7 1AB3 354u B SE5E9 Skip Tals PO LibUe 
14s s WAGP OF O3 Z1AzZ 21B2 1549 SLO {SKCBi (4) ,3KILO COsVERA SEZA 
WYL6 Le Of wa 1442 La 74 (, $481) ,$akz POINT TO *DATA CK* COUNTER W95S F2 B82 09 1550 Jon $H5SEB USAGE COUST 30 
DatL 29A0G75 U7NOVTS U8hak?o FRUG ID FP7-2 DaATL 29AUG75 U7NOV7S USEABTO POG 1D PFI-2 
LC NO. 627664 827505 571871 PAGL 15 ‘LC sO. 627804 827805 571871 Pack Wa 























Eh EALNTENANCE DIAGNOSTIC PROGKAS PAK NU. QZ8o24TILM MALNILNADCE DIAGNOSTIC FRUGHARK kARI KO. 4288261 
PAGEL 1o PAGE Toa 
FF72 DISK sRROH RECORDING ANALYSIS PROGKAB FP7Z DISK cKROX KECURDING AN@LISLS PSOGHAS 
Exk Luc OBJEC] CODE ADDR STEY SUURCE SAATLMERT RHR LUC OBCECT CODE ADDR Sims SOUKCL SYATESEB1 
1AS3 Yo 40 59 21AD 1551 AZ eY (>,4Xb1) , £01 (7) DECIMAL AND SOVE 1LOUY S8HRSTHESEEEEENST TESTE SSHEHESSESE FTES ECRSESS SHSSSTSESSTSSSHSSSSSSSSESHSOSSSS ESOS 
ASL CO 67 TAB 1552 & $KSLT 1C Pslkt BUFFER Tout ¢ * 
todos louz * HOUTINE 4 — PnIST 3340 EKROPR BISi0ON¥ SADSLE s 
WaA1 UP OS 219E 2188 1558 $n5LB SLC 3 $RULCKT (0) ,$KbG CONV£RT beaD lous ¢ . 
AAT Fz 8% OY to55 Jn 22549 USAGe COUNT TU VOUS SHHSSHSSESEHERE SES SS ESSESSSESS STEALS SESS SSE HSSSSSSSSSSESSSSESSSOSSSC HOSS 
VAAA 46 40 of ZTAD 1550 Ai WU (>,3XH9) -2D1(1) DeClhsi AND HOVE tous + 
VAAF CO 67 1AA1 1557 B SRSEU VO PRINT BUFPoR Yovo & ROUTINE FaALFACE 
1558 * IoU7 ¢ 
3AB3 CO 387 Octa 1559 shdcd B SPRINT PRINT WUs 04 TBUE Toud $nTN&~ LC XL 1¢U4® BOVILNE RUSbL# 
4kB7 01 TAb? t50v DC XL4°Qt? SUMMARY LiNe IbOF 00 ior lous DC XAL1*°u0* ROU‘IBE FLAGS 
tabs 69 TAKE 1501 pe IL1*tu5° 1310 FPPS 3533 Tote bc XL2°FFPFrF® Lasi #OUTING 
TABY 2269 VAbA 1562 be ALz ($ PBUF¢ 104) tort * 
1503 * lots B----— weno on nn ae See ee ee ee 
1504 #----~-----~~---------------—- ---—— ---- ------ +--+ --- +--+ -- +--+ lots ¢ ROUTING INLlIilaLIZaATlog 
1bo> * ScARKCH PUR NEXT VOLUME ID 40 BE PHOCESSED low © 
W506 1B1Iz 3c 00 2188 1625 avi SIND,O BLSCT ALL PaOwhAS INDICTOLRS 
ABB OC GO zIBF 21495 1507 $HSF SVC) 3 = $PTR(1),$PTRX HESTOKE LOG ENTHY POINTER tot ¢ 
1565 © Ilo LU 87 BWLD WU so & SSEGLB PL&FOSER COMMOM TALTIALIZATIGN 
1aC1 Ob OO 218F 21K6 1509 $HSF1 ALC $P4K(1),521 ADVANCE LOG ENTHY POINTER lots © 
1570 # Vita UC Gt ZIsc 21A9 161 MVC = SCX¥L(Z) -SPLU9 UketlabLiZe 3540 CYLINDER ALGakSS 
waC7 3b BF 216PF 57% CLL SPLR, 199 BRANCH IF NOT 1820 UC 01 2T8E 21A6 1620 HVC SAD (2) SPI IMLIITALIZE 3340 HEAD ADDKLSS 
WACb PZ 82 04 1572 JL $a5P2 YI END UF LOG AREA 1b26 3C 00 Z216P tort NVl SPTH,U INLIIALIZE LO. HiLOab POINTER 
1573 * loce * 
WACs 3C OU Z216F 1574 BVI = 3P38,0 WHAP BACK 10 FLBST LOG ENIKY Wea CO 87 ILS V2 B 310 BEAD PINST Low BECOHD FROP 3380 
, 1575 @ loza * 
WaDZ UD 00 218P 2194 1570 $ROFZ2 CLC $PTR(1) 2 PERF BRANCH IF ALL LOG Wek C2 01 2201 1625 La EPbUF,SLEI PRINT SUFPcH ADDZESS 10 INDEX RZG 1 
taDo Fz 61 19 1577 Jb $n5n8 LNTKIES daVe BLEN CHECKED toro * 
15738 © Von] BR ane sacs in ca oo 
TADS CG 67 IDDS 1579 8 s10 KLALD NEXT LOG LSTBY lols PRINT dISTOHY TASLS Title AND INPUT LALV&£ ILENIIFIuR 
1550 © lozy * 
WLP 3b 00 21C1 1581 CLI SREC,0 BebaCi IP 1B3z 4C 15 15 <OD8 1630 MVC) =. 21. (22, 2XR1), $050 bU ELD 
TAEZ CG 81 3AC1 1582 Be $H5F1 UAUSED LRLRY 1537 4C 15 2b 20EE Yost NVC «6.43 (22,4Xh1) , 25008 Z1ITLé 
a 1503 * 1b3C 4C OU Zb 2189 1632 BVC) 8=—s #9 (1, 5in2) ,2DBVID LINE 
WaL7 4D 05 OL 21Co 3504 CLC 13 (08, 3XE1) ,FRLC#S bhawCe If ENTRY 133 * 
tAEC CO 81 TACI 1535 Be $B5F1 CONTAINS SAML VOLUME 1D 1B44 CO B87 OctA 1634 b SPRlaT FRIsT 
Ibb0 © 1845 42 4b45 Toso be xL1%42° WITTE 
WAFO CU B7 T94L 1507 B 2R5D -GO JO CarCK IF scW VOLUME ID 1546 2C 1B46 o>s0 DC IL1% 448 Link 
1588 © IBS7 222C bas 1037 vc ALZ (> PaUF +43) 
1584 #------------------—--- -- —- —- -- -- - ——- - --- -- - +--+ +--+ ae 1349 FRUO 1644 103% bc ALZ($HLTUO) 
i590 * PREPARE 14U PRINT SUMMARY POR NEXT DRIVE ID 1039 * 
1591 s VOU Samm wn we a nr wn ee eee ete te A ES EN RN SEDO RA TS LI EES OTE EC I CS LL EE SS SEITE IRE 
TAPSY UL OO 21KE ZIAb 1592 3h ALC $HbL(1),2P1 ALVANCSt dEALD ALL#LSS Tost & PRIN] HISTORY 1ASLE HeADinG LINES 
TaFa G6 OO 2193 21AD 1593 AZ LDKV (4) -sL 1 (1) ADVANCE DIVE IDENTIFIER loa2d & 
1594 © 1B4_b 7C 5C 5D 1043 MV1 0s: 9.3. (,5XK4) C8 O® buliv FIRST 
1800 CO &7 1875 ta¥> B SH5A GO %O COMPLLTE SUBBAMY TABLE WB4s SC SC SC SD Toae RVC = - 92 (99,5423) - 93 (, 5481) time OF dISZORY TABLE 
sys * 3045 © 
1B04 0000000000 1BU& 1597 SAVSERK DC ALS*00°* 1652 CO 67 UZIA Is4o0 b SPRINT PxinT FIRST 
1509 OUGOUDUDVN IbUD 1595 SAVED LC XLS*008 : 1556 ut Ww5o To8s LC XL2°018 alwe OF disToRY TABLt 
1E57 SE 1b57 todo LC ILT*9ae 
BBS8 2255 1559 Toay DC ALZ (2 PHUF*93) 
' loo & 
1BSA 7C 40 SC 3651 bvl 92(,sXu3),Cc*® © CLEAR 
IB5D 5C SA SB SC love MVC = - B(GT, 4XH1) ve Cg EXn1) PHINT DbUPFEB 
1653 ® 
1561 7C 5C Oo Iod4 MVi = @ (, 3421) -C BHP BUILD 
Ibb4 7C SC uF Todd avi 14 (pi KH1) Co SO ScCORD 
1Be7? FC SC 1A 1650 MVI 8 <o(,$Xh1),Cee® Liwk OF 
Iboa 7C SC 25 1057 BVL «= 37. (, 3X9), C°S*® BISIVEY LABLE 
jobs & 
IboD CO 87 021A to>9 b SPHINT PKimd SECCHD 
1671 61 1B71 le60U DC XL1¢03° Lite OF dIS3OHX TABLE 
1B7Z SE 1b7z2 1661 pc ILt*y¥ae 
W7. 2255 IB74 Yoo bc ALz (3 P5UPS93) 
Toos © 
1675 4c Oz O8 2374 to04 EVC &(3,23X41) ,38 220 BULLD 
7a 4C OS OD 21a loo> BVC 13 (0, 2X24) -Shb3N id IbD 
1B7F 4C U3 lo 2168 3606 BVC «22 (4,3Xh1) -3822m Liuk OF 
Wbb4 4C U3 24 216P too? MVC 33(4%,34k1) 38238 s1ISTOal 
j 
vet’ 29KUGT5 O7NOVIS O4BARTO PgUG 1D PP7?-z DATE 29RUG 75 O7NOV7S O8saAk76 reOs ID Pr?-< 
be nO. 82Z7b6U8 627805 5715712 PAGE te (EC NOW 827804 527605 Stio73 rbob lok 
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Ibs Hal 


PFT?zZ 
£kR LOC 
1389 


lide 
VBI2 
1h93 
1b94 


TBYd 
IbYA 
VBYL 
TbA3 
THA 


TbaL 
1BS1 
THB. 
VbbS 
tba5 
Tbhy 
YpddD 
1b3L 
BEF 


TEC 


TBC5 
PBCd 
Bcc 
wer 
BDz 
tbb5 
IbDbd 
HDC 
SDD 
lobe 


Tbov 


ISL> 
WW.y 


BPoEC 
SFU 
ERG 
MBPS 
WES 


ioFe 


WIC 


cv 


tcusa 


DATL 
EC KO. 
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PAKT hU. 8284241 
Pack 7 PAGL WA 
DISK ecXRUR RECORDING ANALYSIS PROGRAB PP7z DISK EKROK RECORDING ANALYSIS PROGHAK 
OBJLCT CODE ADDK SUMk SOUKLCE SYATEMENT EER LOC OBJEC] CObe ALDK STrI SOUnCL STATLBENT 
4C 1A 4 2009 Teos BEVC (78 (27,442) , dHO2N TABLE ICuB Fé 84 Iz 1730 Jb SROC phiRY 1S UNUSED 
looy # 1737 ® 
CO 8&7 UZ1A Io Ju B $PHINT Prins) LHIKD 1COb OL VO 218P 21A0 i730 ALC $P3K (1) ,$h1 ALDVAKCE LOG EN1SY POINTER 
01 1b92 1071 bc KLitut LIN. UF dISTUORY “SABLE 1739 ® 
SE thY93 167z bc IL 1*y4e 1C11 3D BF 210P Wau CL $PTH,191 BRANCO IF BOT 
225b 1BY¥5 073 DC ALZ (2 PBUF*Y3 4015 CO Bz 1000 3741 bL dkobI YE1 END UF LUG AEA 
( ) W742 © 
lov4 * uZ 
5c O2 va US 1095 RVC %(3,2XK1) 9 %(,$XH1) BUILD 1C79 3C 00 .18F W743 MVl = $P4H,0 ASSUBE LOG AREA 1S PULL 
SC 05 OD GE loo MV¥L 13 (0, 4401), 14 (, £2451) FOUstTH W744 ® 
4c 07 13 217F 16077 RVC 24 (0,2a51) , 2254 LISLE OF VERS, Seen newness resets ate eee ee eat meee ia ae aaa cca aad 
4C O07 22 2147 1674 AVL 34 (&,1Xn1) ,EMLON dLSTUsY T)4o ® LOCATE OLDELSS LOG ENUEY 
4C 34 5B zO9K 1979 MVC 93 (53,24n12) ,d%03N TADLE Wa7 © 
lood * 4CID 3C OO 2198 174d dHoL BVI $Cira,U ImITIALIZE LOG Ee1bY COUMILE 
CU 67 O2¥a i001 B $PhINT PHINT f£OUnTH t7ay © 
04 Isbl lots DC XL 1°01? Line OF HIS2ORY TADLL 1c21 CO 87 IDDS 47>U SROLT Bb $10 READ LOG ENSTHY 
5 IbBZ 1603 bc IL1*494¢ W753 
2255 TBB4Y Tod4 ie ALz(SPBUFt93) 1025 3D OO 21C1 W7oZ CLL $RLC,U BRANCH IP 
lonS * 1Cz29 FZ 01 30 1753 JN $k oC 3 oB1KY 1S BSED 
SC 55 5C db lodo MVC 92 (92,EXH1) ,Y5(,34K1) BUILD LAST SEADI au LINE 1754 *# 
los? * WC2C Ur GO 218PF 21A6 175> elLC $PTK(1),3P1 ALVANCL LOG th1k2 POLNTER 
CO 67 OZ1la Toss B SPRINT PRIN? LAST LINi IC4Z VE VO 2790 21A6 1750 ant $C 1h (1) ,$P1 ADVANCE LOG £NIBY COONTES 
v1 IsbLD Tosy DU XLd*ute GF SISTORY TABLE HEADING W7a7 ® 
5z 13BL loyu DC iL1*9u8 10343 sb BF 214P V5a CLI $Pik, 191 BRABCH IF NOT 
“22d VBCO toy DC AL2 (23 PBUP493) 3C3C F2 B82 O4 1759 JL $n 6CZ Yb2 END OF LOG AEA 
1692 *% 17ou * 
sC F1 2193 1093 HVi «=—s- SURV, C#1* LNiULALIZE DslVi IDENTIFIER WW3F 3C UO 21BP 17ot MV SPTE,O WRAP pACK 40 PIEST LOG EMIURY 
1094 * l7oz ® 
VO99 Bern a — 1045 3D BF 2398 ¥Wo3s 2kOCZ CLI $C1k,191 GO TU CHECK ALXT LUG IP ALL 
IoYo # Pelnd HIsrOk¥ JAsLi SPACE LINES tC47 CO Bz 1021 t704% BL shoul EBTRIbS dAVL WOT YL BitN CEcKKLD 
1097 * Wo5 & 
Ee 2 2 i Lode dKOA ee ao ® CLEAR IC4b &C GS Ob 2167 I7oo Svc 13 (0,3X 43) - $5218 BUILD "HO LOG*® BESSAGE 
5 B og NVC 949 Xb1) 92 (,3 481) PEIN] BUFFER to? * 
1700 * , pei ICo0 CU 87 Oz1A Veo b SPRINT FiINT *hO LOG® 
7¢ 5C bo 1701 MV 6(,iX%01),Cte® POSiTiON# W544 U1 1054 1709 LC XL1°018 MESSAGE UB ZABLE 
7C 5C OF Wu MVi 15 (,3451) ce" ASTERISKS 1C55 SE 1C55 1776 bc 1L3°94° 
7c SC ta 17U3 MVi Zo (,3XR1) Chet IR Ph1inT 1CS56 225 4C57 1771 bc ALZ (3PuUF494) 
7c 5¢ 25 1764 BVI 37 (,x421) ,Co*? BUPFER 1772 © 
ee re Na * . deems wt ee aecpelt 1¢58 CO &7? 1i4DUD Fs) Sk ON 60 TO PROCESS DATA FOR MEX) LaLVE 
& RL CE Lis 1774 #& 
a Hee ya as ae Ic5c uC OU 2194 zlBF W775 S$ROCS BVC 3 SPTRP(1),S$PTK SAVE POIbTxoeR TO OLVEST LOG LATHY 
4 17760 * 
2255 WDE I7LY pe AL<z (S$ PbUF 443) WI] ¢----~~ PN TES ee aE Le RC TED Bs! 
mee Wis @ PONMAT AND PINT LOG ENTRY 
oe aes 2 a a a a a a a 1779 *# 
wT Be6I1N / oND nISTORY PRINTOUTS ae 3b oY 21b8 V78u $bhob CLL = sHkb0 423, * 08 BHANCK IP ORLY 
Cob CU 1Cb3 1751 bi $Roi G ahi : 
SERMON a ates 1744 BVC 3 (1,2%81) ,3LKV hOVe DuIVE 1D TO PkIsT BUFFER i782 © 7 . ugar dne lay ee EeIee 
tity nea we * ae Spun eguinecsasicanicre 4 ICoA 4C 05 UD 21Co0 ie. BYC 13(6,5Xb3), 221045 BOVE VULUSE 1D 10 PRINT BOPPER 
e ‘a HIN 2 Lb ba & 
Pe UW YW ue ‘ JING $ko diSTORY HAS SOX Yn BELN PHINTED os ae 5 oa Hy RVC 2£4(5,3XK1) 3M cue JSIvlALI2i DALE AbD 
; ee 4 4 bo BWC 35(d,$Xi1) ,3M20N Tite FILLDS Lk PHIMT BUFPEY 
5C 5b 5C SD a ‘ HVC 92 (42,EXR1) ,93(,8401) BUILD LAST Linc OF HISTOHY TABLE 1737 * : , 
: a < 1079 3b 00 2TkA Viog CLi 3 ¢ 
CU 87 OZIA 721 B 3PRINT PRINT LAST LINE 1C7L F2 61 UP W7boy J Geko ee ee nae 
0 , = ° b byt DATE WAS areORDED 
i ree a Le XL1*uo0*® OF BISTOSY Table 17yu ¢ 
r BPD 17234 be IL1*9y8 Wsv 4C 01 12 21kb 1741 4 
325 ; - ‘ 4 RVC 16 (2,3XH1) LEC eae SOV. DATE 
5 IPT W724 LC ALZ (PbUP +9 3) I1C6b5 4C 01 IS 29ED Wye BYC £3 (2,5XK1) ,DKEC ORY 40 PHINT 
icbipess W725 ¢ Woa 4C 01 18 27LF 1795 K¥C | -24(2,34N1) ,SHECONO BUPPok 
L Bo wee : b tab GU CHECK FUR BORE INPUT DEIVES 174 & 
72 Wor 3D 00 21F0 W95 $adoD1 CLI = $ableu7,0 BEANCH ly BO 
V0 Bonne on nn enn nn a Rn enn nn 1093 F2 81 OF 1796 Jt $KOLZ 1ite wAS msCOkKbab 
& LOCATL AN UNUSiL LOG cCHTAY FIELD 1797 
30 * 1090 4C 01 19D ZiFI Ww 29 (Zo 
mer uue ae me =: wD. 96 AVC 29 (Z2,$X81) ,SKECOUG BUVE .. Ae 
c uP a Skee MV SPTR,O POINT 10 FinSt LOG ENTRY FILLD es 4c 20 Z1FS 1799 HY¥C 32 (2, 2XH1) ,dHLCODO tO calaT 
CAu SC UF 23 21FS bE : 
CO o7 IWDDS A143 $R6Rd ei Beep ee ous i. : mvc 35 (2,341) ,dHECOS2 SUPPLE 
17su * we . ; 
z ; ICAS Cu B87 Ucle loud $noObe B 30 APA UNE 
3p OU 21¢1 j ae en 
1735 cil $HLC LU bHASCH IY ICA9d O48 1Ca9d WbU3 pc IL1*48 FOUR SENSE 
29A0675 O7NOVTS ai rN : ; 
M766 So 7G0s aaa ®ROG ID PP7-z Date ZYAUGTD O7NOVTS V4bs R76 P06 ID FF?-< 
KAGE 17 £C NO. 2746048 827605 57%071 PAGE 174 
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dba KAINITENANCE DIAGNOSTIC PROGKAMS 


PF7T2 
ERK LOC 


YCRA 
TAC 


War 
ICBZ 
1Co3 
ICBS 


1Cb7 
1CBB 
VBC 
TUBE 


WCecu 
ICcCa 
ics 
1cC7 
1cCc9 
weno 
Ck 
1CL0 
bz 
1C56 
ICD? 
1Cvy 
CLS 
ICDE 
ICEY 
ICE 


WE 


ICES 
ICED 


ICFO 


cru 
cra 


CPD 


1b01 
IDG5 


1L69 


DOD 


1L11 
bts 


1b19 


DISK LAKOK RECORDING ANALISLS PROGEKAN 


USJECT CODs 


ZTD4 
222F 


CO 67 
v4 
2168 
2238 


CO &7 
O4 
21LC 
2241 


LY 87 
v4 
2146 
Laka 
CO &? 
04 
2754 
2253 
co 87 
us 
2758 
425C 
CU &7 
01 


DE 
225h 


OL 00 


3D EP 
F2 62 


3c UU 


OD Ou 
F2 31 


CO 6&7 


3D 00 
cu 81 


CO 87 


3A 0b 


38 &U 
CO 9G 


OF Gb 
vo 60 


<9 AUG7 
d2 7664 


Ozte 


O2TE 


OzlkE 


OZTE 


O21E 


O21a 


<18F 


218F 
U4 


215F 


2 1oF 
lu 


Tops 


2%ct 
ICk3 


IWCo2 


2188 


Ocuc 
ALLS 


2188 


218i 
2193 


5 


Z1Ao 


2194 


21A6 
27AD 


ADDR 


CAD 
ICAL 


WCbzZ 
IC BY 
Who 


1CbB5 
Cbd 
wCBF 


IcC4 
wWCo 
ICC 


t1ccD 
CCP 
1cD1 


ICbo 
ICDa 
WCva 


1CoF 
ICEU 
ICE2 


O7ROV7TS 
827805 


Sah) SOURCE SI ATEMENT 


teu4d DC. ALe (kLU4149) 
WeU5S pc AL2Z(LEBUY+40) 
lEUo & 

teu? b EUKEK 

Tshub ve IL1e&4e 

8u9 uc ALZ (an EC 423) 
Tutu vc AL2 (J PEUrte55) 
Yok? 

1d 32 8 SUNPK 

1613 De IL 1% 

18t4 uc ALz (2 nEC#27) 
1S bc AL<Z (2PBUF +64) 
wo * 

to37 B SOUNPK 

1618 be ILT*4? 

Wty DC AL2 (340431) 
1620 DC 4Lz (3 PBUFAT 3) 
lozi 

W222 B SUNPK 

62s DE IL1T*4Q8 

T1624 pc ALe ($KEC#35) 
125 DC AL2 (3/5UF 462) 
lilo * 

Von? b JUNK 

Toze DBC ILT* ye 

Vey BC AL2 ($54C439) 
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24 
94 
eC 9a 
OA14 CO 8&7 1820 95 
96 
ss 97 
Oals 98 
OA1® CO e&7 CCFi 99 
> Oaic 3C E® oBBo 100 
a CAZ0 F2 @1 4g 101 
OA22 2D DE ceBo 102 
a OA27 CO O01 OAlLAa 103 
“a7 OAZE OC C1 1187 C203 1646 
CA21 OF O1 1187 LeCD 105 
& Ca27 CO 01 113867 11€F 106 
ae CA20 CC 04 1104 107 
OCA41 OC 08 OBDE oBgR 108 
ae CAS7 OC 01 OC&8E COBDS 109 
OCA4aD OC C7? CeSE CeDF 110 
OASS OC O01 0898 CAD? 212 
e CAES 2¢ 01 1102 112 
113 
OASDS 35 01 1801 114 
@ CAEL CO 87 OC3E 115 
OAEE 128 CAES 116 
CAEE OfSE OAG7 2:7 
ae CAEL CO 87 CALE 128 
— 119 
CAEC OC 01 1187 O2O3 120 
OA72 OF 01 1187 180D 121 
OaTe OC 01 1187 L1eF 122 
CATE CO 04 1104 123 
CA8Z C2 01 CBEC 124 
OACE 3E 02 1809 125 
CAPA TE CE 13 126 
© OAEC F2 81 18 127 
; CA90 35 O02 1807 128 
CAG4 70 CE 132 129 
OAS7 F2 81 OF 120 
ix! CASA 3£ OF 1805 131 
CASE 70 ca 12 132 
rs OAA!L F2 f1 04 133 
as CAA& FE O2 1803 136 
135 
CAa& E2 O1 03 136 
CALEB 24 01 OCACA 137 
CAAF 70 ©O CO 138 
é O&E2 F2 B1 12 139 
s CAGE 1€ CO 1181 OO 160 
CAEA C2 01 24 141 
@ C4EC OF OO 1181 118A 142 
CAac2 CC C1 CARA 143 
144 
@ CAC? CE GO CC0O i1e,A 145 
146 
OACE CO e7 Oc3eE 147 
€ CAD1 O€ OADI 148 
OaC2 CeeeE 0ad3 149 
150 
ec CADa CC @7 oOCzE 151 
CAce of CADB 152 
CACS CES? OADA 153 
e 184 
OSCE CO B87 0036 iss 
© care O1DEC74 
EC We e248e29 


6 
e 
® 





SECT 7112. 


W120. 713s AND 714 


SOURCE STATEMENT 


een TetSAPFRSER USAR OSE RDREE HED ERS SEERESEEREOS EEK SENOEEEEEEERSERES 
ROUTINE PREFACE # AND FLAG , 

LAST ROUTINE 
WORSE SS SPOS OESE SESS TED OR SDSS EEEEEED CORE EESEREOEE ORES SRRORREREEADEEES 


PREPER oC 
oC. 


INITBR B 
* 


READLP ECU 


PROC cur 
JE 
cur 
BNE 
wvC 
Sic 
cic 
SNH 
MVC 
"AVC 
MvC 
MYC 
MVI 


VESCRD «avec 
sic 
eL_c 
enn 


tA 


CLE 
JE 


cur 
JE 


cur 
JE 


SDRIN CA 
ST 
cul 
JE 
aVvC 
La 
sic 
Baz 


SKPMOR 


ADDUP! ALC 


ec 
oc 


oc 
oc 


XLZ*O1008 
XL2*FFFre 


IN ITAL 


% 

CIrskRoO 
RDAREA.C# Ve 
VESCRD 

RDOARE A.C*Ce 
REAOLP 
WOFKO4(2).SIZE 
WORKO4(2) eENDATA 
WORKO4(2).SExTY4 
COFPRT 


ER TO DISKPD 


¢ 


o 9° 


PART NOe: 8558915 
PAGE 2 


GO © 


0 0 


I 
GO INITIALIZE PGK ' 
THIS INSTR MOD TO 8 TO REAOLP 


0 0 9 


IF RECCROD IS TVES 

GO TO TVES SECTION 

TF RECCRD IS NOT aBsR‘OR TVES 

SKIP THE RECORD 
PLT MAX SIZE OF CORE IN WORKO& 
SUBTRACT LAST ENTRY ADOR FROM IT 
CHECK IF ENOUGH CORE LEFT FOR THES 1 
IF NOT. GO PRINT FULL CORE MESSAGE 


QO 


ROAREAtS£( 12) -ROAREA+24 MOVE OISK SATA UP FOR soRT 


RD ARE A414(2) -RDARE ABS MOVE AND AT SAME TIME SGRT 
RO ARE A422 (8) LROAFE RTOS 
RD ARE At24(2) ROAREA4S?7 


VALFLGex*o1° 


OBREND oe xf 
INSERT 

ILitzee 

AL Z2(RDARE £424} 
PEACLP 


WORKO4(€23.S1ZE 
WORKO4 (2) sENCTATA 
WORKO&(2) SIXT Ve 
COFPRT 

ROARE ASKER! 

SORE 2. XR2 
I9CeXRID.X9CEe 
SOREN 

SORE1.xR2 
19GeXR1Dex*CSe 
SORIN : 
SOFREO. xR2 
19CexXRI de xecar 
SDFIN 

VESEND exR2 


3O aXR20 eX] 
AOCUPI43.xR} 

OC eXR1960 
AaDCUP! 
WOFKOL ce OC 1 eXRI) 
JEL oXRVUV oS XKY 
WOFKO2 (1) -ONE 
SKFMOR 


#—9(1).0NE 
INSERY 

wLies6e 

AL Z(RDARE AGG) 
INSERY 

Litsge 

AL Z(RCARE £423) 


INSERT 


MUST SE UNIT O-SET UP FoR 0 


CATA BACK DOWN 
IN READ AREA 
SET VALID DATA FLAG 


PCIRY Te THE END oF 
THE OBR FIELO we xR} 
AND INSERT THE RECORD 
IN THE DBR AREA 
DONE —- GO GET NEXT RECORO 


O Oo 0 


PUT MAX SIZE OF CORE IN WORKOSG 
SUBTRACT LAST ENTRY ADDR FROM IT : 
CHECK IF ENOUGH CORE LEFT FOR THIS 3 
IF NOT. GO PRINT FULL CORE MESSAGE 
POINT TO READ DATA we XR3 
TEST Q-B8YTE 
FGR UNIT 3 
IF FOR UNIT 
TEST Q-8YTE 
FOR UNIT 2 
IF FOR UNIT 
TEST Q-6yYTE 
FOR UN’'T 1 
IF FOR UNIT 1 GO MOVE DATA 


2 C60 


3 GO MOVE DATA 


2 GO MOVE DATA 


200 


PUT 1ST BYTE CF PROPER SOR INTO xRi 
PUT ADORESS OF SOR ENTRY COUNT IN 
CHECK ENTRY COUNT FOR 6 

IN NO ENTRIES YET GO MAKE 1ST ONE 
PUT ENTRY COUNT INTO WORKOS? 
BUMP XR1I TO POINT TO Is¥ BYTE oF 
NEXT ENTRY UNTIL ALL 

ENTRIES HAVE SEEN SKIPPED 


© 
© 


ADD ONE TO THE soR ENTRY COUNTER 


PUT THE 
OATE INTO 
SOR AREA 


PUT THE VOLUME BITS 
INTC THE SOR AaREa 


oO 
6 
© 


PUT YHE DEVICE Type 
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TBM MAINTENANCE OTAGNCSTIC PROGRAM 


7160 
ERR Loc 


CaAce 
OAEO 


OaeE2 
OAEE 
OAE?7 


OAES 
OAEC 
OAEE 


OAFO 
OAF4 
OAFT 
OAFe 
OAFF 
0803 


06 06 


OB OA 
OBOE 
CBi2 
cBl1eE 
OB1aA 
OBIE 


O&22 
OB 26 
OBZA 
oB2c 
cB31 
OB35 
0B39 
C820 
CE4O 
Ch44 
cB47 


OB4A 
CBF 
oeea 


cese 
oese 


OoBSsE 
OBE2 
csés 


oB6Cc 
cs7: 
oe74 
cB77 
oB70 
céei 
ceee 


oeee 
ceeo 
ces2 
OBSE 
cese 
CESE 
CBAE 
OBE 
OG AA 
C&ate 


716-6 6 OAatTe 
Ec nce 


CATA FORWAT FRCG (3340) FOR 


CBJECT CODE 


01 
0894 


co a7 
02 
0896 


0c36 


co &7 
1A 
oese 


0C3E 


35 01 1801 
O2 01 O3 

€2 02 0880 
38 C4 11¢0 
3D 02 Cas? 
F2 01 1¢ 

7a 40 11C¢ 
AF 00 21 ta 
AF 00 22 18 
AF Of 20 19 
AF 29 23 1¢ 
AF 0C 24 10 
AF 00 25 1€ 


3A 8O 110 
30 02 cBaS7 
F2 04 C8 
38 80 110 
3a 04 11¢0 
=4@ Of 110€ 
38 40 130 
F2 10 16 
36 80 11¢0 
F2 10 03 
F2 e7? oc 


a0 0S 
co 81 
Fe 87 


cS csasc 
oBee 
os 


40 05 
Fe 81 


os 
2A 


ces2 


34 01 
oc o1 
co 02 


2281 
1181 
OBEA 


1803 


1c 00 1181 06 
C2 01 06 
C2 of 11 
cF OO 1181 
co 0! 0674 
D2 01 01 
co 8&7 ca3¢ 


t1ea 


1c 02 1181 06 
4E GO 06 48104 
C2 01 06 

2 01 22 

CF OO 1181 1184 
cO 6! 0895 

38 04 3100 

co 10 opBeE 

38 46 11¢0 

co 10 oBB.E 


O1DECcTa 
e2ae29 


ADDR 
OADF 
OAE1 


OAE6 
OAES 


OAEO 
OAEF 


STMT 


156 
187 
1s8 
159 
160 
161 
162 
163 
166 
1658 
166 
167 
163 
169 
i790 
171 
172 
373 
i74 
175 
176 
iv? 
178 
179 
180 
181 
182 
183 
184 
iss 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
298 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
218 
216 
217 
218 
219 
220 
221 
222 


223 


SECT Vile 7120 713. ANC 714 
SOURCE STATEMENT 
cc Wlaeyze 
oc AL2(ROARE 4420) 
8 INSERT 
oc TLaitae 
o¢ AL ECROARE AG22) 
8 INSERT 
oc Tait oee 
oc AL Z CRC ARE £456) 
L OCBFENDe YR} 
LA 3BCeXRL I xXRE 
LA “RDAREA NRE 
SBF STATF Ce VOL IBT+VOL2BT4MUL TBAT 
CLE RD ARE A423 ext Ope 
JNE NOTTwWwO 
SBN STATFGeVCL2B8T 
Stc 33 CoXR2) 0 ZEC Le XRD) 
SLC 240 e XR23 02702 XRD) 
SLC 220 eXR2)06 220 2exKR2) 
Sic 35 60 XR2) 62001 eXRD) 
SLC FEC oe XR2) 0 25602 XRD) 
SLC 37 €eXR2)0 20 1exXR2? 
NOTTwO sBeN STATFGeVCLIBT 
cL RDAREAS23.R°O20 
JN. CXLFELE 
SBF STATFGeVCL IBY 
SBN ST ATFG.MUL TBST 
LKUPLP st LKIRLeXRI 
RECHK YBN STATFG. VOL 28T 
JT CHKT WO 
TBN STATFGeVCLIBT 
JST CHKONE 
J CHEKTWO 
CHKONE cic 5SC€€eXR1 )eROAREAS1 2 
BE SKEENT 
J CHKVOL 
CHKTWO CLC 5(6eXR1) eFCARE ACIS 
JE SKPENT 
CHKVOL st WOFKO1 OXF} 
cuc WORKO1( 2) »VESEND 
@ac NC MACH 
. . 
“vc WORKO1LEC2.xXRD? 
La SC eXRI DE XKI 
SXPCNT LA 17C.XR1D oO xRE 
SLC WOFKO1(1).CNE 
BNZ SKECNT 
LA MC eXRIAVOXK! 
8 RE CKK 
SKPENT swvE WORKGLCEC XRG) 
ALC 6€ eXRE DePLUS} 
LA SC oXRLP XR 
SKPAGN LA E7CoXRIP KR 
SUC WORKO1 (1) .CNE 
ONZ SKPAGN 
TEN STATFEG oMULTOT 
sY INSLST 
TEN STATFGe VOL 2eT 
eT INSLST 


| & 


PART NO. 
PAGE 


5558915 
2A 


INTO THE SOR AREA 


PUY THE BLOCK LENGTH 
INTO THE SOR AREA 


PUT THE ACCUMULATED SNS DATA 
COUNTERS INTO THE SoR AREA 


POINT YO BEGINNIP3 oF 

TVES DATA ws xR? 
POINT TO START OF READ IN DATA — xR2 
TEST TO SEE IF ONE oR Two 

VOLUME WAS LOGGED FoR THIS sos 


SET TRE 2 VOL INDICATOR BIT ON 





SUBTRACT @LAST™ NOISE BLOCKS, 
WRITE SKIPS, 
£10 COUNT. 
TEMP ROF, : : 
TEMP RDB AND 
TEMP WRT COUNTERS FROM @ALL®@ 


SET FIEST VOLUME INDICATOR BIT ON & 
CHECK FOR MORE THAN 2 VOLUMES 
IF wc. 


+ 


GO CHECK FOR maTCH z 
ELSEsSET FIRST VOL INDICATOR BIT OFF: 
SET MULTE VOL INOICATOR BIT ON ‘ 
SAVE XR1 POINTER TO IST TVES RECORD : 
TEST IF THIS §S A 2 vet vos : 
IF YESe GO CHECK FOR MATCH FOP LAST : 
ELSE. TEST FCR Al vot soe ; 
IF VYESeGO CHK FOR MATCH FoR FERST ‘ 
ELSE=MULT—GO CHK FOR MATCH FOR LAST . 


CRK FOR MATCH FOR FIRST VoL ID : 
IF VES. GO SKIP ENTRIES FOR THIS vou: 
ELSE. GC CONTINUE CHK FCR MATCH , 


CHK FCR MATCH FOR LAST vo. 10 
IF VESe GQ SKIP ENTRIES FOR THIS vot. 


PUT IST TVES REC ADCR IN WORKO! 
COMPARE IVT YO TVES END POINTER : 
IF NOT LOW-NO TvES MATCH-GO 00 FIRS;* 
ENTRY FCR THIS VOLUME Ip 

ELSE .PUT 1ST TVES ENTRY CNT-WORKO} 
SKIP XR AROUND VOLID AND ENTRY CNT 
SKIP XR12 ARCUND THE DATA ENTRY 
CECREMENT ENTRY COUNT BY One 

IF NOT ZERO YET. GO sxIP AGAIN 

CUMP INDEX UP BY GNE MORE 

GO RECHECK FOR A MATCH 

MOVE “ESENT ENTRY COUAT INTO woRKO? 
ADD ( -: TO ENTRY COUNT IN core : 
EUwYP INDEX UP TO ENTRY COUNT : 
SKIP AGAIN OVER TIS DATA 
SUBTRACT ONE FROM OLD ENTRY COUNT 
IF NOT ZERO GO SKIP AGAIN 

CHECK fF THIS 1S A MULTI vou vos 
'F YES. GO INSERT DATA FOR LAST 
CHECK IF THIS 1S a 2 vou sos 

IF YESe GO INSERT DATA FOR Last 


SHER a ie ee eR re a a one 
és 2 


PROG ID 
PAGE 


716-0 es 
2a: 


a 
g 


7 . 7 4 wee oe . $ er - - = cee ae woe yer ae <9 ao4 - i ‘ 
m , a 
” gs 3 
x c= 


a 1 
e. C 
i 
{ 
c © iG 
SSS91E 
TEM MAINTENANCE OTAGNCSTIC PROGRAM PART NOw. 5558915 TBM MAINTENANCE DIAGNCSTIC PROGRAM a NO- S558 : 
PAGE 3, AGE 
% % t BF 
e © 


we tee 


7160 CATA FORMAT PFOG (3340) FOR SECT Tile Vl2e Vide ARE 714 71€0 CATA FCRWAT FFCG (3340) FOR SECT 7ile 7l2e 723-6 AKC 714 


om 
ey 


Le ERR LCC CEJECT COCE ADOR STMT SOURCE STATEMENT i © cer Loc OBJECT COOE 


AOOR STMY SOURCE STATEMENT 


is 7 OCfFE2 CC e7 OC10 224 8 INSALL ELSEe GO INSERY “ALL® DATA ' ) 2BR FSEFHHSESSTHESVSEIAHHSHSOSSESSHSSESS SKS SESSSHASSKESSSSSHIVSEHRSESKSSRSKET SSS SEKSKVES 
ae eG 225 285 ¢ SUERCUTINE INSERT s 
cCeeé CO @7 CC3E 226 INSLST 8 INSERT INSERT : s SRN eye ete Gee gee eT Tere tee ee tee et a 
rm, ont OfEA O€ OBBA 227 oc TL9*6e THE 
& C cBee OffE oesc 228 oc AL Z(CRCARE 046) OATE o cee : CALLING SEGUENCE . 
229 
c Cc: oBpec Co 87 OCSE 230 8 INSERT INSERT THE Oo 290 8 TNSERT : 
C “ oBc1 04 oBCc! 231 oc tTettar BLOCK LENGTH 291 2 oc ILI"Xx : 
OBC2 089e CBC3 232 oc AL 2(ROARE A422) DENSITY & UNIT ADDRESS 5 : oc AL 2(AAAAAAY : 
. 233 
© Cc CBC& CC 8&7 OC3E 23a ea INSERT INSERY THE LAST © 294 @ THIE SUSFCUTINE INSERTS XxX EYTES FOUND AY ARAAAR TO AARMAA~X ® 
oece 07 cece 2235 oc tLie7 VOLUME 10°S 295 & BETWEEN THE BYTE PCINTED TO SY XF1 AKD THE ADJACERTCREG HT) s 
c OQ CBCS OFSE OFCA 236 oc AL ZCROARE A430} ERROR COUNTERS e 296 * BYTE. IT CCES KCY DESTROY ANY EXISTING DA Ac IT ALSO wPOATES : 
oS 237 ay ALL DATA AREA PCINTERS 
OPCE 38 C@ 1120 238 TBN STATEG sPLLTBY CHK FOR IND CF MORE THAN 2 VOLS 
2 C OBCF <0 10 OA18@ 239 eT RE ACLP If YES-DONE-GO GET NEXT RECORD e 299 aa aaa a a gai i a ano 
C oa CNC? 28 a0 11¢€0 240 JAN STATFGeVCL2ZBT ELSEe CHK FOR 2 VOLUME sOo8 300 
OSC? F2 10 04 241 JT OC MORE If YES. GO OO FIRST VOLUME 300 
o C ceoa CO 8&7 oale 242 8 RE ACLP ELSE-DONE-GO GET NEXT RECORD oO Biae Se ae geen ans etree Be ecu Gee Leet ese 
es of 243 iw i = ‘ a 
OPCE BE 420 110 244 OOMORE SEF ST ATFG. VOL 28T SET LAST VOLUME INDICATGR BIY OFF OczaA 36 O01 11C2 302 st TXELSXRE SAVE XR 
& C: OBE? 3S O01 21106 245 u LHKORE XR! RESTORE xR1 TO STARY OF TVES FIELD oO a ae | aces i = ee one oo aks oa nates 
- ed PLP GC LOCK FCR MATCH FOR FIRST VOL 19 ; 1eBe 
Breen ce a a5 . eae " OC4E VE O1 OCFO 11¢€6 305 ALC RTENING 26236 THREE SET UP RETURN BRANCH 
€ Cc. CBEA 365 0} 18023 248 NOMACH L VE SERO CXF SE PUT ADDR OF END OF TVES DATA IN XR? QO 306 
- . CBPEE 38 80 281C€0 249 Y8N STATEG.VOLIBT CHK IF FERST VOL INDICATOR BIT IS ON oe rps . io ee =o. Sue ahahaha aes seen ace ee 
CRF2 F2 10 12 250 JT TSYTWC IF YES. GO TEST FOR A 2 VOL JOB s a 3 ¥ KOLe e COPE 
", CeFE CO eF OC3E 2£1 OOLAST 6& INSERT ELSE THIS MUST BE NULT YOL J08 oO ocst Of 01 1800 1281 3093 acc ENCATAL( 2) cBCRKOS TC CCNTAIN THIS 
& C CEFS of OCBFS 252 oc m1t6e SO INSERT THE OCSE OC O1 1800 9203 310 cic ENCATAC2Z) SIZE INSERT 
CeFA CeSg2 ceFB 253 oc AL ZCROARE £428) LAST YOL 10 AND GO ocei F2 @2 Cc 322 Jt ROCK 
; 286 312 
é & OCEFC CO #7 OC3E 255 8 IntERT INSERT AN © oo : 67 O2t4 Z a se PRINT — ecg ere 
ecoc ot 0c0o 256 oc raenze ENTRY COUNT océa 14 XL1¢°OTF?! PRINT 
zs CCO1 LBA oco2 287 cc AL Z( ONE) OF CRE Q océ9 2E oc6ée 315 oc¢ IL 1*aeer InPUY CECK AND 
€ © 2568 OCEA 1269 OC6B 316 oc AL 2CFUL MS E-46} RELOAD PROGRAM MESSAGE 
occ? CO #7? OBBE 289 8 PHRELST INSERT LAST DATA ccéec CO a7 O21€ P17 e LIK 
7 260 318 
& & OCC? Be 40 110 261 TSTTVO TER ST STFGs VOL 28T TEST FOR A 2 VOLUME JOS 6 OC7O 1¢ 62 1183 C2 219 ROOM MVC WORKOZ ce ZETeRRES SAVE ADDRESS OF CATA TO BE EINSFRYEO 
CCCE CC 10 OBFE 262 eT CCLAST tf SOe GO INSERT LAST VOR 0 CC7E 3C CE 1188 220 eva WOEKO3S CE 
G ce CCOF CO BP? OC3é 2€3 8 INSERT ELSE. THIS 1S 2ND TIME THROLGH ) CC7S C2 C2 23861 32% is CERERE oe xR 
a = 
: ocr? o€ ociS 268 oc testes SO INSERY THE 322 
oc3@ c#eec cc2S 265 oc AL ZIRDOSKE 24223 FIRST VOLUME 10 OC?FC 20 Ci 112C2 06 323 UPOTEP CLC TRELSOCZe XK? UPCATE ALL PCINTERS 
mh, 266 cce2 F2 €& OS 324 Jt NCUPDT TO INCLUDE THES 
¢ © Cc1e Ce BF GCE 267 8 IWNSERY INSTRY AN O cCCe® SF Cl CO 21182 325 ALC OCZeXR2 3 pRECRKOE INSERT IN BTS 
CCrh OF CCA 268 oc reiene ENTRY CCUNT OceA E2 C2 C2 226 NOUPDT LA 2C oARZF ERR VaLUE 
€ CG: CCIE 190A OCcic 269 ce RL E(CNE? OF ONE QO cceo CF OO 1168 5A 327 SLC WOFEKOSES De ONE 
4 wa 270 ecCS$2 CO Ci CC7O 226 PAZ UFCTLE 
ocic co &F OC3E 271 INSALL ®B INSERT INSERT 229 
oc?1 ce Oc2t 272 oc Terees THE CQ CCS? OF GI 21800 1281 330 suc ENCATACSY eWURKOE 
G q ocz2 cere cc23 273 oc AL 2CEDARE 246) Date OCceso 22 61 1800 233 “et ENCATA REE PCINT TO LASY DATA BYTE wy xa? 
274 OC Al GE OF 21800 14981 332 ALC ENCATAC 2} eWORKO!L ADJUST LAST CATA BYTE POINTES 
@ om OC 24 CC B&F OC3e 275 8 INSECT INSERT YHE oO CAF CC OO CCAF 11481 333 myC REMIT MVEZCEFe#OR KOR SEY UP DISPLACEMENT Em MVC ENSTR 
‘ Best cc 28 04 oc28 276 “oc TELeae BLOCK LENGTH re 
ecZzS CeSeé OC2a 277 oc AL ZCROARE A922) CENSITY & UNITY ADDRESS ocat ae GO 86 06 ae NEXTMY MYC O~ OCT eXAEE cE «xR ) wCVE 1 ee oe ae 
je a, 276 ocet 3¢€ Ch 1260 33 a FCXFCXex&E CECREMENYT DATA N 
S €: ecze ce e? ocze 276 8 TKEERT AKO INSERT THE oO OCES 34 61 1388 337 sT WORKHORSE CMECK YC STE JF THE INSERT 
OCzFe OF OC2F 280 oc wwse7e CALL -LAST) DATA oces co 0} 8168 11¢2 23e cLc WOFKO2( 226 °RRG AODOFESS HAS BEEN REACHED 
& G Oc 30 CEA® ocs3r 261 oc AL Z2CNC ARE 4373 UNOER FIRET Via 10 O eceF CoO Ci OCad 339 ORE WE xT may LE NCCT MOYE ANOTHER BYTE 
. OC32 Co BF OAL4 2a? 8 RE ACLO DONE 2 VCLS = GO GET THE NEXT RECORO CccC3 35 02 1:83 340 u WORK OD e XRF GWAC XR2 WITH ADCR OF CATA *O BE wWVC 
341 
6 e Cc occ? 3é@€ Ci i182 342 a UCEKOL SE KKE FCINT TO LAST DATA 
4 occe 34 Of 11C2 243 st TREL Ee XRSE BYTE TO BE INSERTEO 
346 
€ c e OCCF €c CO €O CO 345 INSRTR MVC OCU MRE FeoCCoURZ) MOVE 32 CATA BYTE 
- OCC? 3¢€ ck 3380 346 a FORFOXKeXRE CECRE VENT BYTE POINTER 
OCco? 2é@ O2 1180 307 A FORE CK. 22 CECRE MERT DATA POINTER 
€ ra e occe cf CO $261 1184 Bae SLC WOEKOL CE FeCHE CECREMENY LENGT™ TAG UNTIL : 
OCcE! CO O8 OCCcF 349 BNZ INSRTR IY GCES TO ZERO-ALL OATA IWSERTED | 
eé ¢€ oate OICECT4 PROG 10 716-C G care CICECTA PROG 16 T1E=¢ 
FC Me @2408276 PAGE 3 EC AO. 824825 PAGE Ba 
¢ € 


1 





ey 
Oo © 
mo Oo 


ot 
oO 
oO 








TBM MAINTENANCE DTAGNOETIC PROGRAM PART NOe:« 655891 © TEM MAINTENANCE DIAGNOSTIC PROGRAM ‘ PART NOs SS£SBo1£ 
Ge  ¢ PAGE 4 ij Oo PAGE aA 
716C CATA FCRYAYT PECG (3340) FOR SECT Vile 7Vl2e 713-4 ANC 724 | 7160 DATA FORWAT FROG (3340) FOR SECT Vile 7l2e Vide ANC 714 
C c ERR LOC OBJECT CODE AODOR STMT SOURCE STATEMENT C25 LOC OBYECT CODE ADDR STMT SOURCE STATEMENT 
oe Cc 350 | JSS SHEKSTE OES EF9EENKES OS OHSHSOEOESESEHISESSSLSEK LAS HSSEEAESRIRIDSHRSSSERARERE | 
o OCES 2H 01 212 351 & TXRE XRG RESTORE XR1 TO POINT TO NEXT LOC { eo 356 taeeees CISK READ CCNTROL/SET-UP FOR 3340 SYSTEM SETH EKORSE 
OCE9 35 02 L1C4 352 i TXRZeXR] RESTORE xXR2 WF SCHHASSASEAHSHHTS HHS TSOTIOSHSHKSSSHKS RES HKHESSHKSSHTAH SSE KSSERSOVHASSHIOSHSHS 
& O OocEC CO &7F 0000 353 RITRNIN B e-98 RETURN TO CALLING PGM { 358 *# OIisKRO #&¢ 
j3 35Q 9048 bS se eense 
: 3€0 
e ‘ 360 
e oO 360 
OCF 3€} DISKRO EOVU s 
© e oO OCFL 34 OL 1:2C2 362 st TXRIOXRG SAVE THE MAIN INDEX PRTR 
OocFE 3D Ci 21200 363 cry FRCCETexX*O1L® CHK IF PROCESS BIT £S ON 
i CcCFg CO @&1 OBSE 364 BE CKICHK IF VES. GO PROC’SS EXISTING DATA 
& & Q CCFC OC 0@ 1487 14A8 365 ave _RECECS De RECN CC eHH~AR BYTES FOR TAPE POINTER 
aS op¢e2 CO @7 12S5€ 366 e CIYsK33 FLSE+ GO GET THE TAPE TRK POINTERS 
‘ i SEF £4249 RETURN YC HERE FROM DISK READ CF TAPE PCINTERS 
© Q 368 
' oocrt 30 CO L€0h 369 ctiY DSKEUF4IO ok* HO? TEST IF OFSK POINTER 1S 60 
! cDpoe CO BSE 116F 370 SE VALCLR IF YESe DISK HAS BEEN CLEARED.GO PRT. 
e* 'S) e OOCF 2c GO 3$4ad 371. RVE RECa.0 ZERQ RECORD NUMBER é 
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7160 CATA FCRYAT PEOG (3340) FOR SECT Vile 712s 7i3Se ANE Vi4 716C CATA FCFWAT FFCG (3340) FOR SECT Tlie 7i2e 7i3_y ANC 714 
e ¢€ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT © ens LCC CESECT CODE ADDR STMT SOURCE STATEMENT 
c Cc 10C2 E€40F IF 840060540 612 @ EQS SHCRREETEDTEEETAGEED DH OEE SEDEEEDE ES HOEEETEES ESS SOEEESEEDEEESEESSESEREED 
o 10CB EZDESOCSEEOTCIE2 612 646 @ CONSTAATE AND CUFFERS FCR ALL ROUTINES ® 
1003 E2 612 647 BHSSESESED SEES EIEEEENESEESEEEESEG EEE SEEEDEEEODEDEESEEES ESS H4EREEOEESEDES 
Ge C: 10D4 CO 87 O21A 613 CHKVES e FRINT PRINT THE oO 648 
a 10C8 O07 1008 614 pc xLI*O7e LCAD ANO RUN 648 
1009 21 10D9 615 o¢ Wiessze TEMPORARY ERROR "STATISTICAL YAPE TiAF GCOC0OS 2161 649 WORKOL OC xL2°O°% 
c € 10CA 1103 1008 616 cc #L2(VESWSG) ERROR PRINTOUT" MESSAGE © 1282 o00c0 11B3 650 woRKOo2 DC xL2¢0° 
tue 10fCC CO 87 O22A 6i7 8 LCAD BRANCH TO 1184 06600 2185 651 WORKO3 OC ML Z*oe 
10EO of 10EO 618 cc xLI*cae LOAD “STEP 11B€ o000 2167 652 WORKOS OC XLZ°O? 
~ 10€1 C714 10E2 619 cc KL2°7148 SECTION 714 11B8 000001 21BA 653 ONE oc ML2e1° 
€ Cc 620 © 1188 OFFFFF 1180 €54 FOXFOX OC XL 2° OFFFFE ® 
1OE3 DIDECICASOCCIOSCS 1103 621 VESMSG oc CL33*LCAD AND RUN *STEP® SECTION (7143? 11€E 0069 118F 655 SIxTY4@ OC xLzZ°004aNe 
é C 10EB ACOSE4DS4SC7FE2ZE2 621 oO Z1CcO OC 11C€O0 656 STATFG OC —XLI8O VCL2BT=80 VOLIETE40 OISK=20 MUL TET=08 
ee” 10F3 CSO77F4&0E 2CEC3E2 621 : 2EC1 21C2 657 TxR} os xL2 
10FB CSDEDESO4DFTFIFS 621 11¢C3 11C% 658 TxR2 Ds xL2 
€ CQ 1102 SD 621 e ii1¢S 0003 21C6 659 THREE OC xmLgeae 
: ; 1208 CO 87 O21A 622 CORPRT B PRINT PRINT 1iC7 FFFE 11C8 660 COMPO2 DC XLZ*FFFE? 
11028 O7 1106 €23 cc XL2°07? THE CORE FULL 81CS 36 11C9 661 THIRTY CC MLI*1Es 
C ~ 1109 58 1109 624 oc TLiegie DIVIOE DECK AND 9 11CA 0018 11CB8 662 TwNTYs DC LZ°0018° 
: oF 110A 1295 1108 625 oc AL ZC FULMSG) RELGAD OR RESET HALT TO CONT. yicc €16€1 1iCD 663 SLASHS DC CLze¢ss¢ 
110C FO 38 3F 626 HPL X°3F*.x*3E° MSGe AND HALT WITH “HA® IN LITES ICE 2iCF 664 TELPTR DOS xXL2 
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7160 DATA FCEMAT PROG €3340) FOR SECT 718s 712¢ Fi3e AKO F14 ee CATA FORMAT PRCG (3340) FOR SECT Vile 72s 73s AKC 718 : 
: : ™~ ; 
is C bas LOC GBYECT CODE ADDR STMT SOURCE STATEMENT ERR LOC CBSECT CODE ADOR STMT SOURCE STATEMENT 
f 
684 KHEERKSES FESS ETHOS TSE SRSSKSSKAKEKAESERHKSKKSEERETRE SESH TKE RAST SERHLE *G6Ce e" 746 : 
c 685 eéee9 FITLE * CISK TYSCE =340 40 ROUTINE SRESEESSEESES SCC aed 1348 OC {3 £427 1463 789 OKERS MVC PD31620) -PD4Eé 2% PRIAFT UNEY CHECK AFTER SEEK CND sGce 
COG EHRESE SETS SSE OS SEOTEERSS SHEERS ESSE EEK ESTESKEKAS SEK EKRES HK EK ALEKS SES SS *6Cs I34E Fe e7 909 750 OC J PRINF 2 NOT "ect. 
781 
687 : 3 
@ eS 6e? ; o 1351 OC 13 1427 1477 752 DKERA MVC PD31(203 PORE @ PRINE NOT READY 7 UNIT CHECK s6Ce 
126€ 34 ce 130F 688 DISKS3 ST EXTTZ3+3 ARK STORE RETURN ADDRESS *G6C4 i387? F2 eF 00 753 J PRINE e e6C*e 
ce 1294 3C 00 1482 689 MVI ODCFex?008 CLEAR FLAG BYTE *cc* Q : iio Ses Baoay @ pause etes 
Cc 129€ OC O27 24868 145% 690 MVC COCFE(4).CCCFB INITIAL DDCF FIELD KebD.C BYTES *GC s 135A CO 87 OZ1A eo PRINE 2 ae *cc* 
a oaa 66 coiees bat SWe. DSNeE;nICEs RESET HISTORY UNIT CHECK BITS *GCe 135€ e? 135E 756 pe xt a : : TT ts, —. 
@ 1208 Cl C8 1332 692 TIC OCKNRx*cae NOT READY/UNIT CHECK ERROR TEST *6Ce ue as ee saan pe ees o30 - cece 
ve 693 " wie 
693 12€2 3C 40 1427 759 MVE FO31ex*ao® & PLACE © @ 
i Se GOGH SKKASSSSESSULFEKESS SHE TK VS FHS SSTAK SEK SEK SSLSEKSE AR SKEKKK SKK KEKE EPCKESTSEKHE REE ESSE $366 OC 82 842€ 1427 T60 MV¥C FOSI—2¢ 1S) eFO38 ee ca BREA bees 
& 605 & e % 13€C 30 cD 14C¢9 761 SNS OSNSE.xX*CO® SENSE STATUS BY ° 
696 *& INPUTS DSKDRY -->d ORV32 : *G6ce 1370 CO e@7 C21E 762 6 UNPACK 2 UNPACK *6c 
697 & DEKCYL <--> DOCF42 *GC e 1374 02 1374 763 oc Mmarec2e 2 STATUS *6Cc® 
& i) 698 * DISKHD --> DDCF+a *coce WW I37E 14CcsS 1376 764 “pc aL2cCsnse) * SYTES s6ce 
699 © ROSWRT <--> OSKFCT READTO1.WRETES02s SEEK=00( NO-OP) *GCe i377 i200 1378 765 OC AL2CSTATCT) e Oot *6c4 
700 * * 1379 CO B7 O21A 766 8 PRINT * PRIAT *Gce 
© 6 TOL eet ee seeee eee eee ee veee ee een eee see ee ese ne GW ee si =e ind Be eee eee yee . STATUS sha a: 
702 s -s 
r02 : 137F 1390 1380 67769 OC AL2CSTATOT) * Oot *G6ct 
€ ¢ 702 [ 213831 C1 CA 1381 770 TIC Box*Cat ATTACHMENT BUSY CWATIT) ; S608 
12aC OC OO 1302 14A2 703 MYC ROWRT4I CLS SCSKECT MOVE DISK FUNCTION READSYRITE INTO SIO*#GC# £365 32 Cc 1481 77% LIG ESNESox*Cce LCAD ODOF WI*H ADDRESS OF OSNS *6ce 
e€ G 12B2 OF 00 £302 14A3 708 ALC ROWRT4E (CEVOCRVZS INSERT ORIVE eee ENTO Sf oo ace - ae ue is ales: eee ee bas ce 
o I12ZEB Ci CA 12€8 70s FIO BeX*CAS ATTACHMENT BUSY (WA Jac 2 : * 
128C 34 CE £479 706 LIO LOCF ex*cEe® LOAD ODCR €ITH ADDRESS OF ODCF *G6C® 2390 C1 C8 135! 7748 _ YIQ OKERAsK*Ce® NOT READY / UNIT CHECK AFTER READ OFAG CHD ccs 
12co 31 CC 1478 707 KIO LODF ex*cce LOAD OCOOR WITH ADORESS OF ODDF *GC + QO 1396 CO e7 O21€ 775 8 UNP ACK * UNP ACK *G6C 2° 
S c 12C4 F2 CB 00 708 SIO Ocx*ces SEEK COMMAND PRIMARY TRACK @GCe. 1398 18 1398 776 DC ILie2ae » READ OLAG co. 
12c7 C1 CS 212CT 709 TIC #,x*c9F SEEK BUSY CWATT) *eGCe $289 34c¢ 1394 777 (OC AL2(CSNSE) 2 BYTES +ece 
€ Ge 12CE Ci CA 32C8 T10 TIC Boxcar - ATTACHMENT BUSY (WAIT) *GCt 1298 L4F9 139¢ 778 OC AL2¢€FSNS) * : o-23 *6C@ 
¥2CF Ci cB 1348 Tit TIO CKERS.X*CB! NOT READY / UNIT CHECK AFTER SEEK CMD *G6Ce 1390 CO 87 O21A 779 8 PRINT @ PRINT HEADING FOR *6ce 
I2C2 OC CS L4S6F 488 7Ti2 mvc ©0CZ(10) eCCCFE i. ISA eS 13Ai «6780 oc xu esze * READ OLAG coe 
e Cc 1209 OC O8 149€ 1442 _ 743 MVC DDCZ~1023 -DOZE *6C 13a2 10 23a2 781 OC ALICFKDOOCE-RECGS) *& @evTes *6C@. 
120F 31 CE 147D via LIC LOCK ex*CE® LOAD OOCR WITH ADDRESS OF DDCX (DDCF) *6ce % 13a3 13€0 13Aa 782 OC AL2CRODGE) * @-23 eG6C8 
12ZEZ 31 CC 1478 718 LIC LOOF ex*cc* LOAD ODOR WITH ADDRESS OF DCDF *G6C 8 IZaAS CO eF C21A 7e3 8 PRINT ® PRINT *G6ce. 
: 12E7 F2 C9 O8 716 SIO33 SIO KXtOL%exX*CS* RD HA E RO EVEN COMMAND *GCe Oo 23a9 82 13A9 786 DC xLiteze * READ OIAG *6cs 
€ 3 12ZEA C1 CA ZEA Ti? TIG @eX*Cat ATTACHMENT BUSY (WAIT) *6ce % 13Aa 30 IBAA 785 Cc ILL ase * SYTES *6c* 
12ZEE Cr CB 233€ T1838 TIO OKERZexX*CB* NOT READY/UNIT CHECK 777 *6Cce sae ee en 13AC 0-786 CC AL2CFSNS) * o-23 *6ce 
. oo, Tis © 2 78T 6 HALT : 
© eS 12F2 3e Ce 148¢ 720 TER OCOF ex*O2* CHECK FOR DEFECTIVE PRIMARY TRACK *G6ce © i3Bi VOOF 13682 788 CC XL2°700F¢ : 
126 F2 10 17 721 JT PRIDEF JUMP YO ALTERNATE TRACK *G6C% 1383 CO e7 O216€ ak a digs mn rile sec 
“ . r22 : u Cc 
€: ¢ 12F9 31 CE 1487S 723 LIC LOCFex*cEer LOAC OOCR WITH ADDRESS OF ODCF *G6Cs © 1387 £0E2EICIESESEZS0 13D6 792 STATOT OC CL26* STATUS SYTES Gel ARE Xxx? e6ce 
12FC 31 CC 187F T26 LIO LBUF ex*cc® LOAD ODOR WITH ADDRESS OF OBUF *ece 13BF CZESESCSE 240F CEB 791 
: om 2301 F3 C9 vO 72S ROWRT SIO Oex*co? RO/SERT KEY DATA €C9/CA) *GCe Oo I3CT FISOCICSCESOETE? 791 
& G 230@ Cl CA 1308 726 TIO @yx*Car ATTACHMENT BUSY (WAIT? *GCe I3CF EET 791 
1308 ¢€1 C8 123F T27 VIO OKER4,X*C8* NOT READY/UNIT CHECK eGCce 213D0 792 RDOGS EQU *—1 esce 
e ra) 130C CC &F OOOO 728 ExiT33 8 e-2 _ RETURN TO CALLER *G6C* oO wads piece eee 13E0 isa ROOGE DC CL29* READ CEAG STATUS BVTES ARE * *cce 
we 729 4 3C2 
1226 730 PRIDEF EQU 2 *Gce ISE1 E26O0CZEREFZCSE240 793 ; 
. 1310 3c 01 1468C¢ 731 M¥E DOOF xo? SET-UP FLAG BYTE FOR ALTERNATE *GC4 oO IIES CioSsCcseo0ao 793 i 
so G Q3le@ 3C 02 1482 732 “ @VE COCFex*oie SEY-UP FLAG BYTE FCR ALTERNATE *6Ccs 23ED 794 PO30 Ecu *-1 R 26c 6 
1216 Ci CA 1318 733 — TIC &.x*cat ATTACHMENT BUSY CWAET) *«éCe IJEE 40CACSE20240C40S 13FB 795 OC CL16* DISK ECREIVE 2° *6c% 
Sy 221C 31 CE 1478 734 LIC LOOF ox* CEE LOAD DDCP WITH ADCRESS OF DDDF *Gcs O 13FE CSESCSa04Or2 79s ; 
& & $320 F3 C8 00 235 SIO Gex*cet SEEK CCMMAND ON ALTERNATE eG6Ce IIFC GODEDEESZRONSCEC1 1413 796 OC CL2e° RCT READY £ UNIT CHECK © *6C ¢. 
Iw3zz ci cS £323 ; 736 TIC #,x*cge SEEK BUSY 27772 (CWAET) *cce 1404 CHELCRCELAOCERDSCS 796 ; 
o>. i327 C1 CA 2327 737 TIC @,x*cat ATTACHMENT BUSY CWATIT) GC? oO 140C E240C3C eC EC 20240 796 : 
© G I3S2E ci CB 1748 738 TIO OKERSeX*CE® NOT READY / UNIT CHECK AFTER SEEK CHD *6Ce 2428 4640806469408604040 1827 797 PD? pc cizce « *6c8. 
I32F CO eF 12E7 739 S S1033 GO TO RD HA & RO ALTERNATE *G6C* 2aIC £0404 040404040040 797 ‘ 
740 1424 #04C8aC40 797 : 
& © WSZ* FS C7 26 741 OKNR 3 PRINE & PRINT e6ct © 14Z2B ACCICEEICEDSSCDS £838 FOB PD3S OC CL20* AFTER READ HA & PGo® *6te 
van 1620 C£C1C4860C8C14050 798 i 
re 133@ OC 13 2427 1438 Te3 DKERD MVC PO721(20).PO28 # PRINT NOT/READY AFTER READ HA & RO *6C* gx 1438 eCooF C4B 798 . : 
eS & iB3c Fe #7 28 766 J PRTNE ¢ NOT READY 7 UNET CHECK SGCe 342C SOCICEESCSOSAOLD 146F 7E9 7549 DC CL20* AFYER RDSWRT DATA o* e6C8 
765 $444 CAE 1ESDSE3AOCAC! 799 § 
e AS3F OC 13 2427 14¢F 7e6 OKERGE MVC PDILi202.-FOe? # PRINT ERROR AFTER RD/SWRT CHD *6C® gs teac E2C140468 Te9Q : 
S 1365 F2 #7 12 ve? Jj PRINE © PRINT OUT eGce 1850 £0CIC6ESCSDSSOE2 146€3 S800 PDE DC CL20° AFTER SEEK CCMMmaAND.* SEC 8. 
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e€ 1 
7160 CATA FORMAT PRCG (3340) FOR SECT 7tle Fi2<e 713, ARM 714 : 7160 CATA FORMAT FROG (3340) FOR SECY Vile Vide 7i3~e ANC 714 
§ 
G es LOC OBJECT CODE ADOR STMY SOURCE STATEMENT ' O cer Lec CBVJECT COCE ADDR STMT SOURCE STATEMENT 
} 
_ C: 14Ee@ CECSOZ2E0C POE O4D4 800 ' Q 1478 1482 1479 803 LCCF oc AL2(CCCF) ADORESS LCEFT-MOST BYTE OF DOCFE *G6Cs 
& t 1@€C C10£&C4aB e00 t 147A 148C 1478 804 LOOF oc AL2(DODOF ) AODRESS LEFY-6CST SYTE OF DODF *Gcs 
1466 SOCICEESCENSAOCS 1477 BO PDA DC CL20* AFTER READ DIAG C#OF SGC ®, 2147C 1456 1470 805 LOCK DC AL2(COCX) AOOREES LEFIT-K¥CST SYTE OF DDC (COCF) *#ECe 
é ms, 14EC CECIC440C4CSCIC7 803 Le 187E 1€00 147F 806 LELF oC AL2(CSKEUF) ACDRESS LCEFT-MOST BYTE OF OISK IK>UT BUFF 
~ i 1474 40C3C4ca 801 © 1480 1462 146% 807 LSNS oc AL2(OENE) ADDRESS LEFT-MCST BYTE OF OSNS *ECe 
i LOB SHSSHHSKSESSSOSSHSSHSREAC/SWRITE KE Y—-LATASHSSSSSTLHSSESESKHSHES SHORES S*ESSEGCEH 
e 3 { CS 809 * oDCcF * F @¢ CC *@ HH © & © Ke © CL OS KN @ DISK ORIVE e5C® 
: i ; BLO FHSESTEEHSHTOHSDHEHRHOHHSSSSSSSSHSHSHSSSSSeESessseee? CONTROL FIECS sGCe 
i 1482 @11 DOCF ECU ® 
© ec: O 1382 006 2482 e@12 oc xXLT°O8 FLAG ® w secs 
1483 0000 1484 813 oc xL 29008 CYLINDER E R GCs 
: 14E2 COCO 1486 814 oc XLzZ*00° KEAL ADDRESS A a *GCe 
e G : Oo 1487 00 1487 6815 RECO oc L108 RECORO o T eccs 
' 148@ 66 1488 616 oc xLiroe KEY LENGTH € GCs 
2889 OC00 140A 817 cc xL2¢oce CATA LCENGTE CONTROL sGce 
é : eC 1488 60 14@B 818 OOCFE oc XLito* COUNT FIELO *GCcs 
BLD $999S3F0SNFH398SSSHSSSS READ HA C REO VFS sSS SSS SSSHKSES STIS SS BROS SS VSZ*EGCS 
14e8C) 8=—820 ~ODOF Ecu 2 *GCe 
C €& o 128C OOGOOODOCOOCLVONO 1495 821 OC = MLI0%CO8 @ DISK ORIVE DATA FIELD FOR READ Ha Ff. #9 26ce 
149@ 0000 a2% 
B22 SSSASsESssgoassseesesocs 3990 HFH992 SS SSSSHMSSS SAUGCCs 
€ e Oo 1496 6823 DDCx Eou ° ®@ DISK ORI VE *Gce 
14S€ O66 1496) 6824 ec xL1i* 0° FLAG c ‘ sGce 
1467 c000 1498 825 oc xi z* 00° CYLINOER c 2G.0¢ 
€ é , oO 1466 0000 149A 826 oc xLZ*Co°® HEAD ADCRESS Nw € GCs 
1498 00 1498 &27 oc xL eos RECORD v ! GCs 
14SC 00 149C 828 oc xXL1¢oO° KEY LENGTH ® € e6cs 
€ e oO 1490 0000 149E 629 oc XLzZ*cO® CATA LENGTR o L ccs 
149F 00 149F 630 DDCZ oc xLa*O° CCUNT t o *6cs 
24a0 COOe 14a 831 DOZL Dc XLZ*OOCE® SeCATA LENGTHE® FOR READ HA & RO secs 
& é oO E3ZP FFEKOTTVIVTVSIUH SEK HS SH HDS SSHSEVSTSHFISHSESHS SS EHS VSS OSS SHHEEBHSETEESEOHSHMPBsIsOCGl & 
14Aa2 O1 14A2 833 OSKFCT oc FLIPOT® SET TO READ FCR THIS RCUTINE SoCs 
14a? ce 1403 834 ORVI2 CC xLI*ces ® DISK DRIVE ADDRESS BIYS ORIVE 2 *GCe 
e © Qo 14A& 835 OOCINT ECU e @ OISK CRIVE *6C 8 
1408 OO0AD 1405S 836 oc ML Z*OOASe CYLINOER #& FCR TAPE FCINTER SGC e 
14Aa€ 0000 14a? 837 oc XLzZ*coer FEAD ADDRESS # FOR TAPE POINTER *GCe 
€ oO 1448 07 1448 838 RECN oc XL1°O78 FECORC # FCR TAFE POINTER 1 *c6Cs 
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